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
|