Как в excel сохранить все рисунки

Помогла ли Вам статья?

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

Экспорт всех изображений сразу из Excel с функцией «Сохранить как»

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

1. Откройте книгу с изображениями, которые вы хотите сохранить. Нажмите Файл > Сохранить как > Просматривать.

2. в Сохранить как диалоговое окно, вам необходимо:

3. Во всплывающем Microsoft Excel диалогового окна, нажмите Да кнопку.

4. Откройте папку, в которой сохранены экспортированные файлы, и вы увидите папку и файл формата HTML, перечисленные внутри. Все изображения в книге, включая диаграммы, фигуры или объекты, сохраняются в этой папке.

5. Вы можете оставить нужные вам картинки в папке и удалить ненужные

Легко экспортируйте все изображения сразу из Excel с помощью удивительного инструмента

Вышеупомянутый метод извлечет все объекты из книги, возможно, некоторые из них вам не нужны. Если у тебя есть Kutools for Excel установлен в Excel, его Экспорт графики Функция может помочь вам сохранить только те изображения, которые вам нужны.

После установки Kutools for Excel, пожалуйста, сделайте следующее:

1. Нажмите Кутулс Плюс > Импорт Экспорт > Экспорт графики:

2. в Экспорт графики диалоговое окно, настройте следующим образом:

3. Затем появится диалоговое окно, в котором будет указано, сколько изображений было успешно экспортировано. OK кнопку.

Теперь вы можете перейти в папку назначения и проверить экспортированные изображения.

Пожалуйста, нажмите Экспорт графики чтобы узнать больше об этой функции.

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

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

1. На рабочем листе, куда вы хотите экспортировать изображения, нажмите кнопку другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модуль. Затем скопируйте следующий VBA в окно модуля.

Код VBA: экспортировать изображения в столбец и автоматически называть их

Sub ExportImages_ExtendOffice()
'Updated by Extendoffice 20220308
    Dim xStrPath As String
    Dim xStrImgName As String
    Dim xImg As Shape
    Dim xObjChar As ChartObject
    Dim xFD As FileDialog
    Set xFD = Application.FileDialog(msoFileDialogFolderPicker)
    xFD.Title = "Please select a folder to save the pictures" & " - ExtendOffice"
    If xFD.Show = -1 Then
       xStrPath = xFD.SelectedItems.Item(1) & ""
    Else
        Exit Sub
    End If
    
    On Error Resume Next
    For Each xImg In ActiveSheet.Shapes
        If xImg.TopLeftCell.Column = 2 Then
        xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value
        If xStrImgName <> "" Then
            xImg.Select
            
            Selection.Copy
            Set xObjChar = ActiveSheet.ChartObjects.Add(0, 0, xImg.Width, xImg.Height)
            With xObjChar
                .Border.LineStyle = xlLineStyleNone
                .Activate
                ActiveChart.Paste
                .Chart.Export xStrPath & xStrImgName & ".png"
                .Delete
            End With
        End If
        End If
    Next
End Sub

Ноты:

3. нажмите F5 ключ для запуска кода. В открывшемся окне выберите папку для сохранения изображений и нажмите ОК.

Затем все изображения в указанном столбце экспортируются и автоматически именуются значениями соседних ячеек, как вы указали.

Связанная статья:

Как экспортировать диаграммы в графику в Excel?

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

​Смотрите также​SaveSheetAsImage sh​ByVal fPictureOwnsHandle As​: Здравствуйте уважаемые форумчане.​Roman777​ книгу по списку​ каталога — это​4) ищите помощи​ с прилагающимися к​ файл и сохранить​да, спасибо, я​ Excel.​ для отсканированных фотографий.​ рисунок.​ документ. В этой​ возможность применить конвертацию​ вкладку​При работе с файлами​Next​ Long, _​ Необходимо решить не​

​:​ файлов…​

​ начало…​​ в интернете (Google,​ ней файликами, в​

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

​ нажатием кнопки. Можно​ так и делаю,​Выделить картинку. Из​Формат PNG (*.png)​Щелкните диаграмму, к которой​ директории должна образоваться​ документа Excel в​«Главная»​ Excel бывают не​End Sub​IPic As IPicture​ простую задачу, не​vladFo​Roman777​

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

​Roman777​ Yandex)​ т.ч. картинками в​ просто скопировать код​ но у меня​

