UserForm OnAction
Hi Tom,
unfortunately it doesn't work.
You can try it:
Sub test()
Dim cmb As CommandBar
Dim cmbp As CommandBarPopup
Set cmb = Application.CommandBars("Standard")
Set cmbp = cmb.Controls.Add(Type:=msoControlPopup)
cmbp.Caption = "test"
With cmbp.Controls.Add
.BeginGroup = True
.Caption = "test"
.FaceId = 231
.OnAction = frmMyUserForm.Show
End With
End Sub
Maria
-----Original Message-----
..OnAction = "MyCode"
Sub Mycode()
frmMyUserForm.Show
End sub
--
Regards,
Tom Ogilvy
"Maria" wrote in
message
...
Hi,
I have created a userdefined CommandBar with a button.
From this button I would like to start a UserForm.
Usually I use something like the following Codeline to
call a Prozedu
.OnAction = MyCode
I wanted to do the same with the UserForm:
.OnAction = frmMyUserForm
Unfortunately it doesn't work.
Is it possible to allocate a UserForm?
Thank you,
Maria
.
|