Flydende knapper

Kan du faktisk godt!

Prøv først at frigive dit vindue, stil dig feks i celle R¤, og vælg frys ruder!

Så laver den 2 skille linjer!

Ja, en vertikal linje og en horisontal linje. Det, jeg leder efter, er enten en tredje horisontal linje i det 'frosne' vinduet til venstre eller en helt anden metode til at faa en samling knapper til at 'flyde'.

Var det en idé at oprette en særlig værktøjslinie til dine knapper, så de liggger helt udenfor vinduet?

-> x-lars:
Ja, det tror jeg faktisk... Det kigger jeg lige paa.

Hm, hvordan tildeler jeg via VBA makroer til de knapper jeg opretter?

Jeg opretter ved Workbook_Open en ny toolbar og laver en raekke knapper, men jeg kan ikke lige greje at faa tildelt makroer til knapperne...

Opret en userform med knapper og lad ShowModal være false - så har du knapperne i et "vindue"


Private Sub CommandButton1_Click()
entest
End Sub

Private Sub entest()
MsgBox "Hello world"
End Sub

Til 05/09-2006 12:21:33: Mens du har Tilpas-menuen åben, vælg fanebladet Kommandoer og Kategorier: Makroer i venstre-panelet. I højre-panelet vælger du Brugerdefineret knap, og trækker den ud på din nye værktøjslinie. Når du højreklikker på denne nye knap, får du mulighed for at tildele makro, ændre formattering og meget andet.

-> x-lars:
Jo, men ideen er, at værktøjslinjen skal oprettes og nedlægges når excel-arket åbnes og lukkes. Arket bliver brugt af mange forskellige brugere, så jeg skal kunne styre det hele fra VBA.

-> akyhne:
Måske det var værd at prøve. Jeg prøver lige.

Det som x-lars foreslår kan sagtens lade sig gøre. fordelen med en Form er at du kan lave meget andet på den. Billeder, tekst, dropdown, faneblade, optionbutton o.s.v.

Det kommer an på dine krav. Med VBA, kan du også bestemme hvilke standard Excel værktøjslinier der skal være åbne.

Hvis du vedhæfter værktøjslinien til dit Excel-ark og gemmer det, burde den åbne sig for alle brugere af arket, da den så integreres i arket.

Vedhæft:
Højreklik på værktøjslinien, vælg Tilpas, peg på din værktøjslinie, klik på Vedhæft..... Klik igen på din værktøjslinie i venstre-panelet, klik på Kopiér, klik OK og gem.

Fjern værktøjslinie ved lukning:

Denne kode skal i This Workbook-modulet (husk at tilpasse navnet på værktøjslinien).
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
    Application.CommandBars("My_Toolbar").Delete
On Error GoTo 0
End Sub

Jeg valgte modellen med en form, da jeg så havde andre muligheder (fx at få en tekst til at ledsage knappen, og tilføje/fjerne menuen i forskellige situationer).

Tak for indspark til både akyhne og x-lars. Jeg vil ikke udelukke at x-lars' model 'comes ind handy' i anden sammenhæng, så jeg vil tillade mig at lade jer dele points - hvis I giver et svar :-)

Der er bare ok. Glad for at kunne hjælpe :-)

Du giver bare broderparten til akyhne, når du er hans løsning, du har styret efter!

Held og lykke med projektet!

Ævvvvv, første "du" skulle være "det"

Thanx!