UserForm OnAction
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 |
UserForm OnAction
..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 |
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 . |
UserForm OnAction
That isn't what I suggest. I suggested creating a macro that shows the
userform. then assigning that macro to the onaction property 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 = "Showform" End With End Sub Sub Showform() frmMyUserForm.Show End Sub sorry if my response appeared to indicate anything other than the above. -- Regards, Tom Ogilvy "Maria" wrote in message ... 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 . |
UserForm OnAction
oh ... that's a way! :-)
Thank you. Maria -----Original Message----- That isn't what I suggest. I suggested creating a macro that shows the userform. then assigning that macro to the onaction property 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 = "Showform" End With End Sub Sub Showform() frmMyUserForm.Show End Sub sorry if my response appeared to indicate anything other than the above. -- Regards, Tom Ogilvy "Maria" wrote in message ... 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 . . |
All times are GMT +1. The time now is 03:03 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com