エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
PowerPointのシェイプ(四角等)を右クリックしときに出る、 ポップアップメニューに「はてな」というメニューを追加するのは、 以下の3行のVBAでできます。…
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
PowerPointのシェイプ(四角等)を右クリックしときに出る、 ポップアップメニューに「はてな」というメニューを追加するのは、 以下の3行のVBAでできます。…
PowerPointのシェイプ(四角等)を右クリックしときに出る、 ポップアップメニューに「はてな」というメニ... PowerPointのシェイプ(四角等)を右クリックしときに出る、 ポップアップメニューに「はてな」というメニューを追加するのは、 以下の3行のVBAでできます。 Sub Macro1() CommandBars("Shapes").Controls.Add(Type:=msoControlPopup).Caption = "はてな" End Sub 問題は、これでは「フリーフォーム」 (カクカク線)による閉図形を右クリックしても、 ポップアップメニューが出ない、ということなのです。 どのように修正したらよいか、ご教示いただけないでしょうか。 おそらく、 CommandBars("Shapes") の"Shapes" の部分を、 適切な言葉にすればいいのだと思いますが、それがわからないのです。 よろしくお願いいたします。