PictureFormat.IsGreyScale-Eigenschaft (Publisher)

Artikel
10/16/2024

Gibt eine MsoTriState-Konstante zurück, die angibt, ob das Bild ein Graustufenbild ist. Schreibgeschützt.

Syntax

Ausdruck. IsGreyScale

Ausdruck Eine Variable, die ein PictureFormat-Objekt darstellt.

Rückgabewert

MsoTriState

Hinweise

Der Wert der IsGreyScale -Eigenschaft kann eine der in der Microsoft Office-Typbibliothek deklarierten und in der folgenden Tabelle angezeigten MsoTriState -Konstanten sein.

Konstante	Beschreibung
msoFalse	Die Grafik ist kein Bild in Graustufen.
msoTriStateMixed	Gibt eine Kombination von MsoTrue und MsoFalse für den angegebenen Formenbereich an.
msoTrue	Die angegebene Grafik ist ein Bild in Graustufen.

Beispiel

Das folgende Beispiel gibt eine Liste der Bilder in Graustufen zurück, die in der aktiven Publikation enthalten sind.

Sub ListGreyScalePictures() 
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 And .IsGreyScale = msoCTrue Then 
 
 Debug.Print .Filename 
 Debug.Print "Page " & pgLoop.PageNumber 
 
 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.

Freigeben über