エクセルVBAにて、ブックを開くと自動メニューバーにメニューを追加するというコードを作成しています。
メニューの追加そのものは問題なく出来たのですが、例えば追加された状態で上書き保存し、再度開くと、1つ追加された状態でもう1つメニューが追加されてしまうという状況となってしまいました。
IF文で重複の判定ができると良いのですが、コードが分からなくて困っております。どなたかご教授下さい。
そしてもう1つ、メニューバーに追加した新しいメニューについて、手動でリセットする方法はありますでしょうか。表示→メニューバー→ユーザ設定でリセットしてもユーザ設定だけは保持されるようで...
こちらもお願いします。
コードはそのまま貼り付けるとNGワードに引っかかるので(何故かは分かりません)、申し訳ありませんがプリントスクリーンしたものを画像として添付致します(こちらも回避する方法があれば良いのですが...OKWaveは使いづらいです)。
No.2ベストアンサー
- 回答日時:
こんばんは。
ためしに直してみました。自前のメニューには、必ず、Temporary 属性をTrue にしてください。
'-------------------------------------------
Sub Auto_Open()
Dim MyCB As CommandBar
Dim myMenu As CommandBarPopup
Dim myMenuCom As CommandBarButton
Dim cnt As Integer
Set MyCB = Application.CommandBars("WorkSheet Menu Bar")
With MyCB
On Error Resume Next
.Controls("オリジナルプログラム(&C)").Delete
On Error GoTo 0
End With
cnt = MyCB.Controls.Count
With MyCB.Controls.Add(Type:=msoControlPopup, Before:=cnt + 1, Temporary:=True)
.Caption = "オリジナルプログラム(&C)"
Set myMenuCom = .Controls.Add(Type:=msoControlButton)
End With
With myMenuCom
.Caption = "メインメニュー(&U)"
.OnAction = "menu_open"
.BeginGroup = False
.FaceId = 610
End With
End Sub
No.1
- 回答日時:
こちらのような手法はいかがでしょう。
作成済みであればいったん削除
存在しないとエラーが出るが、On Error…で回避
1.1 新しいメニューを追加する
http://www.happy2-island.com/access/gogo03/capte …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- デスクトップパソコン PCでファイルを右ドラッグして出てくるメニューの編集方法を教えて下さい 2 2023/01/17 13:31
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- Visual Basic(VBA) 【ExcelVBA】動的にボタン、ボタン名を生成できますか? 7 2022/04/08 12:54
- 筋トレ・加圧トレーニング 高校生女子です。 私は一年ほど前から自宅で腹筋トレーニングをしているんですが、なかなかメニューを安定 2 2022/10/06 14:22
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- gooブログ ブログの記事を書きだしのみに表示したい 1 2022/06/25 19:11
- その他(プログラミング・Web制作) google formsを使ったタスク依頼フォーム作成におけるご相談 1 2023/06/22 15:55
- 筋トレ・加圧トレーニング 上半身だけを大きくしたく、1週間のメニューを作りたいです。回復日を含めて、メニューの参考をお願いしま 1 2022/07/31 16:49
- ダイエット・食事制限 ローファットダイエットについてアドバイスをください。 現在、体脂肪率が28で肥満1型になった旦那のダ 1 2022/09/03 09:06
- JavaScript [Java] Edgeでのアドレスバー非表示について 3 2022/04/20 17:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel2016でプルダウンのメ...
-
マクドナルド、ミスタードーナ...
-
9月一臂の〔一臂〕の意味
-
EXCELのプルダウンメニューを全...
-
ケンタッキーフライドチキンっ...
-
「一見」を「いっけん」と読む...
-
携帯電話を初期状態に戻す方法
-
MACで、窓の杜のようなサイト
-
飲食店で、一人で食事をしてい...
-
すき家のアルバイトは
-
すき家はご飯を、自動で盛って...
-
メニューについて
-
700Wの電子レンジは、コンビニ...
-
蒙古タンメンとプルダックポッ...
-
MSのOutlookのメニューバーの...
-
ACCESS ファイルへのアクセス...
-
吉野家の牛丼アタマの大盛りの...
-
windowsのワードで作った文章を...
-
ウィンドウズからマックへのメ...
-
モスバーガーのハンバーガーは...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel2016でプルダウンのメ...
-
EXCELのプルダウンメニューを全...
-
ケンタッキーフライドチキンっ...
-
飲食店で、一人で食事をしてい...
-
パチスロ北斗の拳 世紀末救世主...
-
モスバーガーのハンバーガーは...
-
マクドナルド、ミスタードーナ...
-
700Wの電子レンジは、コンビニ...
-
ハッピーセットのサイズアップ...
-
蒙古タンメンとプルダックポッ...
-
ACCESS ファイルへのアクセス...
-
マクドナルドのバイトをしてい...
-
9月一臂の〔一臂〕の意味
-
漢字の読み方 「火」と「会」を...
-
windowsのワードで作った文章を...
-
【とんかつ】和幸とさぼてん、...
-
ケンタッキーバーレルの「バー...
-
1円玉がたくさんくっついてとれ...
-
牛丼は(うしどん)とは読まず...
-
【回路図】抵抗値の単位表記
おすすめ情報