Application.EditCopyPicture method (Project)
Kopiert die aktive Ansicht als Bild oder als OLE-Objekt oder exportiert die aktive Ansicht in eine GIF-Bilddatei.
Syntax
Ausdruck. EditCopyPicture( _Object_, _ForPrinter_, _SelectedRows_, _FromDate_, _ToDate_, _FileName_, _ScaleOption_, _MaxImageHeight_, _MaxImageWidth_, _MeasurementUnits_ )
expression Eine Variable, die ein Application-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Objekt | Optional | Boolean | True, Wenn die Ansicht als OLE-Objekt kopiert werden soll. Der Standardwert ist False. |
| ForPrinter | Optional | Long | Gibt an, wo die Ansicht zu kopieren. Kann eine der folgenden PjCopyPictureFor -Konstanten sein: PjScreen, PjPrinter oder PjGIF. Wenn ein Objekt auf True festgelegt ist, wird ForPrinter ignoriert. Der Standardwert ist PjScreen. |
| Selectedrows | Optional | Boolean | True, Wenn das Projekt nur die ausgewählten Zeilen kopiert. False, Wenn das Programm alle sichtbare Zeilen kopiert. |
| FromDate | Optional | Variant | Der Anfang der Zeitskala für das kopierte Bild. Wenn Objekt auf True festgelegt ist, wird FromDate ignoriert. Wenn FromDate angegeben und ToDate nicht, verwendet Project das letzte eingegebene Datum für das Ende der Zeitskala. Wenn eine negative Zeitspanne erstellen möchten, wird das Programm das letzte in der aktiven Ansicht angezeigte Zeitskalendatum verwendet. Der Standardwert ist der früheste Termin, in der aktiven Ansicht angezeigte Zeitskala an. |
| ToDate | Optional | Variant | Das Ende der Zeitskala für das kopierte Bild. Wenn ein Objekt auf True festgelegt ist, wird ToDate ignoriert. Wenn ToDate angegeben ist, und nicht FromDate ist, verwendet Project das letzte eingegebene Datum für den Anfang der Zeitskala. Wenn daraus eine negative Zeitspanne, verwendet die Anwendung der früheste Termin, in der aktiven Ansicht angezeigte Zeitskala an. Der Standardwert ist das letzte in der aktiven Ansicht angezeigte Zeitskalendatum. |
| FileName | Optional | String | The file name for the GIF image file. If ForPrinter is pjGIF, FileName is required. If Object is True, or ForPrinter is not pjGIF, FileName is ignored. |
| ScaleOption | Optional | Long | Gibt an, wie ein Bild der aktiven Ansicht behandelt, wenn es größer als MaxImageWidth Mal MaxImageHeight (Standard 22 x 22 Zoll). Der Standardwert ist PjCopyPictureKeepRange. Dies kann eine der PjCopyPictureScaleOption -Konstanten sein. |
| MaxImageHeight | Optional | Double | Gibt die maximale Höhe des Bilds. Der zulässige Bereich von MaxImageHeight ist 1 bis 22 Zoll (2,54 bis 55,88 Zentimeter). Der Standardwert ist 22 (Zoll). |
| MaxImageWidth | Optional | Double | Gibt die maximale Breite des Bilds. Der zulässige Bereich von MaxImageHeight ist 1 bis 22 Zoll (2,54 bis 55,88 Zentimeter). Der Standardwert ist 22 (Zoll). |
| MeasurementUnits | Optional | Variant | Lange. Gibt die Maßeinheiten an. Der Standardwert ist PjInches. Dies kann eine der PjMeasurementUnits -Konstanten sein. |
Rückgabewert
Boolean
Bemerkungen
EditCopyPicture -Methode ohne Argumente verwenden, wird das Dialogfeld Bild kopieren angezeigt.
Beispiel
Im folgenden Beispiel wird eine Kopie der Ansicht Balkendiagramm als Datei Test.gif erstellt und im Stammordner gespeichert.
Sub Edit_CopyPicture()
'Activate the Gantt Chart view
ViewApply Name:="&Gantt Chart"
EditCopyPicture ForPrinter:=pjGIF, FileName:="C:\Test.gif"
End Sub
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.