Freigeben über


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.