Propriedade PictureFormat.VerticalScale (Publisher)

Retorna um Long que representa o dimensionamento da imagem junto com seu eixo vertical. O dimensionamento é expresso como um percentual (por exemplo, 200 igual a 200% dimensionamento). Somente leitura.

Sintaxe

expressão. VerticalScale

Expressão Uma variável que representa um objeto PictureFormat .

Valor de retorno

Long

Comentários

A resolução real de uma imagem é inversamente proporcional ao dimensionamento no qual a imagem é impressa. Quanto maior o dimensionamento, menor a resolução real. Por exemplo, suponha que uma imagem medindo 10 cm por 10 cm foi originalmente digitalizada a 300 dpi. Se essa imagem for dimensionada para 5 cm por 5 cm, sua resolução real será 600 dpi.

Use a propriedade EffectiveResolution para determinar a resolução na qual a imagem ou o objeto OLE será impresso no documento especificado.

Exemplo

O exemplo a seguir imprime a imagem selecionada para cada imagem na publicação ativa.

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 
 

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.