PictureFormat.EffectiveResolution-Eigenschaft (Publisher)

Gibt eine lange, die darstellt, in Punkte pro Zoll (dpi), die effektive Auflösung des Bilds zurück. Schreibgeschützt.

Syntax

Ausdruck. EffectiveResolution

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.

Verwenden Sie die OriginalResolution-Eigenschaft , um die Auflösung verknüpfter Bilder oder OLE-Objekte zu bestimmen.

Verwenden Sie die Eigenschaften HorizontalScale und VerticalScale, um die Skalierung einer Grafik zu ermitteln.

Beispiel

Das folgende Beispiel gibt eine Liste von Grafiken zurück, deren effektive Auflösung in der aktiven Publikation unterhalb eines angegebenen Schwellenwerts (100 dpi) liegt.

Sub ListLowResolutionPictures() 
 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 
 If .EffectiveResolution < 100 Then 
 Debug.Print .Filename 
 Debug.Print "Page " & pgLoop.PageNumber 
 Debug.Print "Resolution in publication: " & .EffectiveResolution 
 End If 
 End If 
 End With 
 
 End If 
 
 Next shpLoop 
 Next pgLoop 
 
End Sub

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.