PictureFormat.ImageFormat-Eigenschaft (Publisher)
Gibt eine PbImageFormat-Konstante zurück, die das Bildformat eines Bilds darstellt, das von der Microsoft Windows Graphics Device Interface (GDI+) bestimmt wird. Schreibgeschützt.
Syntax
Ausdruck. ImageFormat
Ausdruck Eine Variable, die ein PictureFormat-Objekt darstellt.
Rückgabewert
PbImageFormat
Hinweise
Die ImageFormat -Eigenschaft gilt für Originalbilds, statt das Platzhalterbild, sofern vorhanden.
Der Wert der ImageFormat -Eigenschaft kann eine der in der Microsoft Publisher-Typbibliothek deklarierten PbImageFormat -Konstanten sein.
Die ImageFormat -Eigenschaft gibt das Format des Bilds, nachdem sie in der Windows-Umgebung importiert wurde, statt den ursprünglichen Dateiformat an. Wenn das Bild-Dateiformat systemintern nicht vom Windows-Betriebssystem unterstützt wird, wird das Bild in ein analoges Format konvertiert, die direkt unterstützt wird. Daher wird die Konstanten PbImageFormatCMYKJPEG, PbImageFormatDIB, PbImageFormatEMF, PbImageFormatGIF und pbImageFormatPICT sehr selten, wenn überhaupt, zurückgegeben.
Informationen zu bestimmten Dateiformatkonvertierungen finden Sie in der folgenden Tabelle.
| Dateiformat | Zurückgegebene Konstante |
|---|---|
| .bmp, .dib, .gif, .pict | pbImageFormatPNG |
| .emf, .eps, EPFS | pbImageFormatWMF |
| CMYK, JFIF, JPEG, JPG | pbImageFormatJPEG |
Windows GDI+ ist der Teil des Windows-Betriebssystems und des Windows Server-Betriebssystems, der zweidimensionale Vektorgrafiken, Imageerstellung und Typografie bereitstellt.
Beispiel
Das folgende Beispiel druckt eine Liste der JPG- und JPEG-Bilder, die in der aktiven Publikation vorhanden sind.
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 .ImageFormat = pbImageFormatJPEG Then
Debug.Print .Filename
End If
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.