Сохранить все рисунки в таблице excel

Save a picture or other graphic as a separate file

Pictures and other graphics embedded in an Office file are saved in the file. But you may want to save a picture as a separate file so you can reuse it elsewhere.

In Office on macOS, you can save a photo, diagram, chart, or shapes as a separate picture file.

On a PC, in PowerPoint, Word, and Excel you can save a photo, shape, or SmartArt graphic as a separate picture file. Outlook on the PC only allow you to save a photo as a separate picture file.

Save an image as a separate file

In PowerPoint, Word, and Excel, the following procedure works for photos, shapes, charts, SmartArt graphics, digital ink, and text boxes.

In Outlook, the following procedure only works for photos.

Right-click the illustration that you want to save as a separate image file, and then click Save as Picture.

In the Save as type list, select the file format that you want.

In the File name box, type a new name for the picture, or just accept the suggested file name.

Select the folder where you want to store the image.

Image-file formats

(Graphics Interchange Format)

Supports 256 colors and no image data is lost when the file is compressed.

JPEG
(File Interchange Format)

Best used for pictures with many colors, such as scanned photos.

PNG
(Portable Network Graphics format)

Improves the quality of graphics on a web site because parts of the image can be transparent and brightness can be controlled.

A «lossless» format that experiences no quality loss each time a file is amended and saved.

Graphics created in one program are displayed in another program exactly the way they appeared in the original program.

A 16-bit «vector» graphic format

Enhanced Windows Metafile

A 32-bit «vector» graphic format

SVG
(Scalable Vector Graphic)
(Requires version 1909 or later for Microsoft 365)

Images can be resized with no loss of image quality. Files support «lossless» data compression.

Note: Also available in Office LTSC and Office 2021.

This feature is available in Word, PowerPoint, and Excel. It works for photos, shapes, charts, SmartArt graphics, digital ink, and text boxes.

Save a picture or other image as a separate file

Control-click the illustration that you want to save as a separate image file, and then click Save as Picture.

In the Save as type list, select the file format that you want.

In the Save As box, type a new name for the picture, or just accept the suggested file name.

In the Where box, navigate to the folder where you want to store the image.

Image-file formats

