EXCEL VBA 選択範囲を全角・半角変換するマクロを右クリックメニューに追加する＆メニューのリセット

Sub 半角変換()
Dim SR As Range
For Each SR In Selection
SR.Value = StrConv(SR.Value, vbNarrow)
Next SR
End Sub

Sub 全角変換()
Dim SR As Range
For Each SR In Selection
SR.Value = StrConv(SR.Value, vbWide)
Next SR
End Sub
Sub 右クリック()
With CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=8) 'before=8は、右クリックメニューの上から8個目に「全角に変換」メニューを追加するという意味です。自分で調節してください
.Caption = "全角に変換"
.OnAction = "全角変換"
End With
With CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=9) 'before=9も何行目に入れるかは自分で調節してください
.Caption = "半角に変換"
.OnAction = "半角変換"
End With

右クリックメニューをリセットする

End Sub
Sub リセット()
CommandBars("cell").Reset

End Sub