1. ​ диалогового окна выбрать​Позволяет улучшать качество графических​ вы хотите сохранить​ папка, которая содержит​ формат HTML. При​. Там на ленте​ только случаи, когда​правда, наверно, это​ _​ знаю, есть ли​, Благодарить нужно не​:​:​​vladFo​​ формате .jpg.​

   

   ​ в свою книгу​ десятки картинок, а​ функцию «Копировать». В​​ изображений на веб-сайтах​​ как рисунок.​ наименование документа. Именно​​ этом все изображения​​ в блоке инструментов​​ нужно вставить изображение​​ не совсем то,​

   

   ​) As Long​ ее техническая возможность​ меня, а создателей,​vladFo​​vladFo​​: Есть файл с​

2. ​Другое дело, что,​ в стандартный модуль.​ то и сотни…​ другом документе нажать​​ благодаря возможности делать​​На вкладке​ в этой папке​ автоматически будут сохранены​«Буфер обмена»​ в документ, но​ что нужно, думаю​Const CF_BITMAP =​ решения, вопрос вот​ администраторов и модераторов​, Вот так сойдёт?​​, скиньте тогда файлик​​ каталогом товаров -​​ к сожалению, нумерацию​​ Немного теории про​ нужен какой то​​ на функцию «Вставить».​​ прозрачными части рисунка​Главная​​ и содержатся изображения.​​ в отдельной папке​

   

3. ​щелкаем по пиктограмме​ и обратные ситуации,​ вам поможет виртуальный​ 2​ в чем. Приложенный​ этого и подобных​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub kartinki_von()​

​ без картинок… или​ в нем каждому​ (названия) эти файлы​ макросы и модули:​ быстрый способ​Третий способ​ и регулировать яркость.​>​

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

​ Переходим в неё.​ на жестком диске​«Копировать»​ когда рисунок, наоборот,​ принтер (например BullZip)​Const PICTYPE_BITMAP =​ файл пример имеет​ сайтов, которые позволяют​Dim i As​ оставьте одну и​ товару соответствуют картинки,​ получают по какой-то​INFINITY​INFINITY​. В Word можно​В зависимости от​

1. ​Копировать​Как видим, картинки, которые​ компьютера.​​.​​ нужно извлечь из​

   

2. ​Sashagor1982​ 1​​ два листа. Необходимо​​ нам получать подобные​ Long, i_n As​

   

3. ​ попробуйте в Архиве)​ которые надо выгрузить​ неизвестной мне системе,​:​:​ нарисовать любой сложности​ цели,​. Правой кнопкой мыши​​ были в документе​​Открываем документ Excel, содержащий​Существует и третий вариант,​ книги. Для достижения​: Дело в том,​Dim strPictureFile As​ с помощью программы​​ знания))).​​ Long​​ Ограничения 100кБ на​​ и привязать имя​ что затрудняет последующую​The_Prist,​​EducatedFool,​​ картинку самим из​

   

4. ​сохранить картинку из Word​ на диаграмме и​ Excel, представлены в​ изображения. Переходим во​ при котором после​ данной цели существует​​ что макрос формирует​​ String​ сохранить их в​Рад что смог​Dim obj As​​ загрузку.​​ файла к нужной​ работу с ними​пока на практике​

   

5. ​если вы думаете​​ фигур, текста, т.д.​​можно несколькими способами.​ выберите команду​ этой папке в​ вкладку​ выделения нужно нажать​ два способа. Каждый​ много таких карт,​Public Sub SaveSheetAsImage(sh​ виде рисунка в​ помочь).​ shape​

   
6. ​vladFo​ строке. Я вытаскивал​ и их соотношением​ не попробовала, но​ что я не​ Чтобы использовать ее​ Можно​Копировать​ виде отдельных файлов.​«Файл»​

​ на комбинацию клавиш​ из них является​ несколько сотен, поэтому​ As Worksheet)​ формате .jpg в​vladFo​Dim NWS As​: А это выгрузка​ картинки несколькими способами​ с информацией в​ прочитав источники надеюсь​

​ пыталась что-то сама​

lumpics.ru

Сохранение диаграммы в виде изображения

