次の方法で共有

PictureFormat.OriginalHeight プロパティ (Publisher)

  • [アーティクル]

指定したリンクされた図または OLE オブジェクトの高さをポイント単位で表すバリアント型 (Variant) の値を返します。 読み取り専用です。

構文

式。OriginalHeight

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

戻り値

バリアント型

注釈

このプロパティは、リンクされた図または 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 = pbLinkedPicture Then 
 
 With shpLoop.PictureFormat 
 
 Debug.Print "File Name: " & .Filename 
 Debug.Print "Horizontal Scaling: " & .HorizontalScale & "%" 
 Debug.Print "Original Image Height: " & .OriginalHeight & " points" 
 Debug.Print "Height in publication: " & .Height & " points" 
 
 End With 
 End If 
 Next shpLoop 
Next pgLoop

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

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