Сохранить лист excel как картинку

Была ли эта статья полезной?

Как из диаграммы Excel создать графический файл либо экспортировать ее в Word или PowerPoint

​Смотрите также​ не совсем то,​ 1​ формате .jpg в​Можно настроить автосохранение​ документа» — «Рабочий​ случае, при сохранении​Сохранить как рисунок​ кнопок внизу страницы.​ выделена полностью.​

​(Customize Ribbon). В​ так что изобретать​Сохранить​ нему – откроется​, щёлкните правой кнопкой​ кликать мышью по​ в том числе​Прочитав эту статью, Вы​ что нужно, думаю​Dim strPictureFile As​ границах печати, т.е.​ книги, чтобы Excel​ стол» из левой​ книги Excel (когда​. Нет необходимости чтобы​ Для удобства также​Снова откройте вкладку​

​ правой части окна,​ колесо заново нам​(Save) выбран параметр​ одноименное диалоговое окно​ мыши в любом​ самому графику, поскольку​ Word и PowerPoint,​ узнаете, как в​ вам поможет виртуальный​ String​ грубо говоря заменив​ периодически во-время работы​ части диалогового окна.​ нажмем на крестик​ скопировать его как​​ приводим ссылку на​​Разработчик​​ в списке​​ не придётся​Всю Книгу​ с перечнем доступных​ месте документа, и​ так будут выбраны​ или использовать её​

​ Excel создать из​ принтер (например BullZip)​Public Sub SaveSheetAsImage(sh​ распечатывание и сканирование​ в таблице, сохранял​ Книга сохранится на​ в правом верхнем​ рисунок.​ оригинал (на английском​(Developer) и кликните​Основные вкладки​Например, можно использовать проверенное​

• ​(Entire Workbook), как​ графических форматов, в​ перед Вами откроется​
• ​ отдельные элементы, а​ для создания какой-нибудь​ диаграммы отдельный графический​
• ​Sashagor1982​ As Worksheet)​ программой, если решение​
• ​ изменения, чтобы не​ рабочем столе, но​ углу), выйдет такое​

Копируем диаграмму в графический редактор и сохраняем как картинку

​Формат файла​ языке) .​ иконку​(Main Tabs) поставьте​ и надёжное решение,​ это показано на​ том числе Bitmap​ целый набор дополнительных​​ не вся диаграмма​​ привлекательной инфографики.​ файл (.png, .jpg,​: Дело в том,​Dim IID_IDispatch As​ такой задачи есть,​ потерялись данные при​ не закроется.​ диалоговое окно.​Описание​На диаграмме можно быстро​Макросы​ галочку рядом с​ опубликованное Джоном Пелтье​ снимке экрана ниже:​ (точечный рисунок), GIF,​

​ параметров в разделе​ целиком, и команда​Копируем диаграмму в графический​ .bmp или другой​ что макрос формирует​ GUID​ то если возможно​ сбое. Смотрите статью​Третий способ.​Программа Excel​DIB (BMP)​ скопировать в другое​

1. ​(Macros). Откроется список​Разработчик​ в своём блоге.​​Выберите папку для сохранения​​ PNG и JPEG.​Параметры вставки​Копировать​ редактор и сохраняем​ формат) или экспортировать​ много таких карт,​Dim uPicinfo As​​ второй лист без​​ об этом «Автосохранение​
2. ​Мы создаем большую​, с помощью этого​Рисунки, созданные в любой​​ приложение, сохранив его​​ макросов, доступных в​​(Developer) и нажмите​​ Его макрос очень​​ файлов и нажмите​​Выберите нужный формат и​
3. ​(Paste options).​(Copy) не появится.​ как картинку​​ её, например, в​​ несколько сотен, поэтому​ uPicDesc​ открытия. Заранее спасибо..​ в Excel».​ сложную таблицу в​ диалогового окна, спрашивает​ из программ, отображаются​​ как рисунок. Это​​ Вашей рабочей книге.​ОК​

​ прост:​ кнопку​ нажмите​Главное преимущество такого способа​

Экспортируем диаграмму из Excel в Word или в PowerPoint

​Откройте Paint и вставьте​Экспортируем диаграмму из Excel​ документ Word или​ работа в ручную​Dim IPic As​krosav4ig​Мы сделали свою​ течение продолжительного времени.​ нас, куда мы​

1. ​ в другой программе​ также никто не​ Выделите​​.​​ActiveChart.Export «D:My ChartsSpecialChart.png»​
2. ​Сохранить​ОК​ в том, что​ диаграмму при помощи​ в Word или​ в презентацию PowerPoint.​​ очень накладная.​​ IPicture​​: можно как-то так​​ хорошую таблицу, бланк,​ Чтобы не потерять​ хотим сохранить нашу​ точно так, как​ редактирования на диаграмме.​SaveSelectedChartAsImage​​Дайте название новому макросу,​​Эта строка кода создаёт​

​(Save).​.​ таким образом в​ иконки​ в PowerPoint​Microsoft Excel – это​RAN​Dim hPtr As​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Type GUID​ другой документ. Теперь​ эти данные, нужно​ книгу.​ и в исходной.​Совет:​и нажмите кнопку​ например,​ в заданной папке​В выбранную папку вместе​

Сохраняем диаграмму в Word и PowerPoint как картинку

​Скорее всего, инструмент​ другой файл экспортируется​Вставить​Сохраняем все диаграммы рабочей​ одно из самых​: Как сохранить картинки​ Long​Data1 As Long​ хотим сохранить его​ периодически сохранять таблицу,​В левом верхнем​Формат GIF (*.gif)​

1. ​ Вы также можете скопировать​Выполнить​SaveSelectedChartAsImage​ графический файл​ с файлами​Специальная вставка​ полнофункциональная диаграмма Excel,​(Paste) на вкладке​ книги Excel как​​ мощных приложений для​​ из листа Excel​Dim FilePathName$​​Data2 As Integer​​ как шаблон для​
2. ​ не закрывая её.​ списке этого окна​​Обеспечивает поддержку 256 цветов​​ диаграмму Excel в​(Run).​, и сделайте его​.png​.html​(Paste Special) доступен​ а не просто​Главная​ картинки​ анализа данных. В​ в картинки JPG​
3. ​sh.UsedRange.CopyPicture Appearance:=xlScreen, format:=xlBitmap​Data3 As Integer​​ дальнейшей работы. Как​​ Для этого нажимаем​

