Snippet Library

none

'
'


' create all the user interface items
On Error GoTo CreateMenuItems_Error

' create the menu items in the code window and code break window
With VBInstance.CommandBars("Code Window").Controls
	Set MenuItem1 = .Add(msoControlButton)
	MenuItem1.Caption = "&Append To Clipboard"
	MenuItem1.BeginGroup = True
	Set MenuHandler1 = 	VBInstance.Events.CommandBarEvents(MenuItem1)
	Set MenuItem2 = .Add(msoControlButton)
	MenuItem2.Caption = "Clipboard &History"
	Set MenuHandler2 = 	VBInstance.Events.CommandBarEvents(MenuItem2)
End With 

With VBInstance.CommandBars("Code Window (Break)").Controls
	Set MenuItem3 = .Add(msoControlButton)
	MenuItem1.Caption = "&Append To Clipboard"
	MenuItem1.BeginGroup = True
	Set MenuHandler3 = 	VBInstance.Events.CommandBarEvents(MenuItem3)
	Set MenuItem4 = .Add(msoControlButton)
	MenuItem4.Caption = "Clipboard &History"
	Set MenuHandler4 = 	VBInstance.Events.CommandBarEvents(MenuItem4)
End With

Exit Sub 

CreateMenuItems_Error:
MsgBox "Unable To create necessary menu items", vbCritical;