コード Sub AddCustomMenuItem() Dim commandBar As CommandBar Dim mainMenu As CommandBarPopup Dim subMenu As CommandBarButton Dim foundMenu As Boolean ' セルの右クリックメニューを取得 Set commandBar = Application.CommandBars("Cell") ' 既にメ…