​ перечислены папки, в​​ и сохранение данных​​ другое приложение Office.​Теперь откройте папку, которую​ доступным только для​и экспортирует в​будут скопированы все​ и в более​ рисунок. График сохранит​

Сохраняем все диаграммы рабочей книги Excel как картинки

​(Home) и нажав​Сохраняем диаграмму как картинку​ его арсенале найдётся​Sashagor1982​FilePathName = Application.GetSaveAsFilename(«%homepath%Pictures»,​Data4(0 To 7)​ это сделать, смотрите​ кнопку «Сохранить» в​ которые можно сохранить​ изображения при сжатии​Выполните следующие действия для​ указали для сохранения​ данной рабочей книги.​ него диаграмму. Вы​ диаграммы, содержащиеся в​ ранних версиях Office,​ связь с исходным​Ctrl+V​ при помощи макроса​ множество инструментов и​

1. ​:​ «Рисунок в формате​ As Byte​​ в статье «Сохранить​​ левом верхнем углу.​ книгу Excel.​​ файла.​​ диаграммы Сохранить как​
2. ​ файла – там​​Нажмите кнопку​​ сможете создать свой​ книге Excel в​​ но в те​​ листом Excel и​.​​ VBA​​ функций для визуализации​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Range_to_Picture()​ GPEG (*.jpg), *.jpg»,​​End Type​​ свою таблицу как​​Данные в нашей​​А в правом​Формат JPEG (*.jpg)​ рисунок.​
3. ​ должна быть картинка​Создать​ первый макрос прямо​​ виде файлов​​ времена я им​

​ будет автоматически обновляться​Теперь осталось только сохранить​​Одна моя подруга однажды​​ этих данных. Диаграммы​Dim sName As​ , «Сохраненеие изображения»,​Private Type uPicDesc​​ шаблон Excel».​​ таблице сохранятся, но​ верхнем списке перечислены​Лучше всего подходит для​Щелкните диаграмму, к которой​.png​(Create), при этом​ сейчас за 4​.png​ не пользовался, поэтому​ при изменении данных​ диаграмму как графический​ поделилась со мной​ (или графики) –​​ String, wsTmpSh As​​ «Сохранить»)​

​Size As Long​Дмитрий догадкин​ таблица останется открытой​ папки, которые находятся​ рисунков с богатой​ вы хотите сохранить​с экспортированной диаграммой.​ откроется окно редактора​ простых шага, даже​. Ниже на снимке​​ утверждать не буду​​ на этом листе​​ файл. Нажмите​​ секретом: она обычно​​ это один из​​ Worksheet​If FilePathName =​

Сохраняем диаграмму как картинку при помощи макроса VBA

​Type As Long​: Есть такая команда​ и можно продолжить​ в выделенной папке​ цветовой гаммой, например​ как рисунок.​ Таким же образом​ Visual Basic, в​ если не делали​ экрана показано содержимое​Способы, которые мы только​

​ Excel. А значит,​Сохранить как​ копирует свои диаграммы​ таких инструментов. Чтобы​If TypeName(Selection) <>​ «False» Then Exit​

​hPic As Long​

​ «Камера» (Camera). Только​ работать в ней.​ из левого списке.​​ для отсканированных фотографий.​​На вкладке​ можно сохранять диаграммы​ котором уже будут​ этого никогда в​ папки, в которую​ что обсудили, будут​ не придётся заново​(Save as) и​ из Excel в​

​ создать диаграмму в​ «Range» Then​ Sub​hPal As Long​ ее нет на​Четвертый способ.​​Например, на картинке:​​Формат PNG (*.png)​​Главная​​ в другом формате.​ обозначены начало и​ жизни.​

1. ​ я сохранил свою​ удобны, когда речь​​ копировать и вставлять​​ выберите один из​ Paint. Она создаёт​​ Excel нужно просто​​MsgBox «Âûäåëåííàÿ îáëàñòü​​OpenClipboard 0​​End Type​

​ ленте. Ее надо​​Мы открыли книгу​ выделена папка «Общие»​Позволяет улучшать качество графических​>​​ Для этого достаточно​​ конец нового макроса.​Перед тем как приступить​ рабочую книгу. Моя​​ идёт о небольшом​​ диаграмму при каждом​​ предложенных форматов (.png,​​ диаграмму и просто​ выбрать данные и​​ íå ÿâëÿåòñÿ äèàïàçîíîì!»,​​hPtr = GetClipboardData(CF_BITMAP)​Private Declare Function​ добавить (найти через​​ Excel на рабочем​​ и в этой​ изображений на веб-сайтах​​Копировать​​ в макросе изменить​​ Во вторую строку​​ к написанию макроса,​

1. ​ книга Excel состоит​ количестве диаграмм. Но​​ изменении использованных для​​ .jpg, .bmp или​ нажимает клавишу​ кликнуть иконку построения​
2. ​ vbCritical, «www.excel-vba.ru»​​CloseClipboard​​ OpenClipboard _​ поиск и добавление​ столе, долго в​ папке находятся папки:​ благодаря возможности делать​. Правой кнопкой мыши​.png​ скопируйте вот такой​ подготовьте папку для​

   ​ из трёх листов​

   

3. ​ что если Вам​ её построения данных.​​ .gif). Если хотите​​PrintScreen​​ диаграммы в соответствующем​​Exit Sub​With IID_IDispatch​Lib «user32» (​​ команд).​ ней работали. У​​ «Общая музыка», «Общие​ прозрачными части рисунка​ на диаграмме и​на​

​ текст макроса:​ экспорта диаграммы. В​ с диаграммой на​ нужно скопировать все​В приложениях Office 2007,​ выбрать другой формат,​, затем открывает Paint​ разделе меню.​End If​.Data1 = &H7BF80980​ _​Сфотографирует любую таблицу,​ нас получилась, готовая​ видео», т.д.​ и регулировать яркость.​ выберите команду​.jpg​ActiveChart.Export «D:My ChartsSpecialChart.png»​

​ нашем случае это​​ каждом – и​​ диаграммы из рабочей​ 2010 и 2013​​ нажмите​​ и вставляет снимок​Но, говоря о достоинствах,​Application.ScreenUpdating = False​.Data2 = &HBF32​​ByVal hwnd As​​ даже если она​​ для работы, таблица​​Если нажмем на​

​Программа Excel имеет​Копировать​или​Закройте редактор Visual Basic​​ будет папка​​ в выбранной мной​ книги Excel? Если​ диаграмму Excel можно​Другие форматы​ экрана. После этого​ нужно упомянуть и​​Application.DisplayAlerts = False​​.Data3 = &H101A​​ Long _​​ не помещается на​​ и мы хотим​​ кнопку «Новая папка»​

​ несколько способов​

​из всплывающего меню.​.gif​ и на вкладке​My Charts​ папке мы видим​

​ копировать и вставлять​ скопировать как картинку.​
​(Other formats) в​
​ обрезает ненужные области​

​ слабые стороны. К​

office-guru.ru

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

​With Selection​​.Data4(0) = &H8B​) As Long​ экране.​ её сохранить, но​ (вверху окна), то​сохранить таблицу Excel​На вкладке​– вот так:​Файл​на диске​ три диаграммы, сохранённые​ каждую из них​ При этом она​ конце списка.​ снимка и сохраняет​ сожалению, в Excel​.CopyPicture​.Data4(1) = &HBB​Private Declare Function​Нунадоже​ не на рабочем​

