2017年5月30日

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

2017年5月30日 (火) 22:12 in ,


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

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にして縦横比を固定にした状態で、幅を指定しています。
ちなみに、幅の単位はポイントです。


実行結果



スポンサーリンク