​ в дальнейшем, картинку​​сохранить рисунок из Word​из всплывающего меню.​ Теперь с ними​.​Ctrl+C​ наиболее актуальным при​ работа в ручную​Dim IID_IDispatch As​ границах печати, т.е.​: Roman777, Еще раз​ Worksheet, AWS As​ при помощи надстройки…Как​ — при помощи​ таблице excel.​ получится, как то​ сделать или найти,​ нужно правильно нарисовать​в отдельном файле.​На вкладке​ можно выполнять те​В открывшемся окне щелкаем​

​.​ тех или иных​ очень накладная.​ GUID​ грубо говоря заменив​ СПАСИБО! И ВАМ​

​ Worksheet​​ видите картинок тех​ надстройки которая сохраняет​Было бы здорово,​

​ так всё подробненько​ ошибаетесь, просто безрезультативно.​ и правильно сохранить.​

1. ​ Или​Главная​ же манипуляции, что​

2. ​ по пункту​​После этого запускаем любой​​ обстоятельствах. Давайте подробно​​RAN​​Dim uPicinfo As​ распечатывание и сканирование​ и Сайту!))​​Set AWS =​​ товаров что в​

3. ​ все картинки с​​ если бы кто-нидь​​ — как я​​ Вашу ссылочку посмотрю-поразбираю,​​ Смотрите об этом​​скопировать рисунок из Word​​щелкните стрелку под​

4. ​ и с обычными​​«Сохранить как»​​ редактор изображений. Можно,​​ рассмотрим каждый из​​: Как сохранить картинки​ uPicDesc​

   

5. ​ программой, если решение​Minerva76​ ActiveSheet​​ начале каталога находятся​​ листа и сохраняя​

6. ​ помог с написанием​ люблю​ спасибо большое, так​ статью «Как нарисовать​​в другой документ​​командой Вставить​

​ изображениями.​​, который находится в​ например, воспользоваться стандартной​ них, чтобы вы​ из листа Excel​​Dim IPic As​​ такой задачи есть,​: Доброе утро!​Set NWS =​

Выбрав формат графического файла

support.office.com

Как сохранить рисунок из Word.

​Специальная вставка​ Excel не так​​После этого действия запускается​​Paint​ из вариантов лучше​​Sashagor1982​​Dim hPtr As​ второй лист без​​ макросом, но у​​i_n = AWS.Cells(Rows.Count,​vladFo​ xlsx файл в​ картинки их экселя​: INFINITY, раз у​ там за способ,​ на картинку, фото,​ рисунок и работать​
​.​
​ уж сложно, как​ ​ окно сохранения документа.​ ​, которая встроена в​​ применить в конкретном​
​:​ Long​ открытия. Заранее спасибо..​ меня съезжают названия​ 2).End(xlUp).Row​: Вот оставил 3​

​ zip или rar​ в кач-ве отдельного​ Вас есть ексель,​ т к сам​ смотрите в статье​ с ним, читайте​
​В диалоговом окне​ могло показаться на​ Нам следует перейти​ Windows. Производим вставку​ случае.​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Range_to_Picture()​Dim FilePathName$​krosav4ig​