​ создастся новая папка.​. Сохранить свою таблицу​Главная​ActiveChart.Export «D:My ChartsSpecialChart.jpg»​(File) нажмите​D​

​ как графические файлы​​ по-отдельности, то на​ будет вести себя​Проще не бывает! Чтобы​

​ оставшуюся картинку в​ нет простого способа​Set wsTmpSh =​

1. ​.Data4(2) = &H0​ GetClipboardData _​: Сфотать кнопкой Print​

2. ​ столе, а в​​ Эту папку подписываем.​​ как шаблон Excel.​​щелкните стрелку под​​На сегодня всё, и,​Сохранить как​. Итак, все приготовления​​.png​​ это может уйти​

3. ​ как обычная картинка​​ сохранить диаграмму Excel​​ файл. Если Вы​​ сохранить диаграмму как​​ ThisWorkbook.Sheets.Add​​.Data4(3) = &HAA​​Lib «user32» (​

4. ​ Screen и вставить​​ специальной папке.​​ Два раза щелкаем​​ Сохранить Excel в​​командой Вставить​ надеюсь, читая эту​

   

5. ​(Save as). Сохраните​ завершены, давайте займёмся​.​​ довольно много времени.​​ и не будет​

6. ​ таким способом, подойдёт​ до сих пор​ картинку или экспортировать​sName = ActiveWorkbook.FullName​​.Data4(4) = &H0​​ _​

​ в Paint. Ваш​​Для этого нажимаем​ по ней левой​ pdf, т.д.​>​​ статью, Вы провели​​ Вашу рабочую книгу​ макросом.​Как известно, PNG –​

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

​ Спешу Вас обрадовать​	​ обновляться. Для примера​
​ любой графический редактор.​	​ поступали так же,​ её в другой​ & «_» &​.Data4(5) = &H30​ByVal wFormat As​
​ К. О.​	​ кнопку «Сохранить как»​ мышкой, папка откроется.​Первый способ.​Специальная вставка​
​ время с пользой.​	​ как​В своей рабочей книге​ это один из​ – этого делать​
​ давайте экспортируем диаграмму​	​Если нужно экспортировать диаграмму​ то скорее забудьте​ документ. Было бы​ ActiveSheet.Name & «_Range»​.Data4(6) = &HC​

support.office.com

Как сохранить таблицу Excel.

​ Integer _​Артем м​​ в левом верхнем​​Если эта папка​Если мы нажимаем​.​ Благодарю за внимание!​
​Книга Excel с поддержкой​
​ Excel откройте вкладку​ лучших форматов сжатия​ не придётся! Есть​ Excel в документ​ из Excel в​ его и больше​ здорово, если бы​With wsTmpSh.ChartObjects.Add(0, 0,​.Data4(7) = &HAB​) As Long​: кнопкой «Print screen»​ углу.​ новая, то в​ на крестик в​В диалоговом окне​
​Урок подготовлен для Вас​
​ макросов​Разработчик​ изображений, в котором​ способ сохранить все​ Word 2010.​ какое-либо другое приложение​ никогда не используйте​ мы могли просто​ .Width, .Height).Chart​End With​Private Declare Function​ на клавиатуре :)​Ещё можно вызвать​
​ ней будет написано​​ красном прямоугольнике, расположенном​Специальная вставка​ командой сайта office-guru.ru​(Excel Macro-Enabled Workbook,​(Developer) и в​
​ не происходит потери​ диаграммы из рабочей​В рабочей книге Excel​ пакета Office, например,​ этот детский способ!​
​ кликнуть правой кнопкой​.ChartArea.Border.LineStyle = 0​With uPicinfo​ CloseClipboard _​Gorbasa​
​ диалоговое окно «Сохранить​ «Эта папка пуста».​ в правом верхнем​в списке​Источник: https://www.ablebits.com/office-addins-blog/2013/08/27/save-excel-chart-as-image/​ *.xlsm). Вот и​
​ разделе​ качества. Если Вы​ книги Excel разом.​ скопируйте диаграмму, затем​ в Word, PowerPoint​ Мы будем действовать​ мыши по графику​.Paste​
​.Size = Len(uPicinfo)​Lib «user32″ (​: жмешь кнопку PrintScreen​ как», нажав на​
​Если мы откроем​ углу таблицы, то​Как​Перевел: Антон Андронов​ всё, Вы сделали​Код​ предпочитаете использовать другие​Когда завершите создание диаграмм​
​ откройте документ Word,​ или Outlook, то​ быстрее и разумнее!​ и увидеть команду​.Export Filename:=sName &​.Type = PICTYPE_BITMAP​
​ _​​открываешь Paint​ клавишу на клавиатуре​​ папку не новую,​ наша таблица сохранится​выберите нужный формат​Автор: Антон Андронов​ это!​(Code) нажмите иконку​ форматы для картинок,​ в книге, откройте​
​ поместите курсор в​
​ лучше всего сделать​Для примера я в​ вроде​ «.jpg», FilterName:=»JPG»​.hPic = hPtr​) As Long​Жмешь ctrl+V​ ноутбука, ПК -​ а ту, которая​ там, где мы​​ графического файла.​Примечание:​Теперь давайте запустим только​Макросы​ то преобразовать их​
​ вкладку​
​ то место, куда​ это через буфер​ своём Excel 2010​Сохранить как рисунок​.Parent.Delete​.hPal = 0​Private Declare Function​Валентин беляев​ F12.​ у нас уже​ её открыли, закроется.​
​Щелкните правой кнопкой мыши​Мы стараемся как​ что созданный макрос,​(Macros).​​ в​Файл​ нужно вставить график,​ обмена.​ создал красивую объёмную​или​
​End With​End With​ OleCreatePictureIndirect _​: Файл.xls преобразовать в​Появится диалоговое окно​ есть, то в​
​ Например, мы открыли​ на рисунок и​ можно оперативнее обеспечивать​ чтобы увидеть, как​Замечание:​.jpg​(File) и нажмите​ и нажмите маленькую​
​Скопируйте диаграмму из Excel,​
​ круговую диаграмму, которая​Экспортировать​End With​OleCreatePictureIndirect uPicinfo, IID_IDispatch,​Lib «olepro32.dll» (​ какой?​ «Сохранение документа». Затем​ ней появятся все​ таблицу на рабочем​
​ выберите команду​ вас актуальными справочными​ он работает. Постойте​Если Вы будете​,​ кнопку​ чёрную стрелочку внизу​ как в предыдущем​ отображает данные о​. Но, раз уж​

excel-office.ru

Как преобразовать таблицу excel в изображение ???

​wsTmpSh.Delete​​ True, IPic​ _​Sashagor1982​ действуем по схеме,​ папки, которые в​ столе, выбрав из​Сохранить как рисунок​
​ материалами на вашем​ минутку… Мы должны​ создавать макрос впервые,​.gif​

​Сохранить как​​ кнопки​ примере на​ демографии посетителей нашего​ корпорация Microsoft не​

​Application.ScreenUpdating = True​​SavePicture IPic, FilePathName​PicDesc As uPicDesc,​

​: Здравствуйте уважаемые форумчане.​​ описанной в этой​
​ ней уже есть.​
​ контекстного меню «Лист​

​.​​ языке. Эта страница​ сделать ещё кое-что.​

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

​ то, скорее всего,​​,​(Save as).​Вставить​Шаге 1​ сайта, и теперь​ позаботилась о создании​Application.DisplayAlerts = True​End Sub​ _​ Необходимо решить не​ статье во втором​В окне «Сохранение​ Microsoft Office Excel».​Введите имя графического файла,​ переведена автоматически, поэтому​ Нужно выбрать диаграмму​ вкладка​.bmp​Появится диалоговое окно​(Paste), которая расположена​.​

​ я хочу экспортировать​​ таких функций для​​End Sub​
​в модуле ЭтаКнига​
​RefIID As GUID,​
​ простую задачу, не​
​ способе.​ документа» в разделе​
​ Книга сохранится на​
​ перейдите в папку​
​ ее текст может​
​ Excel, которую будем​
​Разработчик​
​или любой другой​
​Сохранение документа​
​ на вкладке​Кликните в документе Word​
​ эту диаграмму из​ нас, значит мы​
​Спасибо. Данный макрос​Код200?'200px':''+(this.scrollHeight+5)+'px');">Sub SaveSheets()​
​ _​
​ знаю, есть ли​Книга сохранится в​
​ «Имя файла» пишем​ рабочем столе.​
​ для сохранения файла​ содержать неточности и​
​ экспортировать, поскольку наш​
​(Developer) будет скрыта.​ не составит труда.​
​(Save as). В​Главная​
​ или в презентации​
​ Excel как картинку.​ придумаем что-нибудь самостоятельно.​
​ в принципе работает​Dim sh As​
​ByVal fPictureOwnsHandle As​ ее техническая возможность​
​ выбранной нами папке,​ название нашей книги​
​Второй способ.​ и нажмите кнопку​
​ грамматические ошибки. Для​ макрос работает только​
​ В таком случае​
​Если необходимость экспортировать диаграммы​ выпадающем списке​
​(Home).​ PowerPoint в том​
​ Давайте проделаем это​В этой статье я​
​ как надо, только​ Worksheet​
​ Long, _​ решения, вопрос вот​
​ но и останется​ (на любом языке)​
​Если мы открыли​Сохранить​
​ нас важно, чтобы​ с выделенной диаграммой.​
​ перейдите на вкладку​
​ Excel как картинки​
​Тип файла​В открывшемся меню нас​ месте, куда нужно​ вместе:​ покажу 4 способа​
​ подскажите, как его​For Each sh​IPic As IPicture​
​ в чем. Приложенный​
​ на рабочем столе.​
​ и нажимаем «Сохранить».​
​ книгу Excel через​
​.​
​ эта статья была​
​ Кликните по краю​
​Файл​
​ возникает часто, то​
​(Save as type)​
​ интересует пункт​
​ вставить диаграмму, и​
​Кликните правой кнопкой мыши​
​ сохранить диаграмму Excel​
​ доработать, что бы​
​ In Sheets​
​ _​
​ файл пример имеет​
​ Проверив книгу Excel​
​Если нужно​
​ «Пуск». Подробнее смотрите​
​Совет​
​ вам полезна. Просим​ диаграммы в любом​
​(File), кликните​
​ можно автоматизировать эту​
​ выберите​
​Специальная вставка​
​ нажмите​ по области диаграммы​
​ как картинку, которую​ сохранялась не выделенная​
​SaveSheetAsImage sh​
​) As Long​
​ два листа. Необходимо​
​ в папке, с​сохранить книгу Excel на​ в статье «Как​: В PowerPoint, щелкните​ вас уделить пару​

