Метод Application.EditCopyPicture (Project)

Копирует активное представление в виде рисунка или объекта OLE или экспортирует активное представление в GIF-файл изображения.

Синтаксис

выражение. EditCopyPicture( _Object_, _ForPrinter_, _SelectedRows_, _FromDate_, _ToDate_, _FileName_, _ScaleOption_, _MaxImageHeight_, _MaxImageWidth_, _MeasurementUnits_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Object	Необязательный	Логический	Значение true , если представление должно быть скопировано в виде объекта OLE. Значение по умолчанию — False.
ForPrinter	Необязательный	Long	Указывает место копирования представления. Может быть одной из следующих констант PjCopyPictureFor : pjScreen, pjPrinter или pjGIF. Если объект имеет значение True, forPrinter игнорируется. Значение по умолчанию — pjScreen.
SelectedRows	Необязательный	Логический	Значение true, если Project копирует только выбранные строки. Значение False , если программа копирует все видимые строки.
FromDate	Необязательный	Variant	Начало шкалы времени для скопированного рисунка. Если объект имеет значение True, параметр FromDate игнорируется. Если параметр FromDate указан, а toDate — нет, Project будет использовать последнюю введенную дату для окончания шкалы времени. Если это создаст отрицательный период времени, программа будет использовать последнюю дату шкалы времени, видимую в активном представлении. Значение по умолчанию — самая ранняя дата шкалы времени, видимая в активном представлении.
ToDate	Необязательный	Variant	Конец шкалы времени для скопированного рисунка. Если объект имеет значение True, значение ToDate игнорируется. Если параметр ToDate указан, а FromDate — нет, Project будет использовать последнюю введенную дату для начала шкалы времени. Если это создаст отрицательный период времени, программа будет использовать самую раннюю дату шкалы времени, видимую в активном представлении. Значение по умолчанию — это последняя дата шкалы времени, отображаемая в активном представлении.
FileName	Необязательный	String	Имя файла изображения GIF. Если forPrinter имеет значение pjGIF, требуется имя_файла . Если параметр Object имеет значение True или ForPrinter не имеет значение pjGIF, fileName игнорируется.
ScaleOption	Необязательный	Long	Указывает, как обрабатывать изображение активного представления, если оно больше MaxImageWidth by MaxImageHeight (по умолчанию 22 дюйма на 22 дюйма). Значение по умолчанию — pjCopyPictureKeepRange. Может быть одной из констант PjCopyPictureScaleOption .
MaxImageHeight	Необязательный	Double	Задает максимальную высоту рисунка. Допустимый диапазон MaxImageHeight составляет от 1 до 22 дюймов (от 2,54 до 55,88 см). Значение по умолчанию — 22 дюйма.
MaxImageWidth	Необязательный	Double	Задает максимальную ширину рисунка. Допустимый диапазон MaxImageWidth составляет от 1 до 22 дюймов (от 2,54 до 55,88 см). Значение по умолчанию — 22 дюйма.
MeasurementUnits	Необязательный	Variant	Долго. Задает единицы измерения. Значение по умолчанию — pjInches. Может быть одной из констант PjMeasurementUnits .

Возвращаемое значение

Boolean

Примечания

При использовании метода EditCopyPicture без аргументов отображается диалоговое окно Копирование рисунка .

Пример

В следующем примере создается копия представления диаграммы Ганта как Test.gif файла и сохраняется в корневой папке.

Sub Edit_CopyPicture() 
    'Activate the Gantt Chart view 
    ViewApply Name:="&Gantt Chart" 
    EditCopyPicture ForPrinter:=pjGIF, FileName:="C:\Test.gif" 
End Sub

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

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