エクセルのマクロからコメントの書式設定をしたいのですが・・・。

質問

VBA初心者です。よろしくお願いします。昨日も同じ質問をしたのですが、誰にもお答えいただけなかったので、もう一度・・・。

今、プロテクトのかかっているシート上で、マクロからコメント作成、編集ができるようなプログラムを作っているのですが、マクロからコメントの書式設定ダイアログを表示させて、ユーザーが任意に書式を設定できるような仕様にしたいのですが、どうしたらよいのでしょうか?

詳しい方、よろしくお願いいたします。

回答No.4

nishi6 · ベストアンサー

ご指摘のように、事前にコメントの書式設定のダイアログを出していないとこのマクロは動きませんでした。事前に他のBookでこのダイアログを出していればうまく動きました。 なぜ？？？　以下は調べた結果です。多分に推測が入っています。（この辺が一般人の悲しさ！）

オプション→ユーザー設定のコマンドタグの中の図形描写のコマンド『オブジェクト．．．』を使いたかったのですが、このコマンドの説明を読むと、

　　[図/オートシェイブ/オブジェクト/コントロール]([書式]メニュー)
　　　選択した図、オートシェイブ、オブジェクトなどの線、塗りつぶし、パターン、
　　　サイズ、位置、およびその他のプロパティを設定します。
　　　選択した対象によって、コマンド名は変わります。

と書いてあります。（『選択した対象によって、コマンド名は変わります』が重要？）ということは、

　　最初に探しにいった時には『コメントの書式設定』というコマンドは無い状態だった

というのが私の推測です。一旦出せば、『コメントの書式設定』というコマンドが実在することになる？？
コマンドを名前で指定したのが問題（？）でした（多分）

対応策として
　　myCmd.Controls(10).Execute 'コメントの書式設定を実行
としてみました。『10』は『オブジェクト．．．』のインデックスです（私のExcelですが）
Excelを立ち上げて、最初に修正後のマクロを動かして動作確認はしました。
試しに修正してみて下さい。

また、使用される場合は、エラー処理部分を下記の様に修正して下さい。保護を解除したままでした。
　　MsgBox "コメントはありません"
　　ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
色々、おさがわせしました。

お礼

度々ありがとうございます。
無事、エラーも出ず、解決いたしました！
なんか凄いプログラムを作った気になります。はい。

本当に何回も、お世話になりました。
ありがとうございました。