次の方法で共有

PictureFormat.HasTransparencyColor プロパティ (Publisher)

  • [アーティクル]

ブール値 を指定した図に透明カラーが適用されているかどうかを示す値を返します。 読み取り専用です。

構文

式。HasTransparencyColor

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

戻り値

Boolean

例

次の使用例は、作業中の文書で透明カラーが使用されている図のリストを取得します。

Sub ListPicturesWithTransColors() 
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 Then 
 If .HasTransparencyColor = True Then 
 Debug.Print .Filename 
 End If 
 End If 
 End With 
 
 End If 
 
 Next shpLoop 
 Next pgLoop 
 
End Sub

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

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