​ месте. Светло-серая рамка,​​Параметры​ задачу при помощи​Веб-страница​(Paste Special) –​Ctrl+V​ и нажмите​

​ в дальнейшем можно​​ область, а например​Next​Const CF_BITMAP =​

​ с помощью программы​​ рабочего стола –​​ рабочем столе​
​ открыть лист Excel​ диаграмму правой кнопкой​ секунд и сообщить,​
​ появившаяся вокруг диаграммы,​(Options) и откройте​
​ макроса VBA. К​(Web page, *.htm,​ он обозначен стрелкой​
​. Либо вместо нажатия​
​Копировать​
​ будет вставить в​
​ лист в границах​
​End Sub​
​ 2​
​ сохранить их в​ можно удалить.​
​, то выбираем в​ (создать на рабочем​ мыши и выберите​
​ помогла ли она​ будет сигнализировать о​
​ раздел​
​ счастью, подобных макросов​
​ *.html). Проверьте также,​ на снимке экрана​
​Ctrl+V​
​(Copy). Не нужно​
​ другие документы Office,​
​ печати?​
​правда, наверно, это​
​Const PICTYPE_BITMAP =​
​ виде рисунка в​
​Пятый способ.​ диалоговом окне «Сохранение​ столе)». В этом​ команду​ вам, с помощью​ том, что она​Настроить ленту​ уже написано множество,​ что в разделе​

