Ik heb een Excel add-in gemaakt met enkele functies. Deze wil ik in een aparte categorie plaatsen met de volgende subroutine:
Dit werkt wel als het een gewone subroutine is wanneer je al een leeg workbook hebt, maar niet als je deze aanroept via Auto-open() omdat er nog geen workbook open is. Heeft iemand hier een oplossing voor?
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub Auto_Open()
Dim strMacroName, strCategory, strDescription, strHelpFile, strHelpContextId As String
Dim F(600, 5) As String
Dim i As Long
Dim CHMFile As String
F(1, 1) = "Nieuwe category": F(1, 2) = "Functie1I": F(1, 3) = "Beschrijving": F(1, 4) = "help.chm": F(1, 5) = 1000
For i = 1 To 1
strCategory = F(i, 1)
strMacroName = F(i, 2)
strDescription = F(i, 3)
strHelpFile = F(i, 4)
strHelpContextId = F(i, 5)
Application.MacroOptions Macro:=strMacroName, Description:=strDescription, Category:=strCategory, HelpContextID:=strHelpContextId, HelpFile:=strHelpFile
Next i
End Sub |
Dit werkt wel als het een gewone subroutine is wanneer je al een leeg workbook hebt, maar niet als je deze aanroept via Auto-open() omdat er nog geen workbook open is. Heeft iemand hier een oplossing voor?