【マクロVBA】Excelに赤枠を挿入する

マクロVBA

2023.02.13

私は操作マニュアルをExcelで作る際、強調させるために枠で画像の一部を囲うことが良くあります。
Excelで図形を毎回選択して作成するのは地味に時間がかかるので、赤枠を作るマクロを作りました。

ソースコード
実際の動き

ソースコード

以下、ソースコードになります。コピペして使ってみてください。

'-------------------------------------------
'概要：赤枠を挿入
'-------------------------------------------
Sub InsertRedFrame()

    Const lngWidth As Long = 80
    Const lngHeight As Long = 20
    
    With Selection
        ActiveSheet.Shapes.AddShape(msoShapeRectangle, Left:=.Left, Top:=.Top, Width:=lngWidth, Height:=lngHeight).Select
        
        With Selection.ShapeRange.Fill
            .Visible = msoFalse
        End With
        
        With Selection.ShapeRange.Line
            .Visible = msoTrue
            .ForeColor.RGB = RGB(255, 0, 0)
            .Transparency = 0
            .Weight = 2
        End With
                
    End With
    
End Sub