Как сохранить диаграмму excel в рисунок
Сохранение и изменение диаграмм Excel 2007
Автор: | Индык Игорь Викторович |
e-mail: | exelentc@yandex.ru |
Как сохранить диаграмму в графический файл, напр. *ipg?
К сожалению, данная функция не предусмотрена встроенными инструментами Excel. Поэтому для того, что бы сохранить диаграмму в графический файл необходимо кликнуть на ней правой кнопкой мышки в появившемся контекстном меню выбрать Копировать.
Затем перейти в любой графический редактор, например, Paint, и вставить рисунок с буфера обмена. В редакторе вы можете сохранить файл в удобном для вас формате.
У меня изменились названия категорий в таблице, на основании которой построена гистограмма, но они почему-то не поменялись в самой гистограмме. Есть ли возможность автоматического изменения подписей и данных в гистограмме, если изменились исходные данные?
Вообще-то между диаграммой и исходной таблицей установлена связь. Изменения данных в таблице приводит к автоматическому обновлению данных в диаграмме. Но если данные диаграммы (будь то подписи, оси, значения, легенда и т.п.) правились, то такая связь нарушается.
В таком случае, необходимо кликнуть правой кнопки мышки на подписи данных, которые необходимо связать с исходной таблицей. В контекстном меню перейти на опцию Формат подписи данных…
Обратите внимание, если кликнуть один раз, то выделяются все подписи данных и соответственно, для всех будет восстановлена связь с таблицей. Если кликнуть дважды, то будет выделено только одно значение и связь будет восстановлена только для этой подписи, остальные останутся без изменений.
В диалоговом окне Формат подписи данных в разделе Параметры подписи необходимо нажать на кнопку Сброс, а затем Закрыть. Данные будут соответствовать значениям, указанным в исходной таблице.
Если же нужно восстановить связь между названием оси и исходной таблицей, то это нужно делать через ссылку на ячейку, которая содержит соответствующее название ряда. Для этого, необходимо выбрать на диаграмме название оси, которую необходимо связать с ячейкой таблицы. Затем, в строке формул ввести знак равенства “=” и выбрать на листе ячейку, которая содержит соответствующую подпись.
После нажатия клавиши Ввод (Enter) подпись оси будет изменена.
В начало страницы
В начало страницы
Источник: on-line-teaching.com
Microsoft Excel
трюки • приёмы • решения
Как в Excel сохранить диаграмму в виде графического файла или картинки
Как ни странно, Excel не предоставляет возможности напрямую преобразовывать диаграммы в автономные графические файлы, например формата GIF или PNG. В этой статье я представлю три метода сохранения диаграмм Excel в виде графических файлов (один из методов использует макросы VBA).
Метод 1. Вставка диаграммы в графическую программу
Этот метод предполагает использование стороннего программного обеспечения, а именно графического редактора. Выберите диаграмму, выполните команду Главная ► Буфер обмена ► Копировать (или нажмите Ctrl+C). Затем получите доступ к документу в вашем графическом редакторе, выбрав команду Правка ► Вставить (или ее эквивалент). Теперь вы можете сохранить файл в любом поддерживаемом программой графическом формате.
Вам, возможно, придется поэкспериментировать, чтобы добиться оптимальных результатов. Например, может понадобиться скопировать диаграмму как рисунок. Для этого выберите диаграмму, а затем выполните команду Главная ► Буфер обмена ► Копировать ► Копировать как рисунок. Если у вас нет графического редактора, попробуйте IrfanView, доступный для скачивания бесплатно на сайте http://irfanview.com.
Метод 2. Сохранение в качестве файла HTML
Для преобразования всех диаграмм книги в файлы PNG сохраните книгу в формате HTML, а затем найдите созданные файлы PNG. Выполните следующие действия.
- Сохраните книгу.
- Выберите Файл ► Сохранить как.
- В диалоговом окне Сохранение документа в списке Тип файла выберите Веб-страница (*.htm, *.html).
- Установите переключатель Сохранить в положение всю книгу.
- Выберите расположение для файла. Хорошим вариантом будет выбор Рабочего стола, потому что к нему всегда легко получить доступ.
- Укажите имя файла и нажмите кнопку Сохранить.
- Закройте книгу.
- Откройте окно Проводника и найдите папку, в которую вы сохранили файл.
- В дополнение к файлу 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-файла (название диаграммы используется в качестве имени файла). Файлы хранятся в одной папке с книгой.
Источник: excelexpert.ru
Использование рисунка на диаграмме
Примечание: Мы стараемся как можно оперативнее обеспечивать вас актуальными справочными материалами на вашем языке. Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Просим вас уделить пару секунд и сообщить, помогла ли она вам, с помощью кнопок внизу страницы. Для удобства также приводим ссылку на оригинал (на английском языке) .
Вы можете усовершенствовать диаграммы, вставив в область диаграммы рисунок (например, эмблему компании). Или заливки рисунка можно использовать для привлечения внимания к определенным элементам диаграммы, такие как область диаграммы, область построения, маркеры данных (в столбце, панель, область, пузырьковых, Объемный график и заполненные лепестковые диаграммы), легенда (в плоской и объемной диаграммы) или трехмерные стены и потолок диаграммы.
Вы также можете скопировать изображение в диаграмму или к элементам диаграммы, такие как маркеры данных в плоскости графики, точечные диаграммы или без заливки Лепестковая диаграмма. Если рисунок не нужен, его можно удалить.
Вставка рисунка в диаграмме
Щелкните в области диаграммы.
На вкладке Вставка в группе иллюстрации нажмите кнопку рисунки.
Перейдите к рисунку, который хотите вставить, и дважды щелкните его.
Совет: Чтобы добавить несколько рисунков, удерживая клавишу CTRL, щелкните рисунки, которые вы хотите вставить, а затем нажмите кнопку Вставить.
Чтобы изменить размер рисунка, перетащите маркер изменения размера центра рисунка или от при этом выполняя одно из следующих действий:
Чтобы сохранить положение центра изображение на прежнем месте, при перетаскивании маркера изменения размера удерживайте нажатой клавишу CTRL.
Чтобы сохранить пропорции рисунка, при перетаскивании маркера изменения размера удерживайте клавишу SHIFT.
Чтобы сохранить положение центра рисунка на прежнем месте и пропорции, при перетаскивании маркера изменения размера удерживайте клавиши CTRL + SHIFT.
Можно также изменить размеры рисунка точной высоты и ширины, выбрав нужный рисунок, а затем введите нужный размер в поля Высота фигуры и Ширина фигуры (вкладка ” Формат “, группа ” размер “).
Чтобы переместить рисунок, перетащите ее в нужное место, который вы хотите.
Примечание: Рисунки, которые можно вставлять в диаграмме внедренные диаграммы и таким образом увеличить размер файла. Чтобы уменьшить размер файла, вы можете связать к рисунку, а не ее вставки. В диалоговом окне Вставка рисунка нажмите кнопку рисунок, который вы хотите вставить, щелкните стрелку рядом с кнопкой Вставить и нажмите кнопку связать с файлом.
Заливка элементов диаграммы и рисунка
На диаграмме щелкните область диаграммы, область построения, маркер данных, условные обозначения, объемной стен или объемной этажа, которую требуется заполнить рисунка.
Откроется панель Работа с диаграммами с дополнительными вкладками Конструктор, Макет и Формат.
На вкладке Формат в группе Стили фигур нажмите кнопку Заливка фигуры .
Перейдите к рисунку, который хотите вставить, и дважды щелкните его.
Копирование изображения в диаграмму или элемент диаграммы
Выберите рисунок, который нужно скопировать и нажмите клавиши CTRL + C.
Щелкните область диаграммы или элемент диаграммы, в которую нужно вставить изображение.
Нажмите клавиши CTRL + V, чтобы вставить выделения.
Удаление фотографии из диаграммы
Выполните одно из перечисленных ниже действий.
Чтобы удалить рисунок, который был добавлен в диаграмме, нажмите кнопку рисунок и нажмите клавишу DELETE.
Чтобы удалить рисунок, который был указан в элемент диаграммы, выделите этот элемент диаграммы, а затем выполните следующее:
На вкладке Формат в группе Текущий фрагмент нажмите кнопку Формат выделенного фрагмента.
На странице линии и заливка вкладке , разверните заливки и выберите Автоматическое.
Совет: Чтобы удалить рисунок и другие эффекты заливки, которые применяются для выделенного элемента диаграммы, выберите Нет заливки.
Вставка рисунка в диаграмме
Щелкните в области диаграммы.
Откроется панель Работа с диаграммами с дополнительными вкладками Конструктор, Макет и Формат.
На вкладке Макет в группе Вставить нажмите кнопку рисунок.
Перейдите к рисунку, который хотите вставить, и дважды щелкните его.
Совет: Чтобы добавить несколько рисунков, удерживая клавишу CTRL, щелкните рисунки, которые вы хотите вставить, а затем нажмите кнопку Вставить.
Чтобы изменить размер рисунка, перетащите маркер изменения размера центра рисунка или от при этом выполняя одно из следующих действий:
Чтобы сохранить положение центра изображение на прежнем месте, при перетаскивании маркера изменения размера удерживайте нажатой клавишу CTRL.
Чтобы сохранить пропорции рисунка, при перетаскивании маркера изменения размера удерживайте клавишу SHIFT.
Чтобы сохранить положение центра рисунка на прежнем месте и пропорции, при перетаскивании маркера изменения размера удерживайте клавиши CTRL + SHIFT.
Можно также изменить размеры рисунка точной высоты и ширины, выбрав нужный рисунок, а затем введите нужный размер в поля Высота фигуры и Ширина фигуры (вкладка ” Формат “, группа ” размер “).
Чтобы переместить рисунок, перетащите ее в нужное место, который вы хотите.
Примечание: Рисунки, которые можно вставлять в диаграмме внедренные диаграммы и таким образом увеличить размер файла. Чтобы уменьшить размер файла, вы можете связать к рисунку, а не ее вставки. В диалоговом окне Вставка рисунка нажмите кнопку рисунок, который вы хотите вставить, щелкните стрелку рядом с кнопкой Вставить и нажмите кнопку связать с файлом.
Заливка элементов диаграммы и рисунка
На диаграмме щелкните область диаграммы, область построения, маркер данных, условные обозначения, объемной стен или объемной этажа, которую требуется заполнить рисунка.
Откроется панель Работа с диаграммами с дополнительными вкладками Конструктор, Макет и Формат.
На вкладке Формат в группе Стили фигур выберите элемент Заливка фигуры.
Перейдите к рисунку, который хотите вставить, и дважды щелкните его.
Копирование изображения в диаграмму или элемент диаграммы
На листе или в диаграмме выберите рисунок, который нужно скопировать.
На вкладке Главная в группе буфер обмена нажмите кнопку Копировать .
Сочетание клавиш чтобы скопировать выделенный фрагмент, нажмите клавиши CTRL + C.
Щелкните область диаграммы или элемент диаграммы, в которую нужно вставить изображение.
На вкладке Главная в группе буфер обмена нажмите кнопку Вставить .
Сочетания клавиш для вставки выделения, нажмите клавиши CTRL + V.
Удаление фотографии из диаграммы
Выполните одно из перечисленных ниже действий.
Чтобы удалить рисунок, который был добавлен в диаграмме, нажмите кнопку рисунок и нажмите клавишу DELETE.
Чтобы удалить рисунок, который был указан в элемент диаграммы, выделите этот элемент диаграммы, а затем выполните следующее:
На вкладке Макет в группе Текущий фрагмент нажмите кнопку Формат выделенного фрагмента.
Нажмите кнопку заполнить и в группе Заливка выберите значение автоматически.
Совет: Чтобы удалить рисунок и другие эффекты заливки, которые применяются для выделенного элемента диаграммы, выберите Нет заливки.
Источник: support.microsoft.com
Как конвертировать файлы Excel в формат JPEG
Из всех вариантов конвертации наиболее востребована конвертация файлов Excel в формат JPEG. Таблицы и диаграммы Excel сложно распространять, поэтому необходимо конвертировать их в другой формат, чтобы сделать их динамичнее и “дружелюбнее” к пользователям сети Интернет. Файлы JPEG открываются во всех веб-браузерах, что делает этот формат крайне привлекательным для преобразования в него файлов Excel. Данные из файлов Excel станут доступны другим, и буквально через несколько минут их можно будет начать распространять. Программа Универсальный Конвертер Документов поможет вам преобразовать файлы Excel в формат JPEG.
На этой странице:
Как сохранить файлы Excel в формате JPEG
Вы можете сохранить файл Excel в формате JPEG при помощи программы Универсальный Конвертер Документов – виртуального принтера, который не “печатает” файлы на бумаге, но позволяет изменять их формат, таким образом она легко сохранит файлы Excel в формате JPEG.
Универсальный Конвертер Документов добавляет панель инструментов с “горячими клавишами” к интерфейсу Microsoft Excel. Для конвертации файлов Excel в формат JPEG достаточно лишь пары нажатий мыши: перейдите на панель инструментов Универсального Конвертера Документов и нажмите одну из трех кнопок: Convert to PDF (Конвертировать в PDF), Convert to JPG (Конвертировать в JPG) или Convert to TIFF (Конвертировать в TIFF).
Как сохранить лист Excel в один файл JPG
При помощи программы Универсальный Конвертер Документов вы сможете сохранить лист или диаграмму Excel в один файл JPG. Следуйте инструкции:
- Откройте панель инструментов Page Layout (Параметры страницы) в Microsoft Excel и щелкните на вариант в нижнем правом углу:
- Выберите Fit to 1 page wide by 1 tall (Вписать все столбцы и строки на 1 страницу), как показано на скриншоте ниже
- Нажмите OK и распечатайте файл в формате JPG, используя Универсальный Конвертер Документов в качестве принтера.
Нанесение водяных знаков на документ Excel
Чтобы нанести водяной знак на документ Excel, сделайте следующее:
- Откройте документ в программе Microsoft Excel и нажмите Print (Печать)
- Выберите Универсальный Конвертер Документов в качестве принтера и нажмите Properties (Свойства)
- Выберите JPEG Image (изображение JPEG) в качестве выходного формата файла
- Зайдите в меню Watermark (Водяные знаки) и выберите Text label (Текст) или Picture (Изображение). Задайте желаемые настройки.
- Нажмите OK для запуска процесса конвертации из Excel в JPEG.
Пакетное преобразование документов Excel в формат JPEG
Чтобы конвертировать в формат JPEG сразу несколько файлов Excel, воспользуйтесь программой Print Conductor, поставляемой вместе с Universal Document Converter.
- Запустите программу Print Conductor и добавьте в ее список обработки необходимые файлы Excel
- Выберите Универсальный Конвертер Документов из списка принтеров и нажмите Change Settings (Изменить настройки)
- Укажите в настройках JPEG Image (Изображение JPEG) в качестве выходного формата файла и нажмите OK
- Нажмите Start для запуска конвертации файлов Excel в формат JPEG в пакетном режиме.
Автоматическая конвертация файлов Excel в формат JPEG в офисе
Офисные работники обычно вынуждены тратить время, конвертируя полученные из различных источников файлы в тот формат, с которым они привыкли работать. Вы можете использовать устанавливаемое на сервер ПО Folder Mill для автоматизации этого процесса. Folder Mill отслеживает входящие файлы и конвертирует их в другие форматы согласно заданным сотрудниками предпочтениям.
Сотрудникам компании остается всего лишь использовать две папки: в одну они помещают входящие файлы, из другой забирают готовые файлы в удобных им форматах. Процесс конвертации происходит при этом автоматически.
Примеры кода конвертации Excel в JPEG для разработчиков
Разработчики ПО могут использовать ресурсы, предлагаемые программой Универсальный Конвертер Документов. Благодаря нашему public API и примерам кода, они смогут использовать созданные нами механизмы конвертации в других проектах конвертации файлов.
Вы сможете ознакомиться с примерами кода конвертации файлов Excel в формат JPEG для различных языков программирования здесь.
Технологический Университет г. Куртин
«Универсальный конвертер документов и Adobe Acrobat предназначены для создания кросс-платформенных документов. Но УДК нам нравится больше, так как не нужно устанавливать специальный вьювер, чтобы открыть созданные им графические файлы.»
Источник: www.print-driver.ru
Экспорт графов Excel в виде файлов векторной графики (например, SVG)?
Как экспортировать граф, сгенерированный в Excel, в виде редактируемого файла векторной графики, например. SVG?
Когда я нажимаю правой кнопкой мыши на графике в Excel, опция «Сохранить как изображение . » предоставляет только варианты, отличные от векторов (например, PNG и JPG).
Единственный ресурс, который я нашел на этом сайте, – Ссылка , где нет один дает реальный ответ. Как и вопрошающий, я не возражаю, если это многоэтапный процесс, например. Excel – > Открыть Office – > SVG или Excel – > pdf – > SVG.
10 ответов
Хотя вы действительно можете скопировать -n-paste прямо в InkScape, вы можете потерять некоторое форматирование в процессе. Экспорт в PDF гарантирует, что фон вашего файла Excel также будет сохранен. Хорошо работает в моем опыте.
- В Microsoft Excel «Сохранить как PDF».
- В Inkscape «Открыть PDF».
- Свойства документа, разверните «Изменить размер страницы на контент» (hiddent), нажмите кнопку.
- Сохранить в SVG или расширенный метафайл (emf).
Плагины для экспорта PDF.
- 2007 Надстройка Microsoft Office: Microsoft Сохранить как PDF или XPS – «FileFormatConverters.exe» (37 МБ)
- Дополнительная надстройка, которая создает новый вариант меню «сохранить как PDF» в Excel – «SaveAsPDFandXPS.exe» (933 КБ)
- Выберите графики Microsoft Excel.
- Копировать.
- Откройте Microsoft PowerPoint.
- Paste-special – как расширенный метафайл (EMF) в пустом слайде.
- Сохраните слайд PowerPoint как файл «другого формата» и выберите «EMF» (расширенный метафайл Windows).
- Импортируйте свой файл EMF в InkScape и разгруппируйте объект.
- Удалите из изображения все сумасшедшие пробелы формата A4.
Попробуйте Gnumeric . Он поддерживает экспорт графиков в SVG изначально. Также есть версия для Windows. Таким образом, toolchain будет Excel -> Gnumeric -> SVG или даже Gnumeric -> SVG без использования Excel. IMHO это самый простой способ получить ваш график в SVG.
Новые версии PowerPoint позволяют сохранять и отправлять в формате PDF. Используйте эту функцию для создания PDF-файла, затем откройте это в Inkscape и отредактируйте, разгруппировавшись, затем измените размер страницы на чертеж и сохраните как SVG.
Используя Excel 2007 под Windows XP, я также обнаружил, что скопированные графики вставляются как растровые изображения в Inkscape. Это отличается от поведения Excel 2003 в Windows 7.
Я нашел обходное решение – если вы выберете ячейки, окружающие график (включая граф), и скопируйте, вы можете вставить векторную графику в Inkscape так, как ожидалось. Единственным недостатком является то, что вы должны вручную удалить сетку из excel-ячеек, которая остается ниже вашей графики.
Вы можете попытаться просто скопировать граф (Ctrl-C) и вставить его в Inkscape (а затем сохранить как SVG). Он работал для меня в Excel 2003, Inkscape (0.48.4) и Windows Vista (заимствованный компьютер), поскольку по крайней мере в Windows по умолчанию используется формат копирования EMF. Но тогда, я думаю, OS X Clipboard может обрабатывать это по-другому и копировать / вставлять растровое изображение.
Чтобы избежать шага «обрезать PDF», упомянутого в нескольких ответах, вы можете поместить диаграмму на свой рабочий лист с соответствующим размером бумаги и нулевыми полями. Например. в Windows Excel 2007:
- Выберите диаграмму, из всплывающего меню выберите Move Chart . | Новый лист
- В новом графическом листе, макете страницы | Поля | Пользовательские поля и нуль все
- Измените размер диаграммы на нужный размер, перетащив ее нижний правый угол.
- Посмотрите полученный результат из Chart Tools | Формат | Размер
- Выберите размер закрытия в макете страницы | Размер и при необходимости отрегулируйте
Если размер недостаточно, или вы хотите быть точным, вам нужно создать собственный размер страницы. В отличие от Word, Excel не позволяет делать это сам, но использует размер от драйвера принтера.
- Макет страницы | Размер | Больше размеров бумаги | Print . выберите принтер, драйвер которого позволяет создавать собственные размеры страниц – большинство обычных драйверов PostScript или PDF
- Параметры . | Продвинутый . | Размер бумаги | Размер пользовательской страницы PostScript
- Задайте размер, позаботившись о том, чтобы единицы были правы, а ширина и высота подкачки (по умолчанию Excel печатает как пейзаж)
Лучше всего не иметь схемы вокруг диаграммы в самом PDF-файле: вы можете выбрать Format Chart Area | Цвет границы | Нет линии.
Вот пример использования Excel и Powerpoint для Windows. Скопируйте граф в буфер обмена в Excel, используя команду копирования на вкладке «Главная» ленты. Прошлое специальное в пустой слайд в Powerpoint, используя меню «Вставить» на ленте. Прокрутите вниз и выберите «Изображение (расширенный метафайл)» в раскрывающемся меню в диалоговом окне. Затем нажмите «ОК». График появляется в Powerpoint. Убедитесь, что выбран график, затем перейдите в «Упорядочить >»; Ungroup. Появится диалоговое окно . «Это импортированное изображение, а не группа. Вы хотите преобразовать его в Microsoft Drawing Object?» нажмите да Вы почти там! Убедитесь, что grahp все еще выбран. Вернитесь к разделу «Упорядочить > Разгруппируйте и нажмите Все элементы графика теперь должны быть объектами вектора Powerpoint. Привет, наслаждайся.
Я могу порекомендовать этот плагин Excel: XL Toolbox
Он позволяет экспортировать графики непосредственно в виде файла EMF, который может быть преобразован с помощью Inkscape в SVG.
Вот мой рабочий процесс в Mac OS X с программой Excel 2011.
- Щелкните правой кнопкой мыши диаграмму и выберите «Сохранить как изображение». Сохраните его как PDF.
- Откройте PDF в Adobe Acrobat.
- Перейдите в File > Сохранить как > Дополнительные параметры > Инкапсулированный PostScript. Сохранить.
Затем файл EPS можно открыть в вашем любимом векторном редакторе, таком как Illustrator.
Обратите внимание, что вы также можете поместить PDF непосредственно в документ Illustrator, но в моем случае любой текст на изображении превращался в мусор. Если ваша диаграмма не содержит большого количества текста, лучшим вариантом может быть пропустить шаг EPS (который превращает шрифт в пути) и вручную исправить текст мусора в PDF-файле Illustrator.
Источник: ubuntugeeks.com
Сохранение картинки из MS Excel в файл без использования внешних компонент
Простого пути не нашел, пришлось идти окольными путями.
Конечно же, сначала в интернет. обнаружил, что люди сталкиваются с теми же проблемами, что и я.
Немного об объектной модели Excel.
1. Приложение: Application. Приложение мы создаем так:
Application = Новый COMОбъект ( “Excel.Application” );
2. Приложение имеет колекцию книг: Application.Workbooks.
Файл эксель открывается как книга Workbook, т.е. элемент коллекции Workbooks, например,
Workbook = Application . Workbooks . Item ( 0 );
или когда хотим открыть файл-excel
Workbook = Application . Workbooks . Open ( ПутьКФайлу );
3. Коллекция листов и диаграмм Workbook.Sheets,
можно и по отдельности обойти коллекцию листов Workbook.Worksheets и коллекцию диаграмм Workbooks.Charts, а можно одним махом через коллекцию Sheets.
Каждый элемент этой коллекции (лист или диаграмма) имеют свойство Shapes с коллекцией объектов Shape, дословно “фигура”.
4. Коллекция фигур Sheet.Shapes содержит коллекцию различных графических объектов листа или диаграммы.
В числе этих графических объектов можно найти и картинку.
5. Картинка. Каждый элемент Shape коллекции Shapes имеет свойство Shape.Type, которое принимает значения перечисления MsoShapeType. Одно из значений этого перечислений MsoShapeType.msoPicture = 13 . То, что нужно.
Таким образом мы можем найти все объекты картинок в любом файле MS Excel, и это не сложно.
6. Картинку в файл. А вот, что делать каждым объектом Shape, чтобы его выгрузить в файл – это уже вопрос.
Методов у фигуры Shape много. Единственный, хоть как-то касающийся вопроса, это метод CopyPicture, при вызове этого метода картинка копируется в буфер обмена. От чего легче не становится.
Встает другой вопрос, как достать из буфера картинку, или переложить в другой объект Excel, где есть нужные методы.
Можно было бы экспортировать лист с нужной картинкой в HTML документ, а затем в папке документа html *.files поискать картинки. Сумбурный метод.
Оказывается, удобней из буфера переложить картинку в объект диаграммы Chart, при этом подогнав размеры диаграммы под картинку, а диаграмму можно аккурат сохранить как картинку в нужный файлик. Это уже порядок.
Всем этим занимается следующая функция. Даём ей объект Shape, ИмяФайла и ТипФайла:
// Сохранение картинки из объекта Shape в файл.
// FilterName – строка, JPG, GIF, PNG, BMP и т.д.
Функция СохранитьКартинкуВФайл ( Shape , FileName , FilterName = Неопределено) Экспорт
// Инициализируем константы VBA.
msoFalse = 0 ;
msoPicture = 13 ;
xlLineStyleNone = – 4142 ;
xlWBATWorksheet = – 4167 ;
// Проверяем тип объекта.
Если Shape . Type <> msoPicture Тогда
Возврат Ложь;
КонецЕсли;
// Создаем новую книгу с единственным листом.
Книга = Shape . Application . Workbooks . Add ( xlWBATWorksheet );
// Создаем диаграмму, в которую копируем картинку.
Диаграмма = Книга . Worksheets . Item ( 1 ). Shapes . AddChart (). Chart ;
// Устанавливаем размер диаграммы как у картинки.
Диаграмма . ChartArea . Height = Shape . Height ;
Диаграмма . ChartArea . Width = Shape . Width ;
// Убираем границу диаграммы.
Диаграмма . ChartArea . Border . LineStyle = xlLineStyleNone ;
// Убираем заполнение диаграммы.
Диаграмма . ChartArea . Fill . Visible = msoFalse ;
// Копируем картинку в буфер.
Shape . CopyPicture ();
// Вставляем данные в диаграмму из буфера.
Диаграмма . Paste ();
// Экспортируем диаграмму в картинку (*.jpg, *.gif, *.bmp, *.png).
Успех = Диаграмма . Export ( FileName , FilterName );
// Закрываем книгу без сохранения изменений.
Книга . Close (False);
Во вложении конфигурация с примером использования функции.
Источник: infostart.ru