Compartilhar via

Propriedade PictureFormat.ColorsInPalette (Publisher)

  • Artigo

Retorna um Long que representa o número de cores da paleta da imagem. Somente leitura.

Sintaxe

expressão. ColorsInPalette

Expressão Uma variável que representa um objeto PictureFormat .

Valor de retorno

Long

Comentários

Esta propriedade só se aplica a imagens que não são TrueColor (isto é, imagens que contêm dados de cores de menos de 24 bits por canal). Retorna "Permission Denied" para formas que representam imagens TrueColor.

Use a propriedade IsTrueColor para determinar se uma imagem contém dados de cor de 24 bits por canal ou maior.

Exemplo

O exemplo a seguir testa cada imagem do documento ativo e as imprime se forem TrueColor. Se não forem, imprime quantas cores existirem na paleta da imagem.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.