Access VBA質問箱 IV

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

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


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

5805 / 9994

←次へ　｜　前へ→


	【7402】Re:メニューバーのカスタマイズについて

小僧 - 06/2/28(火) 9:57 -


	引用なし

	パスワード

▼ユミちゃんさん：
おはよございます。

なかなか回答が付きませんね…。
当方も詳しくないので突っ込まれると解りかねますが、
下記URLを参考にしてサンプルコードを作成してみました。

http://support.microsoft.com/kb/303729/ja

Sub カスタムメニューバーを作成()
'要参照設定 Microsoft Office x.x Object Library
Dim CB As CommandBar
　　Set CB = Application.CommandBars.Add("Temp1", msoBarTop, True, False)
　　　　With CB
　　　　　　.Controls.Add ID:=23　　 ' ID for Open
　　　　　　.Controls.Add ID:=3　　　' ID for Save
　　　　　　.Controls.Add ID:=2　　　' ID for Spelling
　　　　　　.Controls.Add ID:=4　　　' ID for Print
　　　　　　.Controls.Add ID:=19　　 ' ID for Copy Drawing
　　　　　　.Controls.Add ID:=3738　 ' ID for Mail as Attachment
　　　　　　.Visible = True
　　　　End With
　　Set CB = Nothing
End Sub

詳しくはヘルプでCommandBar オブジェクトを参照されてみて下さい。

※ テストコードを試される前に必ずバックアップを取っておいてください。

302 hits

▼

【7391】メニューバーのカスタマイズについて ユミちゃん 06/2/26(日) 4:33