| |
▼ユミちゃん さん：
おはよございます。
なかなか回答が付きませんね…。
当方も詳しくないので突っ込まれると解りかねますが、
下記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 オブジェクトを参照されてみて下さい。
※ テストコードを試される前に必ずバックアップを取っておいてください。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
