次の方法で共有

Shape.ScaleHeight メソッド (PowerPoint)

  • [アーティクル]

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

構文

式。ScaleHeight (Factor、 RelativeToOriginalSize、 fScale)

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

パラメーター

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

注釈

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

RelativeToOriginalSize パラメーターの値は、次の MsoTriState クラスの定数のいずれかです。 指定した図形が図または OLE オブジェクトである場合にのみ、このパラメーターには、 msoTrue を指定できます。

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

fScale パラメーターの値には、次の MsoTriState クラスの定数のいずれかを指定できます。 MsoScaleFromTopLeft は、既定では。
msoScaleFromBottomRight
msoScaleFromMiddle
msoScaleFromTopLeft

例

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

Set myDocument = ActivePresentation.Slides(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

関連項目

Shape オブジェクト

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

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