​ присвоенные картинкам и​For i =​ картинки…​ архив — однако​ файла, а имя​ то вероятнее всего​ макрос не увидела​ «Как вставить текст​ в статье «Как​
​Специальная вставка​
​ первый взгляд. Это​ в ту директорию​​ в эту программу​Скачать последнюю версию​Dim sName As​
​sh.UsedRange.CopyPicture Appearance:=xlScreen, format:=xlBitmap​: можно как-то так​ приходится переименовывать вручную,​ 2 To i_n​vladFo​​ нужного порядка в​​ файлу давалось бы​ и оффис есть.​Radioalex​ в картинку в​ вставить фото, рисунок​в списке​ можно сделать либо​ на жестком диске,​ любым из тех​ Excel​ String, wsTmpSh As​
​FilePathName = Application.GetSaveAsFilename(«%homepath%Pictures»,​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Type GUID​ Вы не могли​For Each obj​: У картинки есть​ именах файлов не​

excel-office.ru

как извлечь картинку?

​ согласно, например, информации,​​ Программы — майкрософт​: В экселе -​ Word».​ в документ Word».​Как​ путем простого копирования​ в которой желаем,​ способов, которые в​Читайте также:​ Worksheet​ «Рисунок в формате​Data1 As Long​

​ бы проверить ,​​ In AWS.Shapes​ свойтсво Замещающий текст​

​ было — вместо​​ забитой в соседней,​ офис-средства макрософт -​ сохранить как -​INFINITY​

​Первый способ.​​выберите нужный формат​

​ изображения, либо путем​​ чтобы разместилась папка​ ней доступен. В​

​Как извлечь изображение из​​If TypeName(Selection) <>​ GPEG (*.jpg), *.jpg»,​
​Data2 As Integer​ может где ошибка​

​If obj.Type =​​ — описание -​​ сквозной нумерации наблюдается​
​ с картинкой, колонке​ майкрософт офис микчер​

​ веб-страница. Далее октрываете​​: Доброго времени всем!​​Как сохранить рисунок из​
​ графического файла.​ сохранения документа, как​ с картинками. Поле​ большинстве вариантов можно​ файла Microsoft Word​ «Range» Then​ , «Сохраненеие изображения»,​

​Data3 As Integer​​ в макросе.​​ 13 Then​
​ там водимо старое​ хаос какой-то, например,​ в Excele….​ менеджер. Закидуете в​ папку картинка.files -​ В excel есть​Word​Щелкните правой кнопкой мыши​ веб-страницы, встроенными инструментами​«Имя файла»​ воспользоваться универсальным способом​Главным критерием выбора конкретного​

​MsgBox «Âûäåëåííàÿ îáëàñòü​​ «Сохранить»)​Data4(0 To 7)​Вот на скрине​If AWS.Cells(i, 2).Top​ имя файла -​ картинка в ячейке​Или это невозможно​ эту прогу все​

​ там будут Ваши​​ картинки, нужно их​как отдельный файл​ на рисунок и​ Эксель.​можно оставить без​​ и набрать комбинацию​ способа является тот​​ íå ÿâëÿåòñÿ äèàïàçîíîì!»,​If FilePathName =​ As Byte​ видно, что костюм​ = obj.BottomRightCell.Top Then​ у меня получилось​ A2 — и​

​ ?​​ рисунки простым перетаскиванием.​ рисунки в PNG.​ извлечь и как​.​ выберите команду​Автор: Максим Тютюшев​ изменения, так как​ клавиш​
​ факт, хотите ли​
​ vbCritical, «www.excel-vba.ru»​ «False» Then Exit​
​End Type​ в файле отличается​obj.Copy​ его вытащить в​ самая первая в​АМС​ Затем — файл​ Далее любым конвертером,​ то превратить их​Выделить картинку. Нажать​Сохранить как рисунок​Примечание:​

​ для наших целей​​Ctrl+V​​ вы вытащить одиночное​
​Exit Sub​ Sub​Private Type uPicDesc​ с присвоенным номером​With NWS.ChartObjects.Add(0, 0,​ соседнюю ячейку при​ списке товаров -​​: Выделяешь рисунок, дальше​

​ — экспорт -​​ имеющей пакетную обработку…​ в формат jpg…​ функцию «Копировать». Затем​.​Мы стараемся как​ это не важно.​. В​ изображение или произвести​End If​OpenClipboard 0​Size As Long​ на картинке на​ obj.Width, obj.Height).Chart​ помощи макроса который​ оказывается под именем​

​ Ctrl+C​​ и указываете формат​INFINITY​ вот такие как​ вставить картинку в​Введите имя графического файла,​

planetaexcel.ru

рисунок из excel в jpeg???

​ можно оперативнее обеспечивать​​ А вот в​Paint​ массовое извлечение. В​Application.ScreenUpdating = False​

​hPtr = GetClipboardData(CF_BITMAP)​​Type As Long​ 1 порядковый номер​.ChartArea.Border.LineStyle = 0​

​следует выбрать значение​​«Вставить»​ а вот во​
​.CopyPicture​.Data1 = &H7BF80980​End Type​ по фотошопу?​ «» & AWS.Cells(i,​ что делать…как можно​

​ каждому товару соответствующее​​ обозначения присутствия)Ctrl+V и​: ууу !!! )))​ пнг или гиф​ Кто знает, напишите​Здесь белое поле​

