PictureFormat.OriginalHasAlphaChannel-Eigenschaft (Publisher)

Gibt eine MsoTriState-Konstante zurück, je nachdem, ob das ursprüngliche verknüpfte Bild einen Alphakanal enthält. Schreibgeschützt.

Syntax

Ausdruck. OriginalHasAlphaChannel

Ausdruck Eine Variable, die ein PictureFormat-Objekt darstellt.

Rückgabewert

MsoTriState

HinwBemerkungeneise

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

Bei einem Alphakanal handelt es sich um einen speziellen 8-Bit-Kanal, der von einigen Bildverarbeitungsprogrammen verwendet wird und zusätzliche Daten enthält, wie Masking- oder Transparenzinformationen.

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

Konstante Beschreibung
msoFalse Die verknüpfte Originalgrafik enthält keinen Alphakanal.
msoTriStateMixed Gibt eine Kombination von MsoTrue und MsoFalse für den angegebenen Formenbereich an.
msoTrue Die verknüpfte Originalgrafik enthält einen Alphakanal.

Beispiel

Das folgende Beispiel gibt zurück, ob die erste Form auf der ersten Seite der aktiven Publikation einen Alphakanal enthält. Wenn die Grafik verknüpft ist und die Originalgrafik einen Alphakanal enthält, wird auch dieses zurückgegeben. In diesem Beispiel wird davon ausgegangen, dass es sich bei der Form um ein Bild handelt.

With ActiveDocument.Pages(1).Shapes(1).PictureFormat 
 If .HasAlphaChannel = msoTrue Then 
 Debug.Print .Filename 
 Debug.Print "This picture contains an alpha channel." 
 
 If .IsLinked = msoTrue Then 
 If .OriginalHasAlphaChannel = msoTrue Then 
 Debug.Print "The linked picture " & _ 
 "also contains an alpha channel." 
 End If 
 End If 
 End If 
End With 

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.