次の方法で共有

PictureFormat.IsTrueColor プロパティ (Publisher)

  • [アーティクル]

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

構文

式。IsTrueColor

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

戻り値

MsoTriState

注釈

TrueColor ではない図の場合は、 ColorsInPalette プロパティを使用して、図のパレット内の色の数を決定します。

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

定数 説明
msoFalse 指定した図には、1 チャネルあたり 24 ビット以上のカラー データは含まれません。
msoTriStateMixed 指定した図形範囲の msoTrue と msoFalse の組み合わせを示す戻り値。
msoTrue 指定した図には、1 チャネルあたり 24 ビット以上のカラー データが含まれます。

例

次の例では、作業中の文書内の各画像をテストし、画像が TrueColor かどうかを出力します。 TrueColor でない場合は、画像のパレット内の色の数を出力します。

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

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

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