PictureFormat.HorizontalScale プロパティ (Publisher)

長い 水平方向の軸に沿った図の倍率を表す値を返します。 スケーリングは、パーセント値 (たとえば、200 は倍率 200%) で表されます。 読み取り専用です。

構文

式。HorizontalScale

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

戻り値

Long

注釈

図の実効解像度は、図が印刷される拡大/縮小率に反比例します。 拡大/縮小率が大きいほど、実効解像度は小さくなります。 たとえば、大きさが 4 x 4 インチ (10.16 x 10.16 センチ) の図が最初に 300 dpi でスキャンされたとします。 この図が 2 x 2 インチ (5.08 x 5.08 センチ) に縮小された場合、実効解像度は 600 dpi になります。

EffectiveResolution プロパティを使用して、図または OLE オブジェクトが指定したドキュメントで印刷される解像度を決定します。

例

次の使用例は、作業中の文書の図ごとに選択されたイメージのプロパティを出力します。

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 "Resolution in Publication: " & .EffectiveResolution & " dpi" 
 Debug.Print "Horizontal Scaling: " & .HorizontalScale & "%" 
 Debug.Print "Height in publication: " & .Height & " points" 
 Debug.Print "Vertical Scaling: " & .VerticalScale & "%" 
 Debug.Print "Width in publication: " & .Width & " points" 
 End If 
 
 End With 
 End If 
 Next shpLoop 
Next pgLoop 
 

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

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