PictureFormat.OriginalHeight-Eigenschaft (Publisher)

Artikel
04/07/2023

Gibt einen Variant-Wert zurück, der die Höhe des angegebenen verknüpften Bilds oder OLE-Objekts in Punkt darstellt. Schreibgeschützt.

Syntax

Ausdruck. OriginalHeight

Ausdruck Eine Variable, die ein PictureFormat-Objekt darstellt.

Rückgabewert

Variant

Bemerkungen

Diese Eigenschaft betrifft nur verknüpfte Grafiken oder OLE-Objekte. Gibt für Formen, die eingebettete oder eingefügte Grafiken darstellen, "Berechtigung verweigert" zurück.

Verwenden Sie eine der folgenden Eigenschaften, um festzustellen, ob eine Form eine verknüpfte Grafik darstellt:

Die Type -Eigenschaft des Shape -Objekts
Die IsLinked-Eigenschaft des PictureFormat-Objekts

Beispiel

Das folgende Beispiel prüft jede Grafik in der aktiven Publikation und gibt ausgewählte Bildeigenschaften für verknüpfte Grafiken zurück.

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

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