|
▼たまみ さん:
>[印刷フォーム]として作成したユーザーフォームのことです。
失礼しました。
コマンドバーについてはまだ学習が足りないのですが、一応作ってみました。
ThisWorkBookモジュールに
Private Sub Workbook_Open()
Call cmdbar
End Sub
標準モジュールに
Sub cmdbar()
Dim myBar As commandbar
Dim myBtn As CommandBarButton
On Error Resume Next
CommandBars("印刷").Delete
Set myBar = Application.CommandBars.Add(Name:="印刷", Position:=msoBarFloating, temporary:=True)
Set myBtn = myBar.Controls.Add(Type:=msoControlButton, temporary:=True)
With myBtn
.Caption = "印刷1"
.OnAction = "test" ’ここに呼び出すマクロ名を書く
.Style = msoButtonCaption
End With
myBar.Visible = True
End Sub
以上でブックを開くたびに印刷のコマンドバーが作成されます。
後は、コマンドバーのボタンを押したときに起動するマクロを指定してあげるだけです。
同じく標準モジュールに
Sub test()
印刷フォーム.Show
End Sub
とすれば、コマンドバーのボタンを押すと、印刷フォームが現れるはずです。
|
|