PictureFormat.FileName-Eigenschaft (Publisher)
Gibt eine Zeichenfolge, die den Dateinamen des angegebenen Bilds oder OLE-Objekt darstellt. Schreibgeschützt.
Syntax
Ausdruck. Dateiname
Ausdruck Eine Variable, die ein PictureFormat-Objekt darstellt.
Rückgabewert
String
Hinweise
Im Fall von verknüpften Grafiken und OLE-Objekten stellt die zurückgegebene Zeichenfolge den vollständigen Pfad- und Dateinamen der Grafik dar. Im Fall von eingebetteten Grafiken und OLE-Objekten stellt die zurückgegebene Zeichenfolge nur den Dateinamen dar.
Um zu bestimmen, ob eine Form ein verknüpftes Bild darstellt, verwenden Sie entweder die Type-Eigenschaft des Shape-Objekts oder die IsLinked-Eigenschaft des PictureFormat-Objekts .
Beispiel
Das folgende Beispiel gibt ausgewählte Bildeigenschaften für jede Grafik in der aktiven Publikation 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 = pbPicture Or shpLoop.Type = pbLinkedPicture Then
With shpLoop.PictureFormat
If .IsEmpty = msoFalse Then
Debug.Print "File Name: " & .FileName
Debug.Print "Horizontal Scaling: " & .HorizontalScale & "%"
Debug.Print "Vertical Scaling: " & .VerticalScale & "%"
Debug.Print "File size in publication: " & .FileSize & " bytes"
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.