PictureFormat.VerticalScale-Eigenschaft (Publisher)

Artikel
10/16/2024

Gibt eine lange, die die Skalierung der Grafik entlang ihrer vertikalen Achse darstellt. Die Skalierung wird als Prozentsatz (beispielsweise 200 Equals Skalierung von 200 %) ausgedrückt. Schreibgeschützt.

Syntax

Ausdruck. VerticalScale

Ausdruck Eine Variable, die ein PictureFormat-Objekt darstellt.

Rückgabewert

Long

Hinweise

Die effektive Auflösung einer Grafik steht im umgekehrten Verhältnis zur Skalierung, mit der die Grafik gedruckt wird. Je höher die Skalierung, desto geringer die effektive Auflösung. Beispiel: Eine Grafik im Format 10x10 cm wurde ursprünglich mit 300 dpi gescannt. Wenn diese Grafik auf 5x5 cm skaliert wird, beträgt die effektive Auflösung 600 dpi.

Mit der EffectiveResolution -Eigenschaft können Sie die Auflösung bestimmen, mit der das Bild oder das OLE-Objekt im angegebenen Dokument gedruckt wird.

Beispiel

Das folgende Beispiel druckt ausgewählte Bildeigenschaften für jede Grafik in der aktiven Publikation.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über