次の方法で共有

PictureFormat.IsGreyScale プロパティ (Publisher)

  • [アーティクル]

画像がグレースケール 画像であるかどうかを示す MsoTriState 定数を返します。 読み取り専用です。

構文

式。IsGreyScale

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

戻り値

MsoTriState

注釈

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

定数 説明
msoFalse 指定した図はグレースケール イメージではありません。
msoTriStateMixed MsoTrue と msoFalse を指定した図形範囲の組み合わせを示します。
msoTrue 指定した図はグレースケール イメージです。

例

次の使用例は、作業中の文書に含まれるグレースケールの図のリストを取得します。

Sub ListGreyScalePictures() 
Dim pgLoop As Page 
Dim shpLoop As Shape 
 
 For Each pgLoop In ActiveDocument.Pages 
 For Each shpLoop In pgLoop.Shapes 
 
 If shpLoop.Type = pbPicture Or shpLoop.Type = pbLinkedPicture Then 
 
 With shpLoop.PictureFormat 
 If .IsEmpty = msoFalse And .IsGreyScale = msoCTrue Then 
 
 Debug.Print .Filename 
 Debug.Print "Page " & pgLoop.PageNumber 
 
 End If 
 End With 
 
 End If 
 
 Next shpLoop 
 Next pgLoop 
 
End Sub

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

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