【Excel】挿入した画像を拡大するマクロ

前回の、「画像を挿入するマクロ」から少し改造して、挿入した画像を拡大してみます。

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub button1_Click()       Range("C7").Select           ActiveSheet.Pictures.Insert "C:\work\Excel\neko01.jpg"           Dim cnt As Integer     cnt = ActiveSheet.Shapes.Count           '挿入した画像選択して名前を付ける     ActiveSheet.Shapes(cnt).Select     Selection.ShapeRange.Name = "image1"           '画像の拡大     With ActiveSheet.Shapes("image1")         .LockAspectRatio = True     '縦横比を固定         .Width = 300                '幅を指定（ポイント）     End With   End Sub

まず、挿入した画像を選択して名前を付けます。
そして、LockAspectRatioをTrueにして縦横比を固定にした状態で、幅を指定しています。
ちなみに、幅の単位はポイントです。


実行結果

スポンサーリンク

https://hosopro.blogspot.com/2017/05/excel-vba-picture-size-change.html 【Excel】挿入した画像を拡大するマクロ