Propriedade PictureFormat.IsTrueColor (Publisher)

Retorna uma constante MsoTriState indicando se a imagem especificada ou o objeto OLE contém dados de cor de 24 bits por canal ou maior. Somente leitura.

Sintaxe

expressão. IsTrueColor

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

Valor de retorno

MsoTriState

Comentários

Para imagens que não são TrueColor, use a propriedade ColorsInPalette para determinar o número de cores na paleta da imagem.

O valor da propriedade IsTrueColor pode ser uma das constantes MsoTriState declaradas na biblioteca de tipos do Microsoft Office e mostradas na tabela a seguir.

Constante	Descrição
msoFalse	A imagem especificada não contém dados de cores de 24 bits ou mais por canal.
msoTriStateMixed	Um valor retornado que indica uma combinação de msoTrue e msoFalse para o intervalo de formas especificado.
msoTrue	A imagem especificada contém dados de cores de 24 bits ou mais por canal.

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.