【マクロVBA】Excelに付箋を挿入する

マクロVBA

2023.02.12

Excelにちょっとしたメモを入れたいとき、コメントを入れたいとき、皆さんはどうしていますでしょうか。
Excelには標準でコメント機能もありますが、人に共有するときには標準のコメントではなく、付箋のような図形でパッと目につく方法でメモしたいケースがあるのではないでしょうか。

しかしExcelで図形の四角を選択すると、デフォルトでは図形は青、文字は白なのでメモとしては若干読みにくい色合わせかと思います。

そこで図形は黄色、文字は黒の状態で四角形（付箋）を表示させるマクロを作成しました。

ウォルト

私は後輩の資料レビュー時に、この付箋をよく使用しています！

ソースコード
実際の動き
カスタマイズ

ソースコード

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

'-------------------------------------------
'概要：付箋を挿入する
'-------------------------------------------
Sub InsertMemo()

    Const lngWidth As Long = 150    'お好みで設定
    Const lngHeight As Long = 75    'お好みで設定
    
    With Selection
        ActiveSheet.Shapes.AddShape(msoShapeRectangle, Left:=.Left, Top:=.Top, Width:=lngWidth, Height:=lngHeight).Select
        
        With Selection.ShapeRange.Fill
            .Visible = msoTrue
            .ForeColor.RGB = RGB(255, 255, 163) 'お好みで設定
            .Transparency = 0
            .Solid
        End With
        
        With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
            .Visible = msoTrue
            .ForeColor.RGB = RGB(0, 0, 0)
            .Transparency = 0
            .Solid
        End With
        
        With Selection.ShapeRange.Line
            .Visible = msoTrue
            .ForeColor.RGB = RGB(0, 0, 0)
            .Transparency = 0
            .Weight = 1
        End With
                
    End With
    
End Sub