Propiedad PictureFormat.VerticalScale (Publisher)

Devuelve un Long que representa la escala de la imagen a lo largo de su eje vertical. La escala se expresa como un porcentaje (por ejemplo, 200 equivale a escala del 200%). Solo lectura.

Sintaxis

expresión. VerticalScale

expresión Variable que representa un objeto PictureFormat .

Valor devuelto

Long

Observaciones

La resolución eficaz de una imagen es inversamente proporcional a la escala en la que se imprime. Cuanto mayor sea la escala, menor será la resolución eficaz. Por ejemplo, imagine una imagen que mide 4 x 4 pulgadas y que, originalmente, se digitalizó a 300 ppp. Si ajusta el tamaño de esa imagen a 2 x 2 pulgadas, la resolución eficaz será de 600 ppp.

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 imprimen las propiedades seleccionadas para cada una de las imágenes de la publicación activa.

Dim pgLoop As Page 
Dim shpLoop As Shape 
 
For Each pgLoop In ActiveDocument.Pages 
 For Each shpLoop In pgLoop.Shapes 
 If shpLoop.Type = pbPicture Or shpLoop.Type = pbLinkedPicture Then 
 
 With shpLoop.PictureFormat 
 
 If .IsEmpty = msoFalse Then 
 Debug.Print "File Name: " & .Filename 
 Debug.Print "Resolution in Publication: " & .EffectiveResolution & " dpi" 
 Debug.Print "Horizontal Scaling: " & .HorizontalScale & "%" 
 Debug.Print "Height in publication: " & .Height & " points" 
 Debug.Print "Vertical Scaling: " & .VerticalScale & "%" 
 Debug.Print "Width in publication: " & .Width & " points" 
 End If 
 
 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.