PictureFormat.OriginalIsTrueColor-Eigenschaft (Publisher)

  • Artikel

Gibt eine MsoTriState-Konstante zurück, die angibt, ob das angegebene verknüpfte Bild oder OLE-Objekt Farbdaten von 24 Bit pro Kanal oder höher enthält. Schreibgeschützt.

Syntax

Ausdruck. OriginalIsTrueColor

Ausdruck Eine Variable, die ein PictureFormat-Objekt darstellt.

Rückgabewert

MsoTriState

HinwBemerkungeneise

Diese Eigenschaft betrifft nur verknüpfte Grafiken oder OLE-Objekte. Sie gibt für Formen, die eingebettete oder eingefügte Grafiken und OLE-Objekte 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

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

Konstante Beschreibung
msoFalse Die angegebene verknüpfte Grafik enthält keine Farbdaten von 24 Bit pro Kanal oder höher.
msoTriStateMixed Gibt eine Kombination von MsoTrue und MsoFalse für den angegebenen Formenbereich an.
msoTrue Die angegebene verknüpfte Grafik enthält Farbdaten von 24 Bit pro Kanal oder höher.

Beispiel

Das folgende Beispiel gibt eine Liste von Grafiken im aktiven Dokument zurück, bei denen es sich um TrueColor handelt. Wenn eine Grafik verknüpft ist und es sich bei dieser Grafik außerdem um TrueColor handelt, werden auch diese Informationen zurückgegeben.

Sub PictureColorInformation() 
Dim pgLoop As Page 
Dim shpLoop As Shape 
 
For Each pgLoop In ActiveDocument.Pages 
 For Each shpLoop In pgLoop.Shapes 
 If shpLoop.Type = pbLinkedPicture Or shpLoop.Type = pbPicture Then 
 
 With shpLoop.PictureFormat 
 If .IsEmpty = msoFalse Then 
 
 If .IsTrueColor = msoTrue Then 
 Debug.Print .Filename 
 Debug.Print "This picture is TrueColor" 
 If .IsLinked = msoTrue Then 
 If .OriginalIsTrueColor = msoTrue Then 
 Debug.Print "The linked picture is also TrueColor." 
 End If 
 End If 
 End If 
 
 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.