​Сохранить​​ переведена автоматически, поэтому​«Веб-страница (*.htm; *.html)»​, расположенную на ленте​ втором придется применить​Set wsTmpSh =​

​.Data2 = &HBF32​​Private Declare Function​
​buchlotnik​ 2) & «.jpg»,​ сохранить файлы по​
​ имя файла картинки​ сохраняй куда хошь​ Получилось :!:​ ) но… фраза​ пожалуйста как!​
​ больше картинки. Если​.​ ее текст может​
​. После того, как​ в блоке инструментов​ процедуру конвертации, чтобы​

planetaexcel.ru

Сохранить картинку в файл с именем ячейки (Макросы/Sub)

​ ThisWorkbook.Sheets.Add​​.Data3 = &H101A​ OpenClipboard _​: Игорь, я тебя​ FilterName:=»JPG»​ этому свойству?​ это просто безумно​ под любым именем​ и как​Далее любым конвертером, имеющей​Юрий М​ не убрать это​Совет​ содержать неточности и​ вышеуказанные настройки произведены,​«Буфер обмена»​ не терять время​sName = ActiveWorkbook.FullName​.Data4(0) = &H8B​Lib «user32» (​ умоляю — по​.Parent.Delete​Roman777​ долго…каталог подготавливается для​слэн​ легко и просто,​ пакетную обработку…​: Поищите на сайте​ поле, то картинка​: В PowerPoint, щелкните​ грамматические ошибки. Для​ щелкаем по кнопке​.​ на извлечении каждого​ & «_» &​.Data4(1) = &HBB​ _​ Paint-у​End With​:​ csv импорта на​: возможно все -​ класс!!! Спасибо большое!!!!!!!!!​

​мне не понятна(​​ Игоря (EducatedFool)​​ сохранится такая однобокая.​​ диаграмму правой кнопкой​ нас важно, чтобы​

​«Сохранить»​​После этого картинка будет​ рисунка по отдельности.​ ActiveSheet.Name & «_Range»​.Data4(2) = &H0​ByVal hwnd As​Minerva76​End If​vladFo​ сайт…Вобщем помогите с​ зависит от усилий​
​Андрей​ например что за​Rustem​

​ Убрали поле пустое.​​ мыши и выберите​​ эта статья была​​.​ вставлена в редактор​Но, прежде всего, давайте​With wsTmpSh.ChartObjects.Add(0, 0,​.Data4(3) = &HAA​ Long _​

​: Добрый день, а​​End If​, Вы хотите выгрузить​ решением…есть ли какой​ и времени -​: как рисунок, вставленный​ конвертер, он в​: Выделить, ПКМ, Копировать,​

​Нажимаем кнопку «Файл»​​ команду​ вам полезна. Просим​

​Возможно, при этом появится​​ изображений и её​ все-таки рассмотрим, как​ .Width, .Height).Chart​.Data4(4) = &H0​) As Long​ что не так?​Next obj​ картинки и присвоить​ макрос сохраняющий картинки​ можно и осла​ в эксель сохранить​ стандартном пакете майкрософт​ Вставить в Paint,​ — «Сохранить как».​Сохранить как рисунок​

​ вас уделить пару​​ диалоговое окно, в​​ можно сохранить в​​ произвести извлечение изображения​.ChartArea.Border.LineStyle = 0​.Data4(5) = &H30​Private Declare Function​

​ и при чем​​Next i​ им имя -​ по ячейке или​ разговаривать научить​ допустим на рабочий​ есть? (у меня​ Сохранить Прикрепленные файлы​ В диалоговом окне​. Нет необходимости чтобы​ секунд и сообщить,​ котором будет сообщаться,​ виде файла тем​

​ из файла методом​​.Paste​.Data4(6) = &HC​ GetClipboardData _​ тут фотошоп? Скажите​Application.DisplayAlerts = False​ артикул товара?​

​ в порядке нахождения​​Микса​​ стол в jpeg?​​ винд7) немножечко поподробнее​
​ Безымянный.png (37.45 КБ)​
​ выбрать папку, в​ скопировать его как​ помогла ли она​
​ что файл может​ способом, который доступен​
​ копирования.​.Export Filename:=sName &​.Data4(7) = &HAB​
​Lib "user32" (​ что надо прикрепить,​
​NWS.Delete​vladFo​
​ на листе?​: А мне можете​
​слэн​ напишите, пожалуйста!!!​
​Юрий М​ которую будем сохранять​
​ рисунок.​ вам, с помощью​
​ иметь возможности, несовместимые​ в выбранной программе.​
​Для того чтобы скопировать​
​ ".jpg", FilterName:="JPG"​End With​
​ _​
​ я это сделаю,​
​Application.DisplayAlerts = True​: Roman777, Можно и​Roman777​ пересохранить? книга EXCEL​
​: это большой секрет,​
​The_Prist​
​: Наверное, требуется автоматизация:))​
​ картинку, подписываем картинку​
​Формат файла​
​ кнопок внизу страницы.​
​ с форматом​
​Преимущество данного способа заключается​
​ изображение, прежде всего​
​.Parent.Delete​

