ShapeオブジェクトのWidthプロパティ・Heightプロパティ
オブジェクト.Width ／ オブジェクト.Height
シートに挿入された画像のサイズを変更するには、ShapeオブジェクトのWidthプロパティやHeightプロパティを使います。それぞれ、幅と高さを数値（単位はポイント）で指定できます。画像に限らず、図形やグラフエリアのサイズも同様に変更できます。
ただし画像の場合、元画像の縦横比が変わってしまうと、見た目がおかしくなってしまうことがあります。縦横比を固定したい場合は、LockAspectRatioプロパティをTrueにした上で、サイズを変更します。この場合は、WidthまたはHeightのいずれかを設定するだけで、縦横比を維持したまま拡大／縮小することができます。
画像の縦横比を変えずに、幅70ポイントに変更する
Sub Sample()
With ActiveSheet.Shapes(1)
.LockAspectRatio = True
.Width = 70
End With
End Sub
実行結果
IT開発関連書とビジネス書が豊富な翔泳社の通販『SEshop』
dポイントがどんどんたまる【d払いポイントGETモール】
業界最安値宣言！高性能・低価格のパソコン通販は【UsedFun】
リラクゼーションをお得に体験!ご予約はEPARKで!
【じゃらん】国内25,000軒の宿をネットで予約OK！2％ポイント還元！
【早い者勝ち！】.com／.net／.jp ドメイン取るならお名前.com