excelworld.ru

​ выше. Кликните по​

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

Примечание: Мы стараемся как можно оперативнее обеспечивать вас актуальными справочными материалами на вашем языке. Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Просим вас уделить пару секунд и сообщить, помогла ли она вам, с помощью кнопок внизу страницы. Для удобства также приводим ссылку на оригинал (на английском языке).

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

Щелкните диаграмму, которую вы хотите сохранить как рисунок.

Выберите команду Копировать с ленты или нажмите клавишиCTRL+Cна клавиатуре.

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

Поместите курсор в то место, где вы хотите вставить диаграмму, а затем выберите команду Вставить на ленте или нажмите клавишиCTRL+Vна клавиатуре.

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

Совет: Если вы обнаружите, что на диаграмме много нежелательного пустого пространства, вы можете удалить его с помощью средства обрезки.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Открываем документ Excel, содержащий изображения. Переходим во вкладку «Файл».

В открывшемся окне щелкаем по пункту «Сохранить как», который находится в левой его части.

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

Возможно, при этом появится диалоговое окно, в котором будет сообщаться, что файл может иметь возможности, несовместимые с форматом «Веб-страница», и при конвертации они будут утеряны. Нам следует согласиться, нажав на кнопку «OK», так как единственной целью является извлечение картинок.

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

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

Вытащить картинки из файла 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, 13 863 скачиваний)

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

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

Уважаемый автор! есть ли возмодность адаптировать «последний код для вытаскивания картинок с присвоением им имен ячеек» к Mac версии Office 365?
Сам я только начал интересоваться VBA и подобный марос был бы очень полезен.

Maxim, к сожалению, у меня нет возможности адаптировать код под MAC, т.к. у меня нет MACbook-а, да и разработкой под MAC не занимаюсь.

Поделитесь своим мнением

Комментарии, не имеющие отношения к комментируемой статье, могут быть удалены без уведомления и объяснения причин. Если есть вопрос по личной проблеме — добро пожаловать на Форум

Как из диаграммы Excel создать графический файл либо экспортировать ее в Word или PowerPoint

Прочитав эту статью, Вы узнаете, как в Excel создать из диаграммы отдельный графический файл (.png, .jpg, .bmp или другой формат) или экспортировать её, например, в документ Word или в презентацию PowerPoint.

Microsoft Excel – это одно из самых мощных приложений для анализа данных. В его арсенале найдётся множество инструментов и функций для визуализации этих данных. Диаграммы (или графики) – это один из таких инструментов. Чтобы создать диаграмму в Excel нужно просто выбрать данные и кликнуть иконку построения диаграммы в соответствующем разделе меню.

Но, говоря о достоинствах, нужно упомянуть и слабые стороны. К сожалению, в Excel нет простого способа сохранить диаграмму как картинку или экспортировать её в другой документ. Было бы здорово, если бы мы могли просто кликнуть правой кнопкой мыши по графику и увидеть команду вроде Сохранить как рисунок или Экспортировать. Но, раз уж корпорация Microsoft не позаботилась о создании таких функций для нас, значит мы придумаем что-нибудь самостоятельно.

В этой статье я покажу 4 способа сохранить диаграмму Excel как картинку, которую в дальнейшем можно будет вставить в другие документы Office, в том числе Word и PowerPoint, или использовать её для создания какой-нибудь привлекательной инфографики.

Копируем диаграмму в графический редактор и сохраняем как картинку

Одна моя подруга однажды поделилась со мной секретом: она обычно копирует свои диаграммы из Excel в Paint. Она создаёт диаграмму и просто нажимает клавишу PrintScreen, затем открывает Paint и вставляет снимок экрана. После этого обрезает ненужные области снимка и сохраняет оставшуюся картинку в файл. Если Вы до сих пор поступали так же, то скорее забудьте его и больше никогда не используйте этот детский способ! Мы будем действовать быстрее и разумнее!

Для примера я в своём Excel 2010 создал красивую объёмную круговую диаграмму, которая отображает данные о демографии посетителей нашего сайта, и теперь я хочу экспортировать эту диаграмму из Excel как картинку. Давайте проделаем это вместе:

1. Кликните правой кнопкой мыши по области диаграммы и нажмите Копировать (Copy). Не нужно кликать мышью по самому графику, поскольку так будут выбраны отдельные элементы, а не вся диаграмма целиком, и команда Копировать (Copy) не появится.
2. Откройте Paint и вставьте диаграмму при помощи иконки Вставить (Paste) на вкладке Главная (Home) и нажав Ctrl+V.
3. Теперь осталось только сохранить диаграмму как графический файл. Нажмите Сохранить как (Save as) и выберите один из предложенных форматов (.png, .jpg, .bmp или .gif). Если хотите выбрать другой формат, нажмите Другие форматы (Other formats) в конце списка.

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

Экспортируем диаграмму из Excel в Word или в PowerPoint

Если нужно экспортировать диаграмму из Excel в какое-либо другое приложение пакета Office, например, в Word, PowerPoint или Outlook, то лучше всего сделать это через буфер обмена.

1. Скопируйте диаграмму из Excel, как в предыдущем примере на Шаге 1.
2. Кликните в документе Word или в презентации PowerPoint в том месте, куда нужно вставить диаграмму, и нажмите Ctrl+V. Либо вместо нажатия Ctrl+V, щёлкните правой кнопкой мыши в любом месте документа, и перед Вами откроется целый набор дополнительных параметров в разделе Параметры вставки (Paste options).

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

Сохраняем диаграмму в Word и PowerPoint как картинку

В приложениях Office 2007, 2010 и 2013 диаграмму Excel можно скопировать как картинку. При этом она будет вести себя как обычная картинка и не будет обновляться. Для примера давайте экспортируем диаграмму Excel в документ Word 2010.

1. В рабочей книге Excel скопируйте диаграмму, затем откройте документ Word, поместите курсор в то место, куда нужно вставить график, и нажмите маленькую чёрную стрелочку внизу кнопки Вставить (Paste), которая расположена на вкладке Главная (Home).
2. В открывшемся меню нас интересует пункт Специальная вставка (Paste Special) – он обозначен стрелкой на снимке экрана выше. Кликните по нему – откроется одноименное диалоговое окно с перечнем доступных графических форматов, в том числе Bitmap (точечный рисунок), GIF, PNG и JPEG.
3. Выберите нужный формат и нажмите ОК.

