Поделиться через

Метод ShapeRange.SaveAsPicture (Издатель)

  • Статья

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

Синтаксис

expression. SaveAsPicture (FileName, pbResolution)

Выражение Переменная, представляющая объект ShapeRange .

Параметры

Имя Обязательный или необязательный Тип данных Описание
FileName Обязательный String Путь и имя нового файла рисунка, который требуется создать. Графический формат, в который сохраняется изображение, определяется указанным расширением имени файла (например, .jpg или .gif).
pbResolution Необязательный PbPictureResolution Разрешение, в котором требуется сохранить изображение. Может быть одной из констант PbPictureResolution .

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать метод SaveAsPicture для сохранения всех фигур на первой странице активной публикации в виде файла .jpg рисунка.

Перед выполнением этого кода замените filename.jpg допустимым именем файла и путем к папке на компьютере, в которой у вас есть разрешение на сохранение файлов.

Public Sub SaveAsPicture_Example() 
 
 Dim pubShapeRange As Publisher.ShapeRange 
 Set pubShapeRange = ThisDocument.Pages(1).Shapes.Range 
 
 pubShapeRange.SaveAsPicture "filename.jpg" 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.