Ms-word Event

[vishi_sh]

i have problem realted to MS-WORD EVENT. SUPPOSE IF I CLICKS ON "BOLD TOOLBAR BUTTON". THIS BUTTON WORKS ACCORDING TO MY CODE.

LIKE

SUB BOLD()
MSGBOX " bOLD"
END SUB

THIS CODE IS WORKING PERFECTLY,

BUT DRAWING TOOLBAR BUTTONS, DOES NOT WORK EXCEPT TEXTBOX TOOLBAR BUTTON.

ANY ONE HAVE ANY IDEA IN THIS REGARDING, I WOULD BE OBLIZED TO GET RESPONCE OF MY PROBLEM.

-------------
VISHI

[aryan2000]

Do you want to create a toolbar and then add a button to it to run your code. If so, this is how you do it.

Dim newButton As CommandBarButton

Application.CommandBars.Add(Name:="New ToolBar").Visible = True
CommandBars("New ToolBar").Position = msoBarTop

Set newButton = CommandBars("New ToolBar").Controls.Add(Type:=msoControlButton)
With newButton
    .Caption = "BOLD TOOLBAR BUTTON"
    .OnAction = "BOLD"
    .Style = msoButtonCaption
End With