Скорее всего, инструмент Специальная вставка (Paste Special) доступен и в более ранних версиях Office, но в те времена я им не пользовался, поэтому утверждать не буду

Сохраняем все диаграммы рабочей книги Excel как картинки

Способы, которые мы только что обсудили, будут удобны, когда речь идёт о небольшом количестве диаграмм. Но что если Вам нужно скопировать все диаграммы из рабочей книги Excel? Если копировать и вставлять каждую из них по-отдельности, то на это может уйти довольно много времени. Спешу Вас обрадовать – этого делать не придётся! Есть способ сохранить все диаграммы из рабочей книги Excel разом.

1. Когда завершите создание диаграмм в книге, откройте вкладку Файл (File) и нажмите кнопку Сохранить как (Save as).
2. Появится диалоговое окно Сохранение документа (Save as). В выпадающем списке Тип файла (Save as type) выберите Веб-страница (Web page, *.htm, *.html). Проверьте также, что в разделе Сохранить (Save) выбран параметр Всю Книгу (Entire Workbook), как это показано на снимке экрана ниже:
3. Выберите папку для сохранения файлов и нажмите кнопку Сохранить (Save).

В выбранную папку вместе с файлами .html будут скопированы все диаграммы, содержащиеся в книге Excel в виде файлов .png. Ниже на снимке экрана показано содержимое папки, в которую я сохранил свою рабочую книгу. Моя книга Excel состоит из трёх листов с диаграммой на каждом – и в выбранной мной папке мы видим три диаграммы, сохранённые как графические файлы .png.

Как известно, PNG – это один из лучших форматов сжатия изображений, в котором не происходит потери качества. Если Вы предпочитаете использовать другие форматы для картинок, то преобразовать их в .jpg, .gif, .bmp или любой другой не составит труда.

Сохраняем диаграмму как картинку при помощи макроса VBA

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

Например, можно использовать проверенное и надёжное решение, опубликованное Джоном Пелтье в своём блоге. Его макрос очень прост:

ActiveChart.Export «D:My ChartsSpecialChart.png»

Эта строка кода создаёт в заданной папке графический файл .png и экспортирует в него диаграмму. Вы сможете создать свой первый макрос прямо сейчас за 4 простых шага, даже если не делали этого никогда в жизни.

Перед тем как приступить к написанию макроса, подготовьте папку для экспорта диаграммы. В нашем случае это будет папка My Charts на диске D. Итак, все приготовления завершены, давайте займёмся макросом.

1. В своей рабочей книге Excel откройте вкладку Разработчик (Developer) и в разделе Код (Code) нажмите иконку Макросы (Macros).

Замечание: Если Вы будете создавать макрос впервые, то, скорее всего, вкладка Разработчик (Developer) будет скрыта. В таком случае перейдите на вкладку Файл (File), кликните Параметры (Options) и откройте раздел Настроить ленту (Customize Ribbon). В правой части окна, в списке Основные вкладки (Main Tabs) поставьте галочку рядом с Разработчик (Developer) и нажмите ОК.

1. Дайте название новому макросу, например, SaveSelectedChartAsImage, и сделайте его доступным только для данной рабочей книги.
2. Нажмите кнопку Создать (Create), при этом откроется окно редактора Visual Basic, в котором уже будут обозначены начало и конец нового макроса. Во вторую строку скопируйте вот такой текст макроса:

ActiveChart.Export «D:My ChartsSpecialChart.png»

Закройте редактор Visual Basic и на вкладке Файл (File) нажмите Сохранить как (Save as). Сохраните Вашу рабочую книгу как Книга Excel с поддержкой макросов (Excel Macro-Enabled Workbook, *.xlsm). Вот и всё, Вы сделали это!

Теперь давайте запустим только что созданный макрос, чтобы увидеть, как он работает. Постойте минутку… Мы должны сделать ещё кое-что. Нужно выбрать диаграмму Excel, которую будем экспортировать, поскольку наш макрос работает только с выделенной диаграммой. Кликните по краю диаграммы в любом месте. Светло-серая рамка, появившаяся вокруг диаграммы, будет сигнализировать о том, что она выделена полностью.

Снова откройте вкладку Разработчик (Developer) и кликните иконку Макросы (Macros). Откроется список макросов, доступных в Вашей рабочей книге. Выделите SaveSelectedChartAsImage и нажмите кнопку Выполнить (Run).

Теперь откройте папку, которую указали для сохранения файла – там должна быть картинка .png с экспортированной диаграммой. Таким же образом можно сохранять диаграммы в другом формате. Для этого достаточно в макросе изменить .png на .jpg или .gif – вот так:

ActiveChart.Export «D:My ChartsSpecialChart.jpg»

На сегодня всё, и, надеюсь, читая эту статью, Вы провели время с пользой. Благодарю за внимание!

Microsoft Excel

трюки • приёмы • решения

Как в Excel сохранить диаграмму в виде графического файла или картинки

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

Метод 1. Вставка диаграммы в графическую программу

Этот метод предполагает использование стороннего программного обеспечения, а именно графического редактора. Выберите диаграмму, выполните команду Главная ► Буфер обмена ► Копировать (или нажмите Ctrl+C). Затем получите доступ к документу в вашем графическом редакторе, выбрав команду Правка ► Вставить (или ее эквивалент). Теперь вы можете сохранить файл в любом поддерживаемом программой графическом формате.

Вам, возможно, придется поэкспериментировать, чтобы добиться оптимальных результатов. Например, может понадобиться скопировать диаграмму как рисунок. Для этого выберите диаграмму, а затем выполните команду Главная ► Буфер обмена ► Копировать ► Копировать как рисунок. Если у вас нет графического редактора, попробуйте IrfanView, доступный для скачивания бесплатно на сайте http://irfanview.com.

Метод 2. Сохранение в качестве файла HTML

Для преобразования всех диаграмм книги в файлы PNG сохраните книгу в формате HTML, а затем найдите созданные файлы PNG. Выполните следующие действия.

1. Сохраните книгу.
2. Выберите Файл ► Сохранить как.
3. В диалоговом окне Сохранение документа в списке Тип файла выберите Веб-страница (*.htm, *.html).
4. Установите переключатель Сохранить в положение всю книгу.
5. Выберите расположение для файла. Хорошим вариантом будет выбор Рабочего стола, потому что к нему всегда легко получить доступ.
6. Укажите имя файла и нажмите кнопку Сохранить.
7. Закройте книгу.
8. Откройте окно Проводника и найдите папку, в которую вы сохранили файл.
9. В дополнение к файлу HTML вы найдете подкаталог, имя которого соответствует имени файла. Откройте его для просмотра файлов PNG, соответствующих каждой диаграмме в книге.

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

