PictureFormat.OriginalIsTrueColor プロパティ (Publisher)

指定したリンクされた図または OLE オブジェクトにチャネルあたり 24 ビット以上の色データが含まれているかどうかを示す MsoTriState 定数を返します。 読み取り専用です。

構文

式。OriginalIsTrueColor

式PictureFormat オブジェクトを表す変数。

戻り値

MsoTriState

注釈

このプロパティはリンクされた図または OLE オブジェクトにのみ使用できます。 埋め込まれたり、貼り付けられた図および OLE オブジェクトを表す図形に対しては、"アクセスは拒否されました" というエラーが返されます。

図形がリンクされた図を表しているかどうかを調べるには、次のいずれかのプロパティを使用します。

• Shape オブジェクトの Type プロパティ
• PictureFormat オブジェクトの IsLinked プロパティ

OriginalIsTrueColor プロパティの値には、Microsoft Office のタイプ ライブラリで宣言されているし、次の表に示す msotristate クラス の定数のいずれかを指定できます。

例

次の使用例は、作業中の文書内の TrueColor である図のリストを取得します。 図がリンクされ、リンクされた図も TrueColor である場合は、その情報も取得します。

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。