LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 208
Default Customize Addin

I have an add-in that I'm working on which runs various macros from
menus, toolbars or the right click menu.

I would like to give the users the option of which menu (s) to create
but I can't figure out how to save their settings so that when excel
is opening the next time, the users settings are also loaded.

I tried creating a tab called "Options" in the add-in but once I set
the IsAddin property to true I get run-time errors when I try to save
the user's settings. The error is because the code below can't find
the Options tab even though it exists (and is spelled correctly) in
the addin.

Here's the code that is excuted when the user clicks ok on the Options
form:
Private Sub CommandButton1_Click()


If cbMenu Or cbToolbar Or cbRightClick Then

'next create the menus the user wants
If cbMenu = True Then
x = Set_Options("Menu", True)
Else
x = Set_Options("Menu", False)
End If

If cbToolbar = True Then
x = Set_Options("Toolbar", True)
Else
x = Set_Options("Toolbar", False)
End If

If cbRightClick = True Then
x = Set_Options("RightClick", True)
Else
x = Set_Options("RightClick", False)
End If

Me.Hide

Else
MsgBox "At least 1 item must be selected, please make your
selection and try again"

End If

End Sub


Function Set_Options(MenuName As String, Show_Menu As Boolean) As
Boolean

Sheets("Options").Select

Select Case MenuName
Case "Menu"
CurrentlyVisible = Range("A1").Value
Range("A1").Value = Show_Menu

Case "Toolbar"
CurrentlyVisible = Range("A2").Value
Range("A2").Value = Show_Menu

Case "Rightclick"
CurrentlyVisible = Range("A3").Value
Range("A3").Value = Show_Menu

End Select

If CurrentlyVisible < Show_Menu Then
If Show_Menu Then
MakeTheMenu (MenuName)
Else
DeleteTheMenu (MenuName)
End If
End If

Set_Options = True

End Function
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How to customize =Now() Robin Excel Discussion (Misc queries) 11 August 16th 09 12:48 AM
setup project for Excel addin, won't register addin Gerry Excel Programming 0 October 31st 07 12:01 AM
Removing an Addin from the Tools Addin list. Trefor Excel Programming 2 August 25th 06 04:45 PM
Unshimmed Automation Addin and Shimmed COM Addin in same App Domai Brandon Excel Programming 0 June 27th 06 11:18 PM
Remove Excel AddIn from AddIn List !! Help carl Excel Programming 2 December 8th 03 03:36 PM


All times are GMT +1. The time now is 07:10 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"