Propriété PictureFormat.OriginalColorsInPalette (Publisher)

2023-04-07

Renvoie un type Long qui représente le nombre de couleurs dans la palette de l'image liée spécifiée. En lecture seule.

Syntaxe

expression. OriginalColorsInPalette

Expression Variable qui représente un objet PictureFormat .

Valeur renvoyée

Entier long

Remarques

Cette propriété s’applique uniquement aux images liées ou aux objets OLE qui ne sont pas TrueColor (autrement dit, ils contiennent des données de couleur inférieures à 24 bits par canal). Renvoie « Autorisation refusée » pour les formes représentant des images incorporées ou collées et des objets OLE, ou des images liées qui ont la valeur TrueColor.

Utilisez une des propriétés suivantes pour déterminer si une forme représente une image liée :

La propriété Type de l'objet Shape
La propriété IsLinked de l'objet PictureFormat

Utilisez la propriété OriginalIsTrueColor pour déterminer si une image liée contient des données de couleur 24 bits par canal ou plus.

Exemple

L'exemple suivant permet de renvoyer une liste de toutes les images de la composition active qui ne sont pas en couleurs vraies. Le nombre de couleurs de chaque palette d'image est renvoyé, et si l'image est liée et qu'elle n'est pas en couleurs vraies, le nombre de couleurs dans sa palette est également renvoyé.

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 = msoFalse Then 
 Debug.Print .Filename 
 Debug.Print "This picture has " & .ColorsInPalette & " colors." 
 If .IsLinked = msoTrue Then 
 If .OriginalIsTrueColor = msoFalse Then 
 Debug.Print "The linked picture has " & _ 
 .OriginalColorsInPalette & " colors." 
 End If 
 End If 
 End If 
 
 End If 
 End With 
 
 End If 
 Next shpLoop 
Next pgLoop 
 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via