Метод 3. Использование макросов VBA

Этот метод использует простой макрос VBA, который сохраняет каждую диаграмму активного листа в формате GIF.

Перед созданием макроса сохраните книгу. Затем нажмите Alt+F11, чтобы запустить Visual Basic. Найдите свою книгу в окне Projects и выберите команду Insert ► Module для вставки нового модуля VBA. Затем введите в модуль следующую процедуру:

Sub SaveChartsAsGIF() Dim ChtObj As ChartObject Dim Fname As String For Each ChtObj In ActiveSheet.ChartObject Fname = ThisWorkbook.Path & «» & ChtObj.Name & «.gif» ChtObj.Chart.Export Filename:=Fname. FilterName:=»gif» Next ChtObj End Sub

После того как макрос введен, нажмите Alt+F11, чтобы снова перейти к Excel. Затем активизируйте лист, который содержит ваши диаграммы. Нажмите Alt+F8, чтобы открыть диалоговое окно Макрос. Выберите макрос SaveChartGIF и нажмите кнопку Выполнить. Процедура сохраняет каждую диаграмму в активном листе в виде GIF-файла (название диаграммы используется в качестве имени файла). Файлы хранятся в одной папке с книгой.

Как таблицу Excel сделать картинкой?

• Господа, что же Вы все советуете посторонние приложения? В меню Windows 7 есть встроенное приложение quot;Ножницыquot;, кроме него ничего не нужно. запустите, обведите нужную область экрана и сохраните ее на диске.

• Сделать скриншот (кнопка PrtScr на клавиатуре) и сохранить его как картинку в нужном формате (втавить в Paintе в новый документ и сохранить).

• Делаете снимок экрана кнопкой PRTSCR. Затем вы можете открыть новый рабочий лист в EXCEL и вставить получившуюся фотографию туда, нажав на кнопку ВСТАВИТЬ, которая находится на закладке ГЛАВНАЯ. Если есть программа WORD, то открываете ее и опять таки нажимаете на кнопку ВСТАВИТЬ. В WORD можно картинку обрезать с помощью команды ОБРЕЗКА. Она появится на экране в новой закладке.

  Если же в Excel нужно сделать quot;фотографиюquot; только лишь одного диалогового окна с командами, то вам нужно будет нажать комбинацию клавиш ALT+PRTSCR. После этого можете вставить эту картинку с помощью команды ВСТАВИТЬ в любой документ.

• Можно пойти простым путем и сделать скрин экрана. Только сфотографирован будет весь экран. Это делается при помощи кнопки Print Screen. После вставим в блокнот. А можно пойти иным путем. Заходим в приложение НОЖНИЦЫ в Виндусе. Обводим нашу таблицу и сохраняем

• Я бы тоже поступила очень просто, с помощью приложения, известного как quot;Ножницыquot;, есть в Windows. Нажимаем пуск, затем все программы — стандартные и там ищем ножницы. Обводим табличку и нажимаем сохранить, присваиваем имя, или иначе сохранится как quot;снимокquot;, вот картинка и готова. Проще простого. Я частенько пользуюсь этой программкой, она у меня прямо на рабочем столе, чтоб быстрее открывать.

• Нужно войти в таблицу Экселя, нажать клавишу quot;PrtScSysRqquot;. Зайтем войти в программу Paint. Это такой стаканчик с карандашами. В ней нажать quot;Создатьquot;, потом клавиша CTRL и английская буква v одновременно. У вас появится рисунок таблицы Эксель. Сохраняете его.

Метод 1 Как скопировать в качестве изображения

1. Откройте или создайте Excel-файл.

   Для этого дважды щелкните по зеленому значку в виде буквы «X», после этого нажмите «Файл» в строке меню в верхней части экрана, а затем:

   • нажмите «Открыть», чтобы открыть существующую таблицу;
   • или нажмите «Создать», чтобы создать новую таблицу.
2. 

   Зажмите левую клавишу мыши.

3. 

   Указатель мыши проведите над нужными ячейками. Так вы выделите нужные ячейки.
4. 

   Отпустите кнопку.

5. 

   Нажмите Главная. Эта вкладка находится в верхнем левом углу окна.

6. Щелкните по направленной вниз стрелке возле кнопки «Копировать».

   Она находится на левой стороне панели инструментов.

   • В Mac OS нажмите ⇧ Shift, а затем нажмите «Изменить» в строке меню в верхней части экрана.
7. Нажмите Копировать как рисунок.
   • В Mac OS нажмите «Копировать рисунок».
8. Выберите вид изображения.

   Щелкните по ползунку возле одной из следующих опций:

   • Как на экране, чтобы скопировать изображение так, как оно отображается на экране;
   • Как для печати, чтобы скопировать изображение так, как оно отобразится на бумаге, если его напечатать.
9. 

   Нажмите OK. Изображение будет сохранено в буфере обмена компьютера.

10. 

    Откройте документ, в который нужно вставить скопированное изображение.

11. 

    Поместите курсор там, куда нужно вставить картинку.

12. 

    Вставьте изображение. Нажмите Ctrl+V (в Windows) или ⌘+V (в Mac OS X). Скопированные из Excel ячейки будут вставлены в документ в виде изображения.

Метод 2 Как сохранить в виде PDF-документа

1. Откройте или создайте Excel-файл.

   Для этого дважды щелкните по зеленому значку в виде буквы «X», потом нажмите «Файл» в строке меню в верхней части экрана, а затем:

   • Нажмите «Открыть», чтобы открыть существующую таблицу.
   • Или нажмите «Создать», чтобы создать новую таблицу.
2. 

   Нажмите Файл. Эта опция находится в строке меню в верхней части экрана.

3. 

   Нажмите Сохранить как. Эта опция находится в верхней части выпадающего меню.
4. 

   Откройте выпадающее меню «Тип файла». Оно находится посередине диалогового окна.

5. 

   Нажмите PDF. Эта опция находится в верхней части выпадающего меню.

6. 

   Нажмите Сохранить. Эта опция находится в правом нижнем углу диалогового окна.

Информация о статье

Эту страницу просматривали 21 719 раза.

Была ли эта статья полезной?

