次の方法で共有

PictureFormat.FileName プロパティ (Publisher)

  • [アーティクル]

指定した図または OLE オブジェクトのファイル名を表す 文字列 を返します。 読み取り専用です。

構文

式。Filename

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

戻り値

文字列

注釈

リンクした図および OLE オブジェクトの場合、取得した文字列は図の完全パスとファイル名を表します。 埋め込んだ図および OLE オブジェクトの場合、取得した文字列はファイル名のみを表します。

図形がリンクされた図を表すかどうかを判断するには、Shape オブジェクトの Type プロパティまたは PictureFormat オブジェクトの IsLinked プロパティを使用します。

例

次の使用例は、作業中の文書内の各図について、選択したイメージ プロパティを取得します。

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 のサポートおよびフィードバックを参照してください。