次の方法で共有

PictureFormat.IsEmpty プロパティ (Publisher)

  • [アーティクル]

指定した図形が空の図枠であるかどうかを表す MsoTriState 定数を返します。 読み取り専用です。

構文

式。IsEmpty

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

戻り値

MsoTriState

注釈

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

定数 説明
msoFalse 指定した図形は空の図枠ではありません。
msoTriStateMixed MsoTrue と msoFalse を指定した図形範囲の組み合わせを示します。
msoTrue 指定した図形は空の図枠です。

例

次の使用例は、作業中の文書の各図をテストし、空の図枠でない図について、選択したイメージ プロパティを出力します。

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 
 
 Debug.Print "File Name: " & .Filename 
 Debug.Print "Horizontal Scaling: " & .HorizontalScale & "%" 
 Debug.Print "Vertical Scaling: " & .VerticalScale & "%" 
 Debug.Print "File size in publication: " & .FileSize & " bytes" 
 
 End If 
 
 End With 
 End If 
 Next shpLoop 
Next pgLoop

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

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