Propriedade PictureFormat.OriginalColorsInPalette (Publisher)
Retorna um Long que representa o número de cores na paleta da imagem vinculada especificada. Somente leitura.
Sintaxe
expressão. OriginalColorsInPalette
Expressão Uma variável que representa um objeto PictureFormat .
Valor de retorno
Long
Comentários
Essa propriedade só se aplica a imagens vinculadas ou objetos OLE que não são TrueColor (ou seja, eles contêm dados de cor inferiores a 24 bits por canal). Retorna "Permissão Negada" para formas que representam imagens inseridas ou coladas e objetos OLE ou imagens vinculadas que são TrueColor.
Use as propriedades a seguir para determinar se uma forma representa uma imagem vinculada:
Use a propriedade OriginalIsTrueColor para determinar se uma imagem vinculada contém dados de cores de 24 bits ou mais por canal.
Exemplo
O exemplo a seguir retorna uma lista de todas as imagens da publicação ativa que não são TrueColor. O número de cores em cada paleta da imagem é retornado, e se a imagem estiver vinculada e não for TrueColor, o número de cores da sua paleta também é retornado.
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
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.