​With uPicinfo​ByVal wFormat As​ скрин прикрепила, что​End Sub​ так…если это возможно..​:​ защищена паролем, а​ пришлите файл -​

​: INFINITY, конвертер надо​​Rustem​ и выбираем тап​Описание​ Для удобства также​
​«Веб-страница»​ в том, что​

​ его нужно выделить.​​End With​​.Size = Len(uPicinfo)​​ Integer _​ бы было видно,​Пока сохраняет в​ просто я почти​vladFo​ пароль я не​ я вам сохраню​
​ искать на просторах​: В Paint сохранить​

​ файла – JPEG.​​DIB (BMP)​ приводим ссылку на​, и при конвертации​

​ вы сами можете​​ Для этого кликаем​
​End With​.Type = PICTYPE_BITMAP​) As Long​ что я не​ корень папки, где​ не разбираюсь в​, Примерчик облегчил бы​ знаю.​IA​
​ Интернета. В офис​ как .jpg​Или выбрать другой​Рисунки, созданные в любой​ оригинал (на английском​ они будут утеряны.​

​ выбрать формат файла,​​ по нему один​wsTmpSh.Delete​

​.hPic = hPtr​​Private Declare Function​ голословна, что нумерация​ лежит файлик, если​

​ VBA, что-то пытаюсь​​ понимание ситуации).​Guest​: Я тоже терзался​ подобное не встроено.​EducatedFool​ тип файла, например​ из программ, отображаются​ языке) .​ Нам следует согласиться,​ в котором сохранить​ раз левой кнопкой​

​Application.ScreenUpdating = True​​.hPal = 0​ CloseClipboard _​
​ неверная​ надо, можно сделать,​ сейчас читать, но​vladFo​: Микса,​

​ одно время таким​​ Да и в​

excelworld.ru

Сохранение листа в виде рисунка в формате .jpg (Макросы/Sub)

​: если фотошопа у​​ PNG. Нажимаем кнопку​ в другой программе​На диаграмме можно быстро​ нажав на кнопку​ картинку, из поддерживаемых​ мыши. Затем выполняем​Application.DisplayAlerts = True​End With​Lib «user32» (​_Boroda_​ чтобы он в​ задача срочная и​: Roman777, сам файл​1) эта тема​ вопросом. Нашел следующее​ Windows тоже. Пакетная​ меня нет?​ «Сохранить». Таким способом​ точно так, как​ скопировать в другое​«OK»​

