次の方法で共有

PictureFormat.VerticalScale プロパティ (Publisher)

  • [アーティクル]

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

構文

式。VerticalScale

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

戻り値

Long

注釈

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

指定された文書内の印刷される図または OLE オブジェクトの解像度を調べるには、 EffectiveResolution プロパティを使用します。

例

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

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