• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Macro voor "dikke rode lijn"

  • Onderwerp starter Onderwerp starter keb
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
@keb
Uiteraard bedoelde ik niet jouw macro's, maar die van mij. Heb je überhaupt gekeken naar "Randen via lintmenu.xlsm" uit bericht #18?
 
Het feit dat er bij het opnemen van die actie geen code wordt gegenereerd zegt naar mijn mening al dat daar geen VBA opdrachten voor zijn.
 
Geen directe VBA opdrachten, maar in bijzondere gevallen mag je SENDKEYS gebruiken.
Open een nieuw Excelbestand.
Plaats onderstaande code in een module in PERSONAL.XLSB (Alt-F11 etc.)
Code:
Sub RodeRand()
    SendKeys "%rarj{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{RIGHT}~"
End Sub

Sub ZwarteRand()
    SendKeys "%rarj~"
End Sub

Sub DikkeRand()
    SendKeys "%rarll~{END}~"
End Sub

Sub DunneRand()
    SendKeys "%rarll~{END}{DOWN}{DOWN}~"
End Sub
Klik met de rechtermuisknop ergens op het lintmenu.
Kies "Het lint aanpassen"
Selecteer in het rechtervak tab "Start".
Klik op "Nieuwe groep", "Naam wijzigen" en noem de groep bijvoorbeeld "Randen"
Boven het middelste vak kies je onder "Opdrachten kiezen" voor "Macro's", een lijstje met macro's wordt zichtbaar.
Selecteer een macro en klik op "Toevoegen", doe dat voor alle vier de macro's.
Ze verschijnen in het rechtervak.
Selecteer ze daar een voor een en klik op "Naam wijzigen".
Ken ze een logische naam toe, bijvoorbeeld Rood, Zwart, Dik, Dun en kies daarbij een passend symbool, voor Rood bijvoorbeeld het rode vierkantje, voor Dik het vierkantje met dikke rand etc.
Sluit het bestand en sla PERSONAL.XLSB op.
In alle Exceldocumenten die je daarna opent heb je dan de beschikking over over de groep "Randen" in tab "Start", zie afbeelding.
 

Bijlagen

  • Randen.png
    Randen.png
    5,2 KB · Weergaven: 1
CSS:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target.Borders(9)
       .ColorIndex = 3
       .Weight = 4
    End With
    Cancel = True
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan