Propriété PictureFormat.ColorsInPalette (Publisher)

Renvoie un type Long qui représente le nombre de couleurs dans la palette d'image. En lecture seule.

Syntaxe

expression. ColorsInPalette

Expression Variable qui représente un objet PictureFormat .

Valeur renvoyée

Entier long

Remarques

Cette propriété ne s’applique qu’aux images qui ne sont pas en couleurs vraies (qui contiennent en fait des données de couleur inférieures à 24 bits par canal.) Renvoie « Autorisation refusée » pour les formes représentant des images qui ont la valeur TrueColor.

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

Exemple

L’exemple suivant teste chaque image du document actif et imprime si l’image est TrueColor. Si l’image n’a pas la valeur TrueColor, l’exemple montre comment afficher le nombre de couleurs dans la palette de l’image.

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 
 Debug.Print .Filename 
 If .IsTrueColor = msoTrue Then 
 Debug.Print "This picture is TrueColor" 
 Else 
 Debug.Print "This picture contains " & .ColorsInPalette & " colors." 
 End If 
 End If 
 End With 
 
 End If 
 Next shpLoop 
Next pgLoop 

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.