Propiedad PictureFormat.OriginalHeight (Publisher)

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

Sintaxis

expresión. OriginalHeight

expresión Variable que representa un objeto PictureFormat .

Valor devuelto

Variant

Observaciones

Esta propiedad sólo se utiliza con imágenes u objetos OLE vinculados. 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 "Horizontal Scaling: " & .HorizontalScale & "%" 
 Debug.Print "Original Image Height: " & .OriginalHeight & " points" 
 Debug.Print "Height in publication: " & .Height & " 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.