Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reset Custom Button on toolbar
I am running the below code...is it possible to have reset the two buttons I
added in the Sub Menu_Item macro to the active file name after a "Save As". I keep getting an error saying that "The macro 'OriginalFileName!InsertLine' cannot be found." Private Sub Workbook_Open() Call MenuBar_Item Call DoF End Sub Private Sub MenuBar_Item() Call MenuBar_Item_Delete With Application.CommandBars("Standard") With .Controls.Add(Type:=msoControlButton, ID:=2, Temporary:=True _ , Befo=1) .Style = msoButtonIcon .Caption = "&Spell Check" .TooltipText = "Run Spell Check" .OnAction = ThisWorkbook.Name & "!SpellCheck" .Tag = "SpellCheck" End With With .Controls.Add(Type:=msoControlButton, ID:=295, Temporary:=True _ , Befo=2) .Style = msoButtonIcon .Caption = "&Insert Formated Line" .TooltipText = "Run Insert Formated Line" .OnAction = ThisWorkbook.Name & "!InsertLine" .Tag = "InsertLine" End With End With End Sub Private Sub MenuBar_Item_Delete() On Error Resume Next Application.CommandBars.FindControl(Tag:="SpellChe ck").Delete Application.CommandBars.FindControl(Tag:="InsertLi ne").Delete On Error GoTo 0 End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Call UndoDoF End Sub Private Sub DoF() With Application .OnKey "{F7}", "SpellCheck" .OnKey "{F12}", "InsertLine" End With End Sub Private Sub UndoDoF() With Application .OnKey "{F7}" .OnKey "{F12}" End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Reset Custom Button on toolbar
Nevermind...I found the error. I missed the line: "ThisWorkbook.Name & "
after the OnAction. "Josh O." wrote: I am running the below code...is it possible to have reset the two buttons I added in the Sub Menu_Item macro to the active file name after a "Save As". I keep getting an error saying that "The macro 'OriginalFileName!InsertLine' cannot be found." Private Sub Workbook_Open() Call MenuBar_Item Call DoF End Sub Private Sub MenuBar_Item() Call MenuBar_Item_Delete With Application.CommandBars("Standard") With .Controls.Add(Type:=msoControlButton, ID:=2, Temporary:=True _ , Befo=1) .Style = msoButtonIcon .Caption = "&Spell Check" .TooltipText = "Run Spell Check" .OnAction = ThisWorkbook.Name & "!SpellCheck" .Tag = "SpellCheck" End With With .Controls.Add(Type:=msoControlButton, ID:=295, Temporary:=True _ , Befo=2) .Style = msoButtonIcon .Caption = "&Insert Formated Line" .TooltipText = "Run Insert Formated Line" .OnAction = ThisWorkbook.Name & "!InsertLine" .Tag = "InsertLine" End With End With End Sub Private Sub MenuBar_Item_Delete() On Error Resume Next Application.CommandBars.FindControl(Tag:="SpellChe ck").Delete Application.CommandBars.FindControl(Tag:="InsertLi ne").Delete On Error GoTo 0 End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Call UndoDoF End Sub Private Sub DoF() With Application .OnKey "{F7}", "SpellCheck" .OnKey "{F12}", "InsertLine" End With End Sub Private Sub UndoDoF() With Application .OnKey "{F7}" .OnKey "{F12}" End With End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
adding custom images to a button on custom toolbar | Excel Programming | |||
reset ALL checkboxes (created with control toolbar) with the click of ONE BUTTON | Excel Programming | |||
Custom button on toolbar | Excel Programming | |||
Delete a custom button by holding down the ALT key and dragging the button off the toolbar | Excel Programming | |||
Can't delete custom button and toolbar | Excel Programming |