ShapeRange.ScaleWidth メソッド (Publisher)

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

構文

式。ScaleWidth (Factor, RelativeToOriginalSize, fScale)

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

パラメーター

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

戻り値

なし

解説

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

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

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

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

例

次の使用例は、作業中の文書の先頭ページのすべての図と 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 のサポートおよびフィードバックを参照してください。