ShapeRange.ScaleHeight メソッド (Publisher)

指定した係数分だけ図形の高さを変更します。 図または OLE オブジェクトの場合は、図形を元のサイズに対して拡大または縮小するのか、現在のサイズに対して拡大または縮小するのかを指定できます。

構文

式。ScaleHeight (Factor、 RelativeToOriginalSize、 fScale)

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

パラメーター

名前	必須 / オプション	データ型	説明
要因	必須	単精度浮動小数点型 (Single)	現在の高さと変更後の高さの比率、または元の高さと変更後の高さの比率を指定します。 たとえば、四角形を 50% 拡大する場合は、この引数に 1.5 を指定します。
RelativeToOriginalSize	必須	MsoTriState	オブジェクトの元のサイズに対して拡大または縮小するのか、現在のサイズに対して拡大または縮小するのかを指定します。
fScale	省略可能	MsoScaleFrom	図形が拡大また縮小されるときに、位置を固定する部分を指定します。 Microsoft Office タイプ ライブラリで宣言されている MsoScaleFrom クラスの定数のいずれかを指定できます。 MsoScaleFromTopLeft は、既定では。

注釈

RelativeToOriginalSize パラメーターは、Microsoft Office タイプ ライブラリで宣言され、次の表に示す MsoTriState クラスの定数のいずれかになります。

定数	説明
msoFalse	現在のサイズに対して図形を拡大または縮小します。
msoTrue	元のサイズに対して図形を拡大または縮小します。

図や OLE オブジェクト以外の図形は、常に現在の高さに対してスケーリングされます。図または OLE オブジェクト以外の図形に対して msoTrue の RelativeToOriginalSize 値を指定すると、エラーが発生します。

図形の幅を拡大または縮小するには、 ScaleWidth メソッドを使用します。

例

次の使用例は、作業中の文書の先頭ページのすべての図と OLE オブジェクトの高さと幅を元の 175% に拡大し、その他のすべての図形の高さと幅を現在の 175% に拡大します。

' Looping variable. 
Dim shpLoop As Shape 
 
' Loop through all the shapes on the first page. 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 With shpLoop 
 Select Case .Type 
 ' If the shape is a picture or OLE object, 
 ' scale relative to original size. 
 Case pbPicture, pbLinkedPicture, _ 
 pbEmbeddedOLEObject, pbLinkedOLEObject, _ 
 pbOLEControlObject 
 .ScaleHeight Factor:=1.75, _ 
 RelativeToOriginalSize:=True 
 .ScaleWidth Factor:=1.75, _ 
 RelativeToOriginalSize:=True 
 ' If the shape is not a picture or OLE object, 
 ' scale relative to the current size. 
 Case Else 
 .ScaleHeight Factor:=1.75, _ 
 RelativeToOriginalSize:=False 
 .ScaleWidth Factor:=1.75, _ 
 RelativeToOriginalSize:=False 
 End Select 
 End With 
Next shpLoop 

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

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