Excel/VBA Menu-editor Hjælp , Vejledning, Om?

Her er hvad jeg umiddelbart husker. Du skal have lavet en hjælpefil i Windows-format - f.eks. med programmet RoboHelp - giver en .hlp fil. En windows hjælpefil kræver en bestemt opbygning.

Så kan du i vba-editoren under Tools/VBAProject Properties angive filnavn og sti i feltet \"Help file name\"

Mon jeg siger det rigtigt? Det er blot den lille menu, der sidder oppe til venstre i alle programmer. I Visual Basic hedder det en menu-editor, men jeg kan ikke finde en sådan i VBA.

OK - jeg ved hvad du mener. Så vidt jeg husker, så har Excel ikke den samme menu-editor. Jeg kigger måske efter den i morgen, hvis ikke en anden har givet dig løsningen. Gab.

Hej Tida

Prøv at kopere denne kode ind i et modul i et regneark og afspil Macromenu. Det er et eksempel på hvordan det kan løses.

Sub Macromenu()
Dim ctlGFKnap As Object
ThisWorkbook.Activate

Application.CommandBars.Add Name:=\"Macroer\"
CommandBars(\"Macroer\").Visible = True
Set ctlGFKnap = Application.CommandBars(\"Macroer\").Controls.Add(Type:=msoControlComboBox, before:=1)
With ctlGFKnap
   
    .AddItem \"Macro 1\", 1
    .AddItem \"Macro 2\", 2
    .AddItem \"Macro 3\", 3
    .AddItem \"Macro 4\", 4
    .AddItem \"Macro 5\", 5
    .AddItem \"Macro 6\", 6
    .AddItem \"Macro 7\", 7
    .AddItem \"Macro 8\", 8
    .AddItem \"Macro 9\", 9
    .AddItem \"Macro 10\", 10
    .AddItem \"Macro 11\", 11
    .AddItem \"Macro 12\", 12
    .AddItem \"Macro 13\", 13
    .AddItem \"Macro 14\", 14
    .AddItem \"Macro 15\", 15
    .AddItem \"Macro 16\", 16
    .AddItem \"Macro 17\", 17
    .AddItem \"Macro 18\", 18
    .Width = 100
    .DropDownLines = 10
    .DropDownWidth = 100
    .ListIndex = 0
    .Text = \"Afspil en macro\"

    .OnAction = \"Valg\"
 
End With

End Sub

Sub Valg()
Select Case CommandBars(\"Macroer\").Controls(1).ListIndex
Case 1
MacroEt
Case 2
MacroTo
End Select
\'
End Sub


Function MacroEt()
MsgBox \"Du har valgt et\"
End Function

Function MacroTo()
MsgBox \"Du har valgt to\"
End Function

\'osv.

fobian> er dit svar til et andet spørgsmål ?

ØH - JA - det var det faktisk - Mange gange undskyld. Det var et svar til TIDA vedr. en  rullemenu.

:-) ok

Næh, flemmningdahl, hvorfor skulle den mulighed egentlig findes. VBA er jo ikke noget selvstændigt program... Men tak for hjælpen. Jeg tillader mig at reducere pointtallet, idet et ikke-svar vel ikke bør koste så meget.

Du skal have fat i additional-controls, men det virker ikke på samme måde som i VB. Jeg kan ikke huske controlens navn.