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.