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