Метод 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 и обратная связь.