Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add standard button on custum commandbar
Hi,
I created a commandbar for my application. Adding a custom button works with this procedure, but I want ot add a standard button of excel. How can I do this? Thanks a lot Jos Vens CB_LibraAdd "Maak/Bewerk Opmerking", "TB_CommentCreate", 1589, True In this line, I want to have the original excel button for editing comments in stead of my procedure TB_CommentCreate. FaceID is correct. Function CB_LibraAdd(vTooltipText As String, vOnAction As String, vFaceId As Long, vGroup As Boolean) Dim cbLibra As CommandBar Dim vControl As CommandBarControl On Error Resume Next Set cbLibra = CommandBars("Libra") Set vControl = cbLibra.Controls.Add vControl.TooltipText = vTooltipText vControl.OnAction = vOnAction vControl.FaceId = vFaceId vControl.Style = msoButtonIcon vControl.BeginGroup = vGroup End Function |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add standard button on custum commandbar
Jos,
You set the ID to the BuiltinId for that control Set cbCtl = CB.Controls.Add(Type:=msoControlButton, _ ID:=BuiltinId, _ Temporary:=True) -- HTH RP (remove nothere from the email address if mailing direct) "Jos Vens" wrote in message ... Hi, I created a commandbar for my application. Adding a custom button works with this procedure, but I want ot add a standard button of excel. How can I do this? Thanks a lot Jos Vens CB_LibraAdd "Maak/Bewerk Opmerking", "TB_CommentCreate", 1589, True In this line, I want to have the original excel button for editing comments in stead of my procedure TB_CommentCreate. FaceID is correct. Function CB_LibraAdd(vTooltipText As String, vOnAction As String, vFaceId As Long, vGroup As Boolean) Dim cbLibra As CommandBar Dim vControl As CommandBarControl On Error Resume Next Set cbLibra = CommandBars("Libra") Set vControl = cbLibra.Controls.Add vControl.TooltipText = vTooltipText vControl.OnAction = vOnAction vControl.FaceId = vFaceId vControl.Style = msoButtonIcon vControl.BeginGroup = vGroup End Function |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add standard button on custum commandbar
Hello Jos, Here is a code example taken from the VBA help files. Thiss adds a button to a custom toolbar to execute the Excel toolbar AutoSum. This Microsoft Excel example creates a command bar and then adds a built-in command bar button control to it. The button executes the Excel AutoSum function. This example uses the Execute method to total the selected range of cells when the command bar appears. Code: -------------------- Dim cbrCustBar As CommandBar Dim ctlAutoSum As CommandBarButton Set cbrCustBar = CommandBars.Add("Custom") Set ctlAutoSum = cbrCustBar.Controls _ .Add(msoControlButton, CommandBars("Standard") _ .Controls("AutoSum").Id) cbrCustBar.Visible = True ctlAutoSum.Execute -------------------- Sincerely, Leith Ross -- Leith Ross ------------------------------------------------------------------------ Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465 View this thread: http://www.excelforum.com/showthread...hreadid=480655 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add standard button on custum commandbar
Thanks Bob,
it works, but not on my protected sheet (the cell is editable, but the commandbutton stays grey). I cannot unprotect the sheet because users will delete my formula's. It's the button to edit/create comment on a cell. Can you still help? Thanks Jos Vens "Bob Phillips" schreef in bericht ... Jos, You set the ID to the BuiltinId for that control Set cbCtl = CB.Controls.Add(Type:=msoControlButton, _ ID:=BuiltinId, _ Temporary:=True) -- HTH RP (remove nothere from the email address if mailing direct) "Jos Vens" wrote in message ... Hi, I created a commandbar for my application. Adding a custom button works with this procedure, but I want ot add a standard button of excel. How can I do this? Thanks a lot Jos Vens CB_LibraAdd "Maak/Bewerk Opmerking", "TB_CommentCreate", 1589, True In this line, I want to have the original excel button for editing comments in stead of my procedure TB_CommentCreate. FaceID is correct. Function CB_LibraAdd(vTooltipText As String, vOnAction As String, vFaceId As Long, vGroup As Boolean) Dim cbLibra As CommandBar Dim vControl As CommandBarControl On Error Resume Next Set cbLibra = CommandBars("Libra") Set vControl = cbLibra.Controls.Add vControl.TooltipText = vTooltipText vControl.OnAction = vOnAction vControl.FaceId = vFaceId vControl.Style = msoButtonIcon vControl.BeginGroup = vGroup End Function |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add standard button on custum commandbar
Jos,
I think that, rather than call the builtin control directly, you would have to have a button that unprotects the sheet, insert the comment via code, then protect the sheet. -- HTH RP (remove nothere from the email address if mailing direct) "Jos Vens" wrote in message ... Thanks Bob, it works, but not on my protected sheet (the cell is editable, but the commandbutton stays grey). I cannot unprotect the sheet because users will delete my formula's. It's the button to edit/create comment on a cell. Can you still help? Thanks Jos Vens "Bob Phillips" schreef in bericht ... Jos, You set the ID to the BuiltinId for that control Set cbCtl = CB.Controls.Add(Type:=msoControlButton, _ ID:=BuiltinId, _ Temporary:=True) -- HTH RP (remove nothere from the email address if mailing direct) "Jos Vens" wrote in message ... Hi, I created a commandbar for my application. Adding a custom button works with this procedure, but I want ot add a standard button of excel. How can I do this? Thanks a lot Jos Vens CB_LibraAdd "Maak/Bewerk Opmerking", "TB_CommentCreate", 1589, True In this line, I want to have the original excel button for editing comments in stead of my procedure TB_CommentCreate. FaceID is correct. Function CB_LibraAdd(vTooltipText As String, vOnAction As String, vFaceId As Long, vGroup As Boolean) Dim cbLibra As CommandBar Dim vControl As CommandBarControl On Error Resume Next Set cbLibra = CommandBars("Libra") Set vControl = cbLibra.Controls.Add vControl.TooltipText = vTooltipText vControl.OnAction = vOnAction vControl.FaceId = vFaceId vControl.Style = msoButtonIcon vControl.BeginGroup = vGroup End Function |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add standard button on custum commandbar
Thanks for your help Bob!
Jos "Bob Phillips" schreef in bericht ... Jos, I think that, rather than call the builtin control directly, you would have to have a button that unprotects the sheet, insert the comment via code, then protect the sheet. -- HTH RP (remove nothere from the email address if mailing direct) "Jos Vens" wrote in message ... Thanks Bob, it works, but not on my protected sheet (the cell is editable, but the commandbutton stays grey). I cannot unprotect the sheet because users will delete my formula's. It's the button to edit/create comment on a cell. Can you still help? Thanks Jos Vens "Bob Phillips" schreef in bericht ... Jos, You set the ID to the BuiltinId for that control Set cbCtl = CB.Controls.Add(Type:=msoControlButton, _ ID:=BuiltinId, _ Temporary:=True) -- HTH RP (remove nothere from the email address if mailing direct) "Jos Vens" wrote in message ... Hi, I created a commandbar for my application. Adding a custom button works with this procedure, but I want ot add a standard button of excel. How can I do this? Thanks a lot Jos Vens CB_LibraAdd "Maak/Bewerk Opmerking", "TB_CommentCreate", 1589, True In this line, I want to have the original excel button for editing comments in stead of my procedure TB_CommentCreate. FaceID is correct. Function CB_LibraAdd(vTooltipText As String, vOnAction As String, vFaceId As Long, vGroup As Boolean) Dim cbLibra As CommandBar Dim vControl As CommandBarControl On Error Resume Next Set cbLibra = CommandBars("Libra") Set vControl = cbLibra.Controls.Add vControl.TooltipText = vTooltipText vControl.OnAction = vOnAction vControl.FaceId = vFaceId vControl.Style = msoButtonIcon vControl.BeginGroup = vGroup End Function |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add standard button on custum commandbar
Thanks for your help, Leith,
Jos "Leith Ross" schreef in bericht ... Hello Jos, Here is a code example taken from the VBA help files. Thiss adds a button to a custom toolbar to execute the Excel toolbar AutoSum. This Microsoft Excel example creates a command bar and then adds a built-in command bar button control to it. The button executes the Excel AutoSum function. This example uses the Execute method to total the selected range of cells when the command bar appears. Code: -------------------- Dim cbrCustBar As CommandBar Dim ctlAutoSum As CommandBarButton Set cbrCustBar = CommandBars.Add("Custom") Set ctlAutoSum = cbrCustBar.Controls _ .Add(msoControlButton, CommandBars("Standard") _ .Controls("AutoSum").Id) cbrCustBar.Visible = True ctlAutoSum.Execute -------------------- Sincerely, Leith Ross -- Leith Ross ------------------------------------------------------------------------ Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465 View this thread: http://www.excelforum.com/showthread...hreadid=480655 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
event with commandbar button right-click? | Excel Programming | |||
Creating a Custom commandbar button | Excel Programming | |||
Dynamic commandbar button problem | Excel Programming | |||
static commandbar Button | Excel Programming | |||
Commandbar button running macro | Excel Programming |