Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56221 / 76732

←次へ　｜　前へ→


	【25269】Re:右ボタンでの独自のコントロール作成方法

ichinose - 05/5/26(木) 1:30 -


	引用なし

	パスワード

▼えくせーるさん：
こんばんは。

>さらに質問なのですが、
>
>右ボタンメニューの
>自分で作成した「独自のコマンド」を消したいのですが、
>どうしたら良いのでしょう？？
>
>恐らくエクセルのアプリ機能上で作成したような記憶があるのですが、
>定かではありません。(どのエクセルファイルでもメニューに存在します。)
>'========================================================
>Sub test()
>　 With Application.CommandBars("Cell").Controls.Add(msoControlButton, , , 1, True)
>　　　.Style = msoButtonCaption
>　　　.Caption = "日付"
>　　　.OnAction = "putdate"
>　　　End With
>End Sub
>'========================================================
>Sub putdate()
>　 Selection.Value = Date
>End Sub

このコードで作成したなら、Excelが終了した時点で追加した「日付」ボタンは
削除されるはずなんですが・・・。
それでも削除するなら、

'======================================================
Sub del_CmbOfCell()
　 Application.CommandBars("Cell").Controls(1).Delete
End Sub

これで右クリックメニューの一番上に配置した「日付」ボタンは
削除できます。
・・・Controls(1).Delete
この()内に番号に注意して下さい。

0 hits

▼

【25156】右ボタンでの独自のコントロール作成方法 えくせーる 05/5/23(月) 9:47