Propriedade PictureFormat.OriginalIsTrueColor (Publisher)
Retorna uma constante MsoTriState indicando se a imagem vinculada especificada ou o objeto OLE contém dados de cor de 24 bits por canal ou maior. Somente leitura.
Sintaxe
expressão. OriginalIsTrueColor
Expressão Uma variável que representa um objeto PictureFormat .
Valor de retorno
MsoTriState
Comentários
Esta propriedade aplica-se somente a imagens ou objetos OLE vinculados. Ela retorna "Permission Denied" para formas que representam imagens e objetos OLE incorporados ou colados.
Use as propriedades a seguir para determinar se uma forma representa uma imagem vinculada:
O valor da propriedade OriginalIsTrueColor 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 vinculada não contém dados de cores de 24 bits ou mais por canal. |
| msoTriStateMixed | Indica uma combinação de msoTrue e msoFalse do intervalo de formas especificado. |
| msoTrue | A imagem especificada vinculada contém dados de cores de 24 bits ou mais por canal. |
Exemplo
O exemplo a seguir retorna uma lista de imagens no documento ativo que são TrueColor. Se uma imagem estiver vinculada e também for TrueColor, essas informações também são retornadas.
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 = msoTrue Then
Debug.Print .Filename
Debug.Print "This picture is TrueColor"
If .IsLinked = msoTrue Then
If .OriginalIsTrueColor = msoTrue Then
Debug.Print "The linked picture is also TrueColor."
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.