PNG
(Portable Network Graphics Format

Improves the quality of graphics on a web site because parts of the image can be transparent and brightness can be controlled.

JPEG
(Joint Photographics Expert Group)

Best used for pictures with many colors, such as scanned photos.

PDF
(Portable Document Format)

Portable format that can include text and images.

GIF
(Graphics Interchange Format)

Supports 256 colors and no image data is lost when the file is compressed.

BMP
(Device-Independent Bitmap)

Graphics created in one program are displayed in another program exactly the way they appeared in the original program.

SVG
(Scalable Vector Graphic)
(Requires version 1909 or later for Microsoft 365)

Images can be resized with no loss of image quality. Files support «lossless» data compression.

Note: Also available in Office LTSC and Office 2021.

Источник

Как сохранить картинки из таблицы Excel

Скачивание картинок в файле Excel — это простая задача, выполнить которую можно при помощи простой инструкции, описанной ниже.

Видеоинструкция

Массовое скачивание картинок из файла Excel

Для того, чтобы скачать все изображения (например, скачанные через данную инструкцию), содержащиеся в таблице, потребуется нажать на «Файл» (в верхнем-левом углу).

После выбираем «Сохранить как»-«Обзор».

Выбираем тип файла «Веб-страница (*.html, .html) и сохраняем файл.

В итоге получаем папку с названием документа, в которую нужно перейти.

В ней будут храниться все изображения.

Скачивание одного изображения из таблицы Эксель

Выполнить задачу можно кликнув на нужный элемент, после чего вывести меню (правая клавиша мыши) и скопировав его (сочетание клавиш CTRL+C).

После открываем Paint (Программы-По умолчанию) также открываем меню и выбираем «Вставить» (CTRL+V). Появляется картинка.

Открываем меню через «Файл» (Левый-верхний угол).

Пункт «Сохранить как» и нажимаем на нужный формат.

Источник

Извлечение изображения из документа Microsoft Excel

При работе с файлами Excel бывают не только случаи, когда нужно вставить изображение в документ, но и обратные ситуации, когда рисунок, наоборот, нужно извлечь из книги. Для достижения данной цели существует два способа. Каждый из них является наиболее актуальным при тех или иных обстоятельствах. Давайте подробно рассмотрим каждый из них, чтобы вы могли определить, какой из вариантов лучше применить в конкретном случае.

Извлечение картинок

Главным критерием выбора конкретного способа является тот факт, хотите ли вы вытащить одиночное изображение или произвести массовое извлечение. В первом случае можно удовлетвориться банальным копированием, а вот во втором придется применить процедуру конвертации, чтобы не терять время на извлечении каждого рисунка по отдельности.

Способ 1: копирование

Но, прежде всего, давайте все-таки рассмотрим, как произвести извлечение изображения из файла методом копирования.

1. Для того чтобы скопировать изображение, прежде всего его нужно выделить. Для этого кликаем по нему один раз левой кнопкой мыши. Затем выполняем щелчок правой кнопкой мыши по выделению, тем самым вызывая контекстное меню. В появившемся списке выбираем пункт «Копировать».

Можно также после выделения изображения перейти во вкладку «Главная». Там на ленте в блоке инструментов «Буфер обмена» щелкаем по пиктограмме «Копировать».

Существует и третий вариант, при котором после выделения нужно нажать на комбинацию клавиш Ctrl+C.

После этого запускаем любой редактор изображений. Можно, например, воспользоваться стандартной программой Paint, которая встроена в Windows. Производим вставку в эту программу любым из тех способов, которые в ней доступен. В большинстве вариантов можно воспользоваться универсальным способом и набрать комбинацию клавиш Ctrl+V. В Paint, кроме этого, можно нажать на кнопку «Вставить», расположенную на ленте в блоке инструментов «Буфер обмена».

После этого картинка будет вставлена в редактор изображений и её можно сохранить в виде файла тем способом, который доступен в выбранной программе.

Преимущество данного способа заключается в том, что вы сами можете выбрать формат файла, в котором сохранить картинку, из поддерживаемых вариантов выбранного редактора изображений.

Способ 2: массовое извлечение изображений

Но, конечно, если изображений больше десятка, а то и несколько сотен, и их всех нужно извлечь, то вышеуказанный способ представляется непрактичным. Для этих целей существует возможность применить конвертацию документа Excel в формат HTML. При этом все изображения автоматически будут сохранены в отдельной папке на жестком диске компьютера.

1. Открываем документ Excel, содержащий изображения. Переходим во вкладку «Файл».
2. В открывшемся окне щелкаем по пункту «Сохранить как», который находится в левой его части.
3. После этого действия запускается окно сохранения документа. Нам следует перейти в ту директорию на жестком диске, в которой желаем, чтобы разместилась папка с картинками. Поле «Имя файла» можно оставить без изменения, так как для наших целей это не важно. А вот в поле «Тип файла» следует выбрать значение «Веб-страница (*.htm; *.html)». После того, как вышеуказанные настройки произведены, щелкаем по кнопке «Сохранить».

Вытащить картинки из файла Excel не так уж сложно, как могло показаться на первый взгляд. Это можно сделать либо путем простого копирования изображения, либо путем сохранения документа, как веб-страницы, встроенными инструментами Эксель.

Источник

Сохранить изображения с листа Excel в файлы

Надстройка позволяет экспортировать все изображения с листа Excel в графические файлы.

Доступен выбор типа создаваемых файлов (поддерживаются форматы JPG, GIF и PNG)

Кроме того, можно указать имя папки, в которую будут помещены созданные файлы
(эта папка будет создана автоматически в том же каталоге, где расположен обрабатываемая книга Excel)

Если нужно сохранять картинки под именами из заданного столбца, либо производить другие действия с картинками (вставку на лист, вставку по ссылкам, поиск картинок в интернете), то воспользуйтесь универсальной надстройкой PastePictures.
Функция выгрузки изображений в файлы там присутствует в меню Изображения — Сохранить картинки с листа

В имени папки можно указать кодовое слово $filename — оно будет заменено на название текущего (обрабатываемого) файла Excel.

Для запуска экспорта картинок в файлы нажмите комбинацию клавиш Ctrl + Shift + P

На форме выберите формат сохраняемых изображений, и название папки для экспорта:

По завершении сохранения изображений макрос выдаст уведомление:

Результат экспорта изображений в созданной папке:

Ознакомьтесь также со способом сохранения в графические файлы
всех диаграмм на листе Excel

Источник

Как сохранить картинки из листа Excel в картинки JPG

Получили по почте файл-прайс с изображениями товара и эти картинки нужны в отдельной папки, а не на листе? Например для загрузки на сайт. Или для других целей. Подобной команды в Excel нет. Вставить картинки можно, а вот обратно к сожалению никак. Хорошо, если картинок штук 10, а если 100? А если таких книг много? И из всех надо сохранить картинки? Решил поделиться кодами, которые могут сохранять картинки из листа Excel в папку.
Если не знаете как применять коды Visual Basic for Applications, то настоятельно рекомендую к прочтению эти статьи:
Что такое макрос и где его искать?
Что такое модуль? Какие бывают модули?
Если хотите использовать один из нижеприведенных кодов, то следует создать стандартный модуль, скопировать нужные код и вставить его в этот модуль.

Сохранение выделенной картинки в файл
Все, что потребуется это выделить объект/картинку и выполнить нижеприведенный код:

Sub Save_Sel_Object_As_Picture() Dim sName As String, oObj As Object, wsTmpSh As Worksheet If VarType(Selection) <> vbObject Then MsgBox «Выделенная область не является объектом!», vbCritical, «www.excel-vba.ru» Exit Sub End If Application.ScreenUpdating = False Application.DisplayAlerts = False Set oObj = Selection: oObj.Copy Set wsTmpSh = ThisWorkbook.Sheets.Add sName = ActiveWorkbook.FullName & «_» & ActiveSheet.Name & «_» & oObj.Name With wsTmpSh.ChartObjects.Add(0, 0, oObj.Width, oObj.Height).Chart .ChartArea.Border.LineStyle = 0 .Parent.Select .Paste .Export Filename:=sName & «.gif», FilterName:=»GIF» .Parent.Delete End With wsTmpSh.Delete Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

Если необходимо сохранить не только картинки, но и другие объекты, то необходимо в коде в строке: If oObj.Type = 13 Then изменить цифру. В коде комментариями указано, какая цифра какой тип обозначает. Так же можно изменить и расширение итогового файла с «.gif» на «.jpg». Достаточно найти расширение gif в коде(в двух местах) и заменить их на jpg. Если ни один объект не выделен, то ничего не произойдет.

Сохранение всех картинок из всех выбранных файлов Excel в папку

Sub Save_Object_As_Picture() Dim avFiles, li As Long, oObj As Object, wsSh As Worksheet, wsTmpSh As Worksheet Dim sImagesPath As String, sBookName As String, sName As String Dim wbAct As Workbook Dim IsForEachWbFolder As Boolean avFiles = Application.GetOpenFilename(«Excel Files(*.xls*),*.xls*», , «Выбрать файлы», , True) If VarType(avFiles) = vbBoolean Then Exit Sub IsForEachWbFolder = (MsgBox(«Сохранять картинки каждой книги в отдельную папку?», vbQuestion + vbYesNo, «www.excel-vba.ru») = vbYes) If Not IsForEachWbFolder Then sImagesPath = Environ(«userprofile») & «desktopimages» ‘» If Dir(sImagesPath, 16) = «» Then MkDir sImagesPath End If End If On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Set wsTmpSh = ThisWorkbook.Sheets.Add For li = LBound(avFiles) To UBound(avFiles) Set wbAct = Workbooks.Open(avFiles(li), False) ‘создаем папку для сохранения картинок If IsForEachWbFolder Then sImagesPath = wbAct.Path & «» & wbAct.Name & «_images» If Dir(sImagesPath, 16) = «» Then MkDir sImagesPath End If End If sBookName = wbAct.Name For Each wsSh In Sheets For Each oObj In wsSh.Shapes If oObj.Type = 13 Then ’13 — картинки ‘1 — автофигуры ‘3 — диаграммы oObj.Copy sName = ActiveWorkbook.Name & «_» & wsSh.Name & «_» & oObj.Name With wsTmpSh.ChartObjects.Add(0, 0, oObj.Width, oObj.Height).Chart .ChartArea.Border.LineStyle = 0 .Parent.Select .Paste .Export Filename:=sImagesPath & sName & «.jpg», FilterName:=»JPG» .Parent.Delete End With End If Next oObj Next wsSh wbAct.Close 0 Next li Set oObj = Nothing: Set wsSh = Nothing wsTmpSh.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox «Объекты сохранены», vbInformation, «www.excel-vba.ru» End Sub

Код позволяет выбрать одну или несколько книг Excel и сохраняет все картинки со всех листов выбранных книг. При запуске кода предлагается выбрать файлы Excel, картинки из которых надо сохранить. После этого появится запрос: «Сохранять картинки каждой книги в отдельную папку?»

• Да — для каждой книги будет создана своя папка images, в которую будут сохранены картинки с именами вида: ИмяКниги_ИмяЛиста_ИмяФигуры
• Нет — на рабочем столе пользователя будет создана папка images, в которую будут сохранены картинки с именами вида: ИмяКниги_ИмяЛиста_ИмяФигуры

Если необходимо сохранить не только картинки, но и другие объекты, то необходимо в коде в строке: If oObj.Type = 13 Then изменить цифру. В коде комментариями указано, какая цифра какой тип обозначает. Так же можно изменить и расширение итогового файла с «.jpg» на «.gif». Достаточно найти расширение jpg в коде(в двух местах) и заменить их на gif. В данном коде я намеренно сделал сохранение в формат jpg, чтобы можно было сравнить с предыдущим кодом и увидеть как правильно менять расширение(формат) файла.

Сохранить выделенный диапазон в картинку
Данные код сохраняет выделенный на листе диапазон в картинку.

Sub Range_to_Picture() Dim sName As String, wsTmpSh As Worksheet If TypeName(Selection) <> «Range» Then MsgBox «Выделенная область не является диапазоном!», vbCritical, «www.excel-vba.ru» Exit Sub End If Application.ScreenUpdating = False Application.DisplayAlerts = False With Selection .CopyPicture Set wsTmpSh = ThisWorkbook.Sheets.Add sName = ActiveWorkbook.FullName & «_» & ActiveSheet.Name & «_Range» With wsTmpSh.ChartObjects.Add(0, 0, .Width, .Height).Chart .ChartArea.Border.LineStyle = 0 .Parent.Select .Paste .Export Filename:=sName & «.gif», FilterName:=»GIF» .Parent.Delete End With End With wsTmpSh.Delete Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

Просто выделяем диапазон, который необходимо сохранить как картинку и запускаем код. Картинка будет сохранена в папку с активной книгой.

СОХРАНЯЕМ ВСЕ КАРТИНКИ С ЛИСТА В ПАПКУ С ЗАПИСЬЮ В ЯЧЕЙКИ ИМЕН КАРТИНОК

Код ниже сохраняет все картинки на активном листе в папку images , которая создается в папке с книгой Excel, картинки из которой сохраняются. Если папки images нет — она будет создана. Картинкам даются имена «img1», «img2», «img3» и т.д. Картинки из ячеек удаляются, а на их место записывается имя картинки. Актуально, наверное, для тех, кто из таких файлов делает потом выгрузки в интернет-магазины и пр.

Sub Save_Object_As_Picture() Dim li As Long, oObj As Shape, wsSh As Worksheet, wsTmpSh As Worksheet Dim sImagesPath As String, sName As String sImagesPath = ActiveWorkbook.Path & «images» ‘» If Dir(sImagesPath, 16) = «» Then MkDir sImagesPath End If On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Set wsSh = ActiveSheet Set wsTmpSh = ActiveWorkbook.Sheets.Add For Each oObj In wsSh.Shapes If oObj.Type = 13 Then li = li + 1 oObj.Copy sName = «img» & li With wsTmpSh.ChartObjects.Add(0, 0, oObj.Width, oObj.Height).Chart .ChartArea.Border.LineStyle = 0 .Parent.Select .Paste .Export Filename:=sImagesPath & sName & «.jpg», FilterName:=»JPG» .Parent.Delete End With oObj.TopLeftCell.Value = sName oObj.Delete ‘удаляем картинку с листа End If Next oObj Set oObj = Nothing: Set wsSh = Nothing wsTmpSh.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox «Объекты сохранены в папке: » & sImagesPath, vbInformation, «www.excel-vba.ru» End Sub

В коде все так же, как в кодах выше(можно сохранять другие объекты, можно изменить формат сохраняемых картинок). Только при этом в ячейку, в которой была картинка записывается имя, с которым эта картинка была сохранена в папку на компьютере. Сама картинка при этом удаляется. Если удалять не надо, то необходимо просто удалить строку:
oObj.Delete ‘удаляем картинку с листа
Если необходимо записать в ячейку не только имя картинки, но и полный путь(включая путь к папке и расширение картинки), то надо вместо строки:
oObj.TopLeftCell.Value = sName
записать такую:
oObj.TopLeftCell.Value = sImagesPath & sName & «.jpg»

Сохранить картинки с листа с именами картинок из ячеек
Пожалуй, самый популярный код. Он сохраняет картинки из активного листа с именами, взятыми из ячеек, в которых эти картинки расположены. При этом можно указать, чтобы имена брались из той же строки, но другого столбца:

Sub Save_Object_As_Picture_NamesFromCells() Dim li As Long, oObj As Shape, wsSh As Worksheet, wsTmpSh As Worksheet Dim sImagesPath As String, sName As String Dim lNamesCol As Long, s As String s = InputBox(«Укажите номер столбца с именами для картинок» & vbNewLine & _ «(0 — столбец в котором сама картинка)», «www.excel-vba.ru», «») If StrPtr(s) = 0 Then Exit Sub lNamesCol = Val(s) sImagesPath = ActiveWorkbook.Path & «images» ‘» If Dir(sImagesPath, 16) = «» Then MkDir sImagesPath End If ‘ On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Set wsSh = ActiveSheet Set wsTmpSh = ActiveWorkbook.Sheets.Add For Each oObj In wsSh.Shapes If oObj.Type = 13 Then oObj.Copy If lNamesCol = 0 Then sName = oObj.TopLeftCell.Value Else sName = wsSh.Cells(oObj.TopLeftCell.Row, lNamesCol).Value End If ‘если в ячейке были символы, запрещенные ‘для использования в качестве имен для файлов — удаляем sName = CheckName(sName) ‘если sName в результате пусто — даем имя unnamed_ с порядковым номером If sName = «» Then li = li + 1 sName = «unnamed_» & li End If With wsTmpSh.ChartObjects.Add(0, 0, oObj.Width, oObj.Height).Chart .ChartArea.Border.LineStyle = 0 .Parent.Select .Paste .Export Filename:=sImagesPath & sName & «.jpg», FilterName:=»JPG» .Parent.Delete End With End If Next oObj Set oObj = Nothing: Set wsSh = Nothing wsTmpSh.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox «Объекты сохранены в папке: » & sImagesPath, vbInformation, «www.excel-vba.ru» End Sub ‘————————————————————————————— ‘ Procedure : CheckName ‘ Purpose : Функция проверки правильности имени ‘————————————————————————————— Function CheckName(sName As String) Dim objRegExp As Object Dim s As String Set objRegExp = CreateObject(«VBScript.RegExp») objRegExp.Global = True: objRegExp.IgnoreCase = True objRegExp.Pattern = «[:,\,/. *, ,’,|,»»»»]» s = objRegExp.Replace(sName, «») CheckName = s End Function

Укажите номер столбца с именами для картинок — указывается порядковый номер столбца на листе, из которого брать имя для сохраняемой картинки. Например, сами картинки в столбце H, а имена для них записаны в столбце B. Надо указать 2. Тогда для картинки в ячейке H3 будет использовано имя, записанное в ячейке В3. Расширение для картинки указывать не надо(например — image1, image2, image_product_sell1 и т.п.).
Если номер не указывать или указать 0 — то имя для картинок будет взято из тех ячеек, в которых находятся эти картинки.
Так же проверяется корректность значений в ячейках, т.к. они могут содержать символы, недопустимые в именах файлов(слеши и пр.). В этом случаи эти символы будут удалены. И если после удаления этих символов значение будет пустым — имена картинкам будут даваться с префиксом «unnamed_» и порядковым номером таких картинок.

Tips_Macro_Save_Object_As_Picture.xls (76,0 KiB, 15 137 скачиваний)

Статья помогла? Поделись ссылкой с друзьями!

Источник