SoftAid, hoe heb je een snelstartbalk aangemaakt in de VBE? Ik wist niet eens dat dit kon, en met zoeken kon ik er ook niets over vinden?  ......[EDIT] Gevonden...

Gevonden, ja,... maar....... Die link naar Reddit  ""Is there a way to use VBA to add shortcuts to the Excel Quick Access toolbar?"" is er eentje om Snelkoppelingen te maken in het Excel-lint, niet in het VBE lint.

Moet dat een koppeling worden naar die "inspring macro" die je gebruikt om je procedures in de VBE netjes te maken?

Ja inderdaad. En die macro's "indenten" doe je liefst van in de editor, niet vanuit Excel. Maar daar zit ik vast. VBE ondersteunt dat niet (meer). Je kan geen eigen macro toewijzen aan een knop in het lint (of de snelstartbalk) van de Editor. Vandaar mijn vraag. Dat zou zo te lezen met oude taal moeten kunnen COM of CC+ en zo, maar ik heb al weinig koek gegeten van VBA, dus nu nog een andere taal.... 

De "eigen" Snelstartbalk aanmaken is geen must, je kan ook een knop aanmaken in een bestaande balk (Standard, enzovoort) via VBA (Zie code), maar ik kan geen Macro toekennen aan die knop.
Normaal zou dat via de eigenschappen van die knop moeten, met de opdracht "OnAction = [bvb Indent Macro]", maar daar loopt hij overweg, zonder foutmelding, maar ook zonder iets uit te voeren.

Public Sub AddIndenterToolbar()
   
    Dim cb As CommandBar
    Dim btn As CommandBarButton
         
    ' Nieuwe toolbar maken
    Set cb = Application.VBE.CommandBars.Add( _
    Name:="Indenter", _
    Position:=msoBarTop, _
    Temporary:=False)
   
    cb.Visible = True
   
    ' Knop toevoegen
    Set btn = cb.Controls.Add(Type:=msoControlButton, Temporary:=False)
   
    With btn
        .Caption = "Indent"
        .Style = msoButtonIconAndCaption
        .FaceId = 107
        .OnAction = "IndentActiveModule"
    End With
   
    End Sub
Misschien tref ik toch iemand die me hier kan verder helpen. Je kan de Indenter code wel uitvoeren via Excel zelf, maar voor de meeste mensen zou dat onhandig zijn om en Excel, en de Editor open te hebben staan. Ikzelf heb 2 grote schermen, dus maakt het mij niet zo veel uit, maar ik wilde de Indenter toegankelijker maken voor iedereen.

Morgen is een nieuwe dag  . Dan brainstormen we nog wat verder... Bedankt voor de interesse.

Theo

SoftAid              

Hallo beste mensen,

dit zal niet vaak gevraagd worden, daar ben ik me van bewust.

Ik zou graag een Macro laten "afspelen", en als trigger moet een eigen knop in het lint (snelstartbalk) van de VB-Editor gekoppeld worden aan die macro.

Ik heb in het lint een eigen CommandBar aangemaakt, en daarin een knop gezet. So far, so good.

Maar nu vind ik nergens de code (of een andere manier) om die macro aan die knop te koppelen.

PS: De macro staat in PERSONAL.XLSB. Heeft iemand een weinig ervaring hiermee?

SoftAid              

Sorry voor de late reactie zat in mijne spam.

Geen probleem 

PDF 1.7

  dat is mogelijk je serie nummer, niet de naam van het programma

Plannen staat op de server in pdf formaat

Handig voor ons 

SoftAid              

Er kan dan wel om euro's gespeeld worden maar volgens mij gaat het bij de 80+ ers
meer om de gezelligheid van een middagje of avondje uit dan om het geld.
Van die paar euro wordt je ook niet rijk.
Alleen maar achter de geraniums zitten word je ook niet blijer van.

Misschien dit alternatief

Vergeet in eerste instantie dat er mensen zijn die niet in een poule van 5 zitten en doe een normale loting.
Zit er toch zo'n iemand aan een tafel van 5 vraag dan gewoon of een van de andere in een andere tafel van 4 wilt gaan spelen.
Het gaat tenslotte toch om het spel en niet om de knikkers als ik het goed begrijp.