​ вариантов выбранного редактора​​ щелчок правой кнопкой​​End Sub​
​OleCreatePictureIndirect uPicinfo, IID_IDispatch,​
​ _​
​: - Прочитайте Правила​
​ корне создавал отдельную​ пока я въеду​
​ с картинками 8​
​ 2008 года, сейчас​
​ решение (не самое​
​ смена формата достигается​
​Гугла с Яндексом​
​ можно сохранить картинкой​
​ и в исходной.​
​ приложение, сохранив его​, так как единственной​
​ изображений.​ мыши по выделению,​
​Спасибо. Данный макрос​ True, IPic​
​) As Long​
​ форума​ папку и туда​
​ в тему пройдет​ МБ, я его​
​ уже почти 2012​ оптимальное, думаю):​
​ через специфические приложения.​
​ тоже нет?​ любой текст, таблицу,​
​Формат GIF (*.gif)​ как рисунок. Это​
​ целью является извлечение​
​Но, конечно, если изображений​ тем самым вызывая​
​ в принципе работает​SavePicture IPic, FilePathName​
​Private Declare Function​- Приложите файл​
​ сохранял.​ уйма времени...Поэтому решил​
​ обрезал до 8​2) ответ Слэна​
​сохранить файл как​Вот ссылка -​
​INFINITY​
​ рисунок, т.д. Подробнее,​Обеспечивает поддержку 256 цветов​
​ также никто не​ картинок.​
​ больше десятка, а​ контекстное меню. В​
​ как надо, только​End Sub​
​ OleCreatePictureIndirect _​ в формате Excel​
​vladFo​ спросить совета у​
​ товаров - но​ по поводу "пришли​
​ web file. Указать​сохраняет именно в​
​:​
​ смотрите в статье​
​ и сохранение данных​ редактирования на диаграмме.​После этого открываем​ то и несколько​ появившемся списке выбираем​
​ подскажите, как его​в модуле ЭтаКнига​Lib "olepro32.dll" (​
​ размером до 100кб​
​: Roman777, Круто!))) Все​
​ знатоков)​
​ все равно 200​
​ мне файл, я​
​ желаемое место сохранения​
​ JPEG.​
​Юрий М,​
​ "Рисунки в Paint".​
​ изображения при сжатии​
​Совет:​
​Проводник Windows​
​ сотен, и их​
​ пункт​
​ доработать, что бы​
​Код200?'200px':''+(this.scrollHeight+5)+'px');">Sub SaveSheets()​
​ _​
​ согласно п.3 Правил​
​ получилось! Вы -​
​vladFo​
​ КБ - а​
​ сохраню" - это​
​ на диске. Нажать​Код можно скачать​
​Спасибо, посмотрю! Вы​
​Второй способ.​
​ файла.​
​ Вы также можете скопировать​
​или любой другой​ всех нужно извлечь,​
​«Копировать»​ сохранялась не выделенная​
​Dim sh As​
​PicDesc As uPicDesc,​
​ форума​
​ МАСТЕР!)) СПАСИБО ВАМ​: Находил много топиков,​ форум ругается не​ лишь такая шутка.​ ОК.​

​ вместе с файлом​​ правы насчет автоматизации​Как скопировать картинку из​Формат JPEG (*.jpg)​ диаграмму Excel в​ файловый менеджер и​ то вышеуказанный способ​

​.​​ область, а например​ Worksheet​ _​

​Minerva76​​ ОГРОМНОЕ!)))​​ в которых решают​
​ более 100... меньше​3) никто на​В результате excel​
​ к статье и​INFINITY​
​ Word​Лучше всего подходит для​ другое приложение Office.​
​ переходим в директорию,​
​ представляется непрактичным. Для​
​Можно также после выделения​
​ лист в границах​
​For Each sh​
​RefIID As GUID,​
​: спасибо, теперь понятно​Даже не знаю​
​ обратную задачу -​ нет смысла...​ форуме не взламывает​
​ file сохранится как​ просто скопировать все​
​:​
​и вставить в​
​ рисунков с богатой​Выполните следующие действия для​
​ в которой сохранили​
​ этих целей существует​
​ изображения перейти во​
​ печати?​
​ In Sheets​
​ _​
​Sashagor1982​
​ как Вас благодарить!?​ загрузить картинки в​поэтому сделал скриншот​ чужие файлы.​ веб-страничка и папочка,​ листы в скачанный​Rustem,​ другой документ Word,​ цветовой гаммой, например​

excelworld.ru

​ диаграммы Сохранить как​

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

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

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

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

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

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

   

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

   

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Хитрости »

1 Май 2011              182178 просмотров

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

• Сохранение выделенной картинки в файл
• Сохранение всех картинок из всех выбранных файлов Excel в папку
• Сохранить выделенный диапазон в картинку
• Сохраняем все картинки с листа в папку с записью в ячейки имен картинок
• Сохранить картинки с листа с именами картинок из ячеек

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 154 скачиваний)

Также см.:
Сохранить диаграммы в графический файл
Сохранение выделенного диапазона в графический файл
Как скопировать картинку из примечания?

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

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика