Método Application.EditCopyPicture (Project)
Copia la vista activa como una imagen o un objeto OLE o bien exporta la vista activa a un archivo de imagen .GIF.
Sintaxis
expresión. EditCopyPicture( _Object_, _ForPrinter_, _SelectedRows_, _FromDate_, _ToDate_, _FileName_, _ScaleOption_, _MaxImageHeight_, _MaxImageWidth_, _MeasurementUnits_ )
expresión Variable que representa un objeto Application.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Objeto | Opcional | Boolean | True si la vista debe copiarse como un objeto OLE. El valor predeterminado es False. |
| ForPrinter | Opcional | Long | Especifica dónde copiar la vista. Puede ser una de las siguientes constantes de PjCopyPictureFor: pjScreen, pjPrinter o pjGIF. Si Object es True, se omitirá ForPrinter. El valor predeterminado es pjScreen. |
| SelectedRows | Opcional | Boolean | True si Project copia sólo las filas seleccionadas. False si el programa copia todas las filas visibles. |
| FromDate | Opcional | Variant | El principio de la escala temporal de la imagen copiada. Si Object es True, se omitirá FromDate. Si se especifica FromDate y ToDate no, Project usará la última fecha especificada para el final de la escala temporal. Si se genera un lapso de tiempo negativo, el programa usará la última fecha de la escala temporal visible en la vista activa. El valor predeterminado es la primera fecha de la escala temporal visible en la vista activa. |
| ToDate | Opcional | Variant | El final de la escala temporal de la imagen copiada. Si Object es True, se omite ToDate. Si se especifica ToDate y FromDate no, Project usará la última fecha especificada para el inicio de la escala temporal. Si se genera un lapso de tiempo negativo, el programa usará la primera fecha de la escala temporal visible en la vista activa. El valor predeterminado es la última fecha de la escala temporal visible en la vista activa. |
| FileName | Opcional | String | El nombre de archivo para el archivo de imagen GIF. Si ForPrinter es pjGIF, se requiere FileName. Si Object es True o ForPrinter no es pjGIF, se omite el nombre de archivo. |
| ScaleOption | Opcional | Long | Especifica cómo tratar una imagen de la vista activa si es mayor que MaxImageWidth por MaxImageHeight (22 por 22 pulgadas de manera predeterminada). El valor predeterminado es pjCopyPictureKeepRange. Puede ser una de las constantes de PjCopyPictureScaleOption. |
| MaxImageHeight | Opcional | Double | Especifica el alto máximo de la imagen. El intervalo aceptado de MaxImageHeight es de 1 a 22 pulgadas (2,54 a 55,88 centímetros). El valor predeterminado es 22 (pulgadas). |
| Maximagewidth | Opcional | Double | Especifica el ancho máximo de la imagen. El intervalo aceptado de MaxImageWidth es de 1 a 22 pulgadas (2,54 a 55,88 centímetros). El valor predeterminado es 22 (pulgadas). |
| MeasurementUnits | Opcional | Variant | De tipo long. Especifica las unidades de medida. El valor predeterminado es pjInches. Puede ser una de las constantes de PjMeasurementUnits. |
Valor devuelto
Boolean
Comentarios
Utilice el método EditCopyPicture sin argumentos, muestra el cuadro de diálogo Copiar imagen.
Ejemplo:
En el siguiente ejemplo se realiza una copia de la vista Diagrama de Gantt como Test.gif y se guarda en la carpeta raíz.
Sub Edit_CopyPicture()
'Activate the Gantt Chart view
ViewApply Name:="&Gantt Chart"
EditCopyPicture ForPrinter:=pjGIF, FileName:="C:\Test.gif"
End Sub
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.