Propiedad PictureFormat.OriginalWidth (Publisher)

Devuelve un valor Variant que representa, en puntos, el ancho de la imagen vinculada especificada o el objeto OLE. Solo lectura.

Sintaxis

expresión. OriginalWidth

expresión Variable que representa un objeto PictureFormat .

Valor devuelto

Variant

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
• Propiedad IsLinked del objeto PictureFormat

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 "Vertical Scaling: " & .VerticalScale & "%" 
 Debug.Print "Original Image Width: " & .OriginalWidth & " points" 
 Debug.Print "Width in publication: " & .Width & " points" 
 
 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.