【Excel VBA】ボタンで図形を自動挿入するマクロ｜赤枠・サイズ指定も簡単設定！

あなたはエクセルでいつも使う図形を簡単に貼り付けできたらいいのに、と思ったことはありませんか？

赤枠など、よく使う図形は、図形を貼り付けてから色や塗りつぶしの設定を変えていたら面倒ですよね。

エクセルマクロなら、決まった図形の貼付けも一発です。

今回は「エクセルで図形を自動挿入するマクロ。赤枠を貼り付けるボタンを作る方法」を紹介します。

エクセルで図形を自動挿入するマクロ。赤枠を貼り付けるボタンを作る方法

エクセルで図形を自動挿入するマクロ。赤枠を貼り付けるボタンを作る方法です。

マクロを作るときは、「開発」タブを使います。
開発タブが出ていない方は、下のリンクで出し方を紹介していますので、まずは準備をお願いします。
→エクセルで開発タブを表示する方法

１．「開発」タブをクリック　→「挿入」をクリック　→「ボタン」をクリック

３．コード入力画面が開く

４．コードを入力

コードを入力します。

アクティブセルの場所に、赤枠を貼り付ける、という内容です。

５．ボタンができた　→ボタンを押す

ボタンができました。

早速ボタンを押しましょう！

６．赤枠が貼付けできた

アクティブセル（B3）の位置に、赤枠が貼付けできました。

まとめ

エクセルで図形を自動挿入するマクロ。赤枠を貼り付けるボタンを作る方法です。

１．「開発」タブをクリック　→「挿入」をクリック　→「ボタン」をクリック

２．新規作成をクリック

３．コードを入れる画面が出る

４．コードを入力

５．ボタンができた　→アラームをセット　→ボタンを押す

６．赤枠が貼付けできた

これで赤枠の貼付けが簡単になり、ちまちま図形の修正をする必要がなくなりましたね！

最後に今回使ったコードです。

    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim shp As Shape
    Dim leftPos As Double
    Dim topPos As Double

    ' アクティブセルの位置を取得
    With ActiveCell
        leftPos = .Left
        topPos = .Top
    End With

    ' 図形を追加（100×50ポイントの四角形）
    Set shp = ws.Shapes.AddShape(msoShapeRectangle, leftPos, topPos, 100, 50)

    ' 図形の書式設定
    With shp
        .Line.ForeColor.RGB = RGB(255, 0, 0) ' 赤い線
        .Line.Weight = 3 ' 線の太さ3pt
        .Fill.Visible = msoFalse ' 塗りつぶしなし
    End With