スキルアップ・問題解決なら、モーグにおまかせ！

Heightプロパティで図形の高さを、Widthプロパティで図形の幅を、ポイント単位で設定します。


  構文  Object.Height     図形の高さ     設定/取得
        Object.Width      図形の幅       設定/取得


  設定項目             内容
  Object               Shape、ShapeRangeコレクションオブジェクト [省略不可]


次のサンプル1は、アクティブシートの1つ目の図形の高さを100ポイントに設定します。


●サンプル1●
　Sub HeightAndWidthSamp1()

　    With ActiveSheet.Shapes(1)
  　      .LockAspectRatio = True   '---(1)図形の縦横の比率を固定
    　    .Height = 100#            '---(2)高さを100ポイントに設定
　'       .Width = 100#             '---(3)幅を100ポイントに設定
  　  End With

　End Sub


(1)のステートメントでは、LockAspectRatioプロパティにTrueを設定することで図形の縦横の比率を固定します。したがって、(2)のステートメントで高さを設定するだけで、幅も同じ比率で変化します。コメント行にしている(3)のステートメントを有効にすれば、幅が100ポイントに設定され、高さも同じ比率で設定されます。

なお、元のサイズに対する倍率で大きさを設定する際には、ScaleHeight/ScaleWidthメソッドを使用します。
次のサンプル2は元のサイズに対して、高さを4倍に、幅を2倍に設定します。


●サンプル2●
　Sub HeightAndWidthSamp2()

　    With ActiveSheet.Shapes(1)
  　      .ScaleHeight 4!, False    '---現在の高さに対して4倍の高さに設定
    　    .ScaleWidth 2!, False     '---現在の幅に対して2倍の幅に設定
    　End With

　End Sub