Returns an MsoTriState constant indicating whether the specified linked picture or OLE object contains color data of 24 bits per channel or greater. Read-only.
expression. OriginalIsTrueColor
_expression_A variable that represents an PictureFormat object.
MsoTriState
This property only applies to linked pictures or OLE objects. It returns "Permission Denied" for shapes representing embedded or pasted pictures and OLE objects.
To determine whether a shape represents a linked picture, use either the Type property of the Shape object, or the IsLinked property of the PictureFormat object.
The OriginalIsTrueColor property value can be one of the MsoTriState constants declared in the Microsoft Office type library and shown in the following table.
| Constant | Description |
|---|---|
| msoFalse | The specified linked picture does not contain color data of 24 bits per channel or greater. |
| msoTriStateMixed | Indicates a combination of msoTrue and msoFalse for the specified shape range. |
| msoTrue | The specified linked picture contains color data of 24 bits per channel or greater. |
The following example returns a list of pictures in the active document that are TrueColor. If a picture is linked, and the linked picture is also TrueColor, that information is also returned.
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