Как вставить электронную  таблицу как рисунок в какой-нибудь документ? Уверен, многие встречались с проблемой, что вставка таблицы из Excel в Word или PowerPoint становится испытанием. Даже если воспользоваться инструментом импорта таблиц, могут возникнуть сложности в отображении оформления, границ и форм. Поэтому я, порой, вставляю таблицы в документы картинкой при помощи Paint или «Ножниц». Но не все так прозаично. Хотите узнать хитрости или как сделать автоматически обновляющуюся картинку?

1. Создание и вставка через Paint

Думаю это многие знают. Чтобы копировать, то что отображается на экране на данный момент нужно нажать кнопку PrtSc (PrintScreen) на клавиатуре. Как правило, она находится сверху над кнопками Home и End.

Затем заходите в программу Paint (Пуск — Программы — Стандартные)

Нажимаем Ctrl + V (вставить) — получился рисунок. Нажимаем Ctrl + A (выделить все), теперь копируем уже рисунок и его уже вставляем куда необходимо.

2. Создание рисунка из электронной таблицы средствами Excel

Как показано на первом рисунке. Копируем нужную область таблицы. Главная — Буфер обмена — Вставить — Как рисунок — Копировать как рисунок.

Если вы не хотите заморачиваться, то нажимайте сразу Вставить как рисунок. Появиться таблица как рисунок.

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

Если «как на экране» = ИСТИНА, то доступно меню Формат, т.е. рисунок будет скопирован либо векторный либо Растровый.

На самом деле, это очень полезная функция. Я например раньше не знал разницу.

Растровые

Информация хранится в точках (координаты и цвет). Применяется для фото, потому что переходы цветов, эффекты получаются лучше. Для редактирования применяется Photoshop.

Векторные

Информация хранится в форме и размере обьектов. Применяется для создания логотипов, надписей и т.д. Для редактирования применяется CorelDRAW.

Т.е. если мы делаем презентацию то выбираем Растровый, чтобы картинка была красивее, если нам нужно сделать логотип, то… ну вы поняли.

Я честно говоря, для презентации всегда выбираю Вид как на печати 🙂 Тогда и выбора между растровыми и векторными не будет

3. Создание интерактивного рисунка таблицы (чтобы данные обновлялись сами)

Теперь самое интересно. Можно вставить такой рисунок, чтобы данные на нем обновлялись в зависимости от данных в таблице. Не верите? Я тоже не верю.

Но давайте попробуем 🙂 Жмем Вставить связь с рисунком.

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

По большому счету, вы так можете сделать для почти любого рисунка, выбрав рисунок и вставив формул в строку функций, в нашем случае это будет =$A$1:$B$7

Пример файла прикладываю

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

Для чего все это нужно.

• Такой метод отображения таблиц удобен для улучшении визуализации (например можно вынести интерактивный рисунок на отдельный лист)
• Рисунок можно использовать как форму, например чека или счета фактуры
• Для такой картинки таблицы можно поставить признак не выводить на печать (правая кнопка — Формат рисунка — Свойства — Выводить на печать). Т.е. вы можете видеть эти данные при работе с другой таблицей, но при печати они не будут отображаться.

Поделитесь нашей статьей в ваших соцсетях:

(Visited 11 040 times, 31 visits today)

Делаете снимок экрана кнопкой PRTSCR. Затем вы можете открыть новый рабочий лист в EXCEL и вставить получившуюся фотографию туда, нажав на кнопку ВСТАВИТЬ, которая находится на закладке ГЛАВНАЯ. Если есть программа WORD, то открываете ее и опять таки нажимаете на кнопку ВСТАВИТЬ. В WORD можно картинку обрезать с помощью команды ОБРЕЗКА. Она появится на экране в новой закладке. Если же в Excel нужно сделать «фотографию» только лишь одного диалогового окна с командами, то вам нужно будет нажать комбинацию клавиш ALT+PRTSCR. После этого можете вставить эту картинку с помощью команды ВСТАВИТЬ в любой документ.

Теги: Microsoft Office, Free Online OCR Service

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

Задача решается буквально в пару кликов при помощи онлайн-сервисов. Например, Free Online OCR Service.

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

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

Как сохранить / экспортировать таблицу как изображение?

Например, вы хотите экспортировать таблицу как изображение, чтобы поделиться с другими пользователями, как вы могли бы быстро сохранить таблицу как изображение в Excel? Для вас есть два решения!

• Сохранить / экспортировать таблицу как изображение с помощью программы Paint
• Сохранить/экспортировать таблицу как изображение с помощью Kutools for Excel

---

Сохранить / экспортировать таблицу как изображение с помощью программы Paint

Этот метод поможет вам скопировать таблицу в Рисовать программу, а затем сохраните таблицу как изображение. Пожалуйста, сделайте следующее:

1. В Excel выберите таблицу и скопируйте ее, нажав Ctrl + C ключи.

2, Запустить Рисовать программа, вставьте таблицу с нажатием Ctrl + V ключи, а затем щелкните Главная > урожай. Смотрите скриншот:

3. Нажмите Файл > Сохраните.

4. В диалоговом окне «Сохранить как» (1) укажите папку, в которую вы сохраните изображение; (2) введите имя изображения в Имя файла коробка; (3) укажите тип изображения из Сохранить как раскрывающийся список; и наконец (4) нажмите Сохраните кнопка. Смотрите скриншот:

Теперь таблица сохраняется как изображение указанного типа.

---

Сохранить/экспортировать таблицу как изображение с помощью Kutools for Excel

На самом деле, Kutools for ExcelАвтора Диапазон экспорта как график функция также может легко сохранить любую таблицу или выделение как изображение PNG / JPG / TIF / GIF в Excel. Пожалуйста, сделайте следующее:

1. Выберите таблицу, которую вы сохраните как изображение, и нажмите Кутулс Плюс > Импорт/Экспорт > Диапазон экспорта как график. Смотрите скриншот:

2. В диалоговом окне «Экспортировать диапазон как графику» (1) нажмите Приложения кнопка  указать папку назначения, в которой вы сохраните изображение; (2) выберите формат изображения из Формат экспорта раскрывающийся список, а затем (3) нажмите Ok кнопка. Смотрите скриншот:

3. Во втором диалоговом окне «Экспортировать диапазон как графику» введите имя изображения и нажмите кнопку Ok кнопка. Смотрите скриншот:

4. В диалоговом окне «Экспортировать диапазон как графику» нажмите кнопку OK кнопка. Смотрите скриншот:

Теперь выбранная таблица экспортируется и сохраняется как изображение в указанном формате изображения.

---

Статьи по теме:

---

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

• Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
• Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
• Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
• Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
• Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

---

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (0)

Оценок пока нет. Оцените первым!