Propiedad PictureFormat.OriginalResolution (Publisher)

Devuelve un Long que representa, en puntos por pulgada (PPP), la resolución a la que se examinó originalmente la imagen vinculada. Solo lectura.

Sintaxis

expresión. OriginalResolution

expresión Variable que representa un objeto PictureFormat .

Valor devuelto

Long

Observaciones

Esta propiedad sólo se utiliza con imágenes vinculadas. Devuelve el error "Permiso denegado" para las formas que representen imágenes incrustadas o pegadas.

Utilice una de las propiedades siguientes para determinar si una forma representa una imagen vinculada:

• La propiedad Type del objeto Shape
• La propiedad IsLinked del objeto PictureFormat

Utilice la propiedad EffectiveResolution para determinar la resolución a la que se imprimirá la imagen u objeto OLE del documento especificado.

Ejemplo

En el siguiente ejemplo se comprueban las imágenes de la publicación activa y se devuelven las propiedades seleccionadas de las que estén vinculadas.

Dim pgLoop As Page 
Dim shpLoop As Shape 
 
For Each pgLoop In ActiveDocument.Pages 
 For Each shpLoop In pgLoop.Shapes 
 If shpLoop.Type = pbLinkedPicture Then 
 
 With shpLoop.PictureFormat 
 
 Debug.Print "File Name: " & .Filename 
 Debug.Print "Resolution in Publication: " & .EffectiveResolution & " dpi" 
 Debug.Print "Original Resolution: " & .OriginalResolution & " dpi" 
 
 End With 
 End If 
 Next shpLoop 
Next pgLoop 

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.