マクロ セルを右クリックした時のメニューバーの追加と同様に画像を右クリックしたときのメニューバーにコ

マクロ　セルを右クリックした時のメニューバーの追加と同様に画像を右クリックしたときのメニューバーにコマンドを追加したい

どう変更すればいいか教えて欲しいです


テキストを参考にセルを右クリックしたときのメニューを追加できたのですが、このマクロを画像を右クリックした際に出てくるメニューに追加したいです。どうすればいいですか。

Option Explicit

Sub test()

With CommandBars("Cell").Controls.Add(Before:=1, _
Type:=msoControlPopup)

.Caption = "2ページ目"

With .Controls.Add

.Caption = "サイズ調整"
.OnAction = "saizu"

End With

With .Controls.Add

.Caption = "中央に配置"
.OnAction = "tyuuou"

End With

End With

End Sub

No.2 回答者： Qchan1962 回答日時： 2025/03/09 03:15

×　<menu id="mnuOrg" label=""2ページ目"">

〇　<menu id="mnuOrg" label="2ページ目">

No.1 回答者： Qchan1962 回答日時： 2025/03/09 03:11

>画像を右クリックしたときのメニューバーにコマンドを追加したい

Custom UI EditorなどがありリボンXMLを触ったことがあれば時間はかかりませんが初めてだと少し時間がかかるかも知れません
リボンXMLを作成します　例　RibbonX14

一応　サンプル　リボンXML　です

<?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/cust …
<contextMenus>
<contextMenu idMso="ContextMenuPicture">
<menu id="mnuOrg" label=""2ページ目"">
<button id="saizuMenu" label="サイズ調整" onAction="saizu" />
<button id="tyuuouMenu" label="中央に配置" onAction="tyuuou" />
</menu>
</contextMenu>
</contextMenus>
</customUI>

実行　VBA
標準モジュール

Option Explicit
Public Sub saizu(control As IRibbonControl)
MsgBox "サイズ調整", vbSystemModal + vbInformation
End Sub
Public Sub tyuuou(control As IRibbonControl)
MsgBox "中央に配置", vbSystemModal + vbInformation
End Sub

参考：
https://www.ka-net.org/ribbon.html
Japan Office Client Support Blog
https://www.microsoft.com/en-us/download/details …

このエディタは使った事がありませんが　（自己責任で）
https://www.excelsystem.jp/RibbonEditor