ScaleHeight メソッド (Excel)Shape.ScaleHeight method (Excel)

指定された倍率で図形の高さを拡大または縮小します。Scales the height of the shape by a specified factor. 図または OLE オブジェクトの場合は、図形の元のサイズを基準に拡大または縮小するのか、現在のサイズを基準に拡大または縮小するのかを指定できます。For pictures and OLE objects, you can indicate whether you want to scale the shape relative to the original or the current size. 図または OLE オブジェクト以外の図形は、常に現在の高さを基準に拡大または縮小されます。Shapes other than pictures and OLE objects are always scaled relative to their current height.

構文Syntax

ScaleHeight(FactorRelativeToOriginalSizeScale)expression.ScaleHeight (Factor, RelativeToOriginalSize, Scale)

Shape オブジェクトを表す変数を取得します。expression A variable that represents a Shape object.

パラメーターParameters

名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
FactorFactor 必須Required SingleSingle 現在の高さと変更後の高さの比率、または元の高さと変更後の高さの比率を指定します。Specifies the ratio between the height of the shape after you resize it and the current or original height. たとえば、四角形を 50% 拡大する場合は、この引数に 1.5 を指定します。For example, to make a rectangle 50 percent larger, specify 1.5 for this argument.
RelativeToOriginalSizeRelativeToOriginalSize 必須Required MsoTriStateMsoTriState 元のサイズを基準にして図形を拡大または縮小する場合は msoTruemsoTrue to scale the shape relative to its original size. 現在のサイズを基準にして拡大または縮小する場合は msoFalse を指定します。msoFalse to scale it relative to its current size. msoTrue を指定できるのは、図形が図または OLE オブジェクトのときだけです。You can specify msoTrue for this argument only if the specified shape is a picture or an OLE object.
ScaleScale 省略可能Optional VariantVariant Msoscalefrom の定数の1つ。図形を拡大または縮小するときに、図形の位置を保持する部分を指定します。One of the constants of MsoScaleFrom, which specifies which part of the shape retains its position when the shape is scaled.

Example

次の使用例は、myDocument のすべての図と OLE オブジェクトの高さと幅を元の 175% に拡大し、その他のすべての図形の高さと幅を現在の 175% に拡大します。This example scales all pictures and OLE objects on myDocument to 175 percent of their original height and width, and it scales all other shapes to 175 percent of their current height and width.

Set myDocument = Worksheets(1) 
For Each s In myDocument.Shapes 
    Select Case s.Type 
    Case msoEmbeddedOLEObject, _ 
            msoLinkedOLEObject, _ 
            msoOLEControlObject, _ 
            msoLinkedPicture, msoPicture 
        s.ScaleHeight 1.75, msoTrue 
        s.ScaleWidth 1.75, msoTrue 
    Case Else 
        s.ScaleHeight 1.75, msoFalse 
        s.ScaleWidth 1.75, msoFalse 
    End Select 
Next

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.