次の方法で共有

Shape.ScaleHeight メソッド (Word)

  • [アーティクル]

指定した係数分だけ図形の高さを変更します。

構文

式。ScaleHeight (Factor、 RelativeToOriginalSize、 Scale)

expression 必須です。 Shape オブジェクトを表す変数を指定します。

パラメーター

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

注釈

図または OLE オブジェクトの場合は、図形の元のサイズに対して拡大または縮小するのか、現在のサイズに対して拡大または縮小するのかを指定できます。 図または OLE オブジェクト以外の図形の場合は、常に現在の高さに対して拡大または縮小されます。

例

次の使用例は、myDocument のすべての図と OLE オブジェクトの高さと幅を元の 175% に拡大し、その他のすべての図形の高さと幅を現在の 175% に拡大します。

Set myDocument = ActiveDocument 
For Each s In myDocument.Shapes 
 Select Case s.Type 
 Case msoEmbeddedOLEObject, msoLinkedOLEObject, _ 
 msoOLEControlObject, _ 
 msoLinkedPicture, msoPicture 
 s.ScaleHeight 1.75, True 
 s.ScaleWidth 1.75, True 
 Case Else 
 s.ScaleHeight 1.75, False 
 s.ScaleWidth 1.75, False 
 End Select 
Next

関連項目

Shape オブジェクト

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

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