Méthode Application.EditCopyPicture (Project)
Copie l’affichage actif sous la forme d’une image ou d’un objet OLE ou exporte l’affichage actif sous la forme d’un fichier d’images GIF.
Syntaxe
expression. EditCopyPicture( _Object_, _ForPrinter_, _SelectedRows_, _FromDate_, _ToDate_, _FileName_, _ScaleOption_, _MaxImageHeight_, _MaxImageWidth_, _MeasurementUnits_ )
expressionUne variable qui représente un objetApplication.
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Object | Facultatif | Boolean | Cet argument a la valeur True si l'affichage doit être copié en tant qu'objet OLE. La valeur par défaut est False. |
| ForPrinter | Facultatif | Long | Indique l'emplacement où copier l'affichage. Il peut s’agir de l’une des constantes PjCopyPictureFor suivantes : pjScreen, pjPrinter ou pjGIF. Si Object a la valeur True, l'argument ForPrinter est ignoré. La valeur par défaut est pjScreen |
| SelectedRows | Facultatif | Boolean | True si Project copie uniquement les lignes sélectionnées. Renvoie la valeur False si le programme copie toutes les lignes visibles. |
| FromDate | Facultatif | Variant | Début de l'échelle de temps pour l'image copiée. Si Object a la valeur True, l'argument FromDate est ignoré. Si FromDate est spécifié et que ToDate ne l’est pas, Project utilise la dernière date entrée pour la fin de l’échelle de temps. Si cela crée un intervalle de temps négatif, le programme utilise la dernière date d’échelle de temps visible dans l’affichage actif. La valeur par défaut correspond à la date la plus récente de l'échelle de temps visible dans l'affichage actif. |
| ToDate | Facultatif | Variant | Fin de l'échelle de temps pour l'image copiée. Si Object a la valeur True, ToDate est ignoré. Si ToDate est spécifié et que FromDate ne l’est pas, Project utilise la dernière date entrée pour le début de l’échelle de temps. Si cela crée un intervalle de temps négatif, le programme utilise la date d’échelle de temps la plus ancienne visible dans l’affichage actif. La valeur par défaut correspond à la dernière date de l'échelle de temps visible dans l'affichage actif. |
| FileName | Facultatif | String | Nom du fichier d'images GIF. Si ForPrinter est pjGIF, FileName est requis. Si Object a la valeur True ou si ForPrinter n’est pas pjGIF, FileName est ignoré. |
| ScaleOption | Facultatif | Long | Spécifie comment traiter une image de l’affichage actif si elle est supérieure à MaxImageWidth de MaxImageHeight (par défaut, 22 pouces par 22 pouces). La valeur par défaut est pjCopyPictureKeepRange. Il peut s’agir de l’une des constantes PjCopyPictureScaleOption . |
| MaxImageHeight | Facultatif | Double | Spécifie la hauteur maximale de l'image. La plage acceptée de MaxImageHeight est de 1 à 22 pouces (2,54 à 55,88 centimètres). La valeur par défaut est de 55,88 centimètres (22 pouces). |
| MaxImageWidth | Facultatif | Double | Spécifie la largeur maximale de l'image. La plage acceptée de MaxImageWidth est de 1 à 22 pouces (2,54 à 55,88 centimètres). La valeur par défaut est de 55,88 centimètres (22 pouces). |
| MeasurementUnits | Facultatif | Variant | Long. Spécifie les unités de mesure à utiliser. La valeur par défaut est pjInches. Il peut s’agir de l’une des constantes PjMeasurementUnits . |
Valeur renvoyée
Boolean
Remarques
L’utilisation de la méthode EditCopyPicture sans arguments affiche la boîte de dialogue Copier l’image .
Exemple
L'exemple suivant montre comment copier un affichage du diagramme de Gantt dans un fichier Test.gif et enregistrer ce fichier dans le répertoire racine.
Sub Edit_CopyPicture()
'Activate the Gantt Chart view
ViewApply Name:="&Gantt Chart"
EditCopyPicture ForPrinter:=pjGIF, FileName:="C:\Test.gif"
End Sub
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.