Macro voor "dikke rode lijn"

[AHulpje]

@keb
Uiteraard bedoelde ik niet jouw macro's, maar die van mij. Heb je überhaupt gekeken naar "Randen via lintmenu.xlsm" uit bericht #18?

 

[emields]

@AHulpje vroeg of laat zal je me nog gelijk geven.

 

[keb]

bedoel je zo?

Nee, ik wil geen lijn tekenen.
Ik wil de instellingen van de lijnkleur en lijntype met een macr aanpassen

 

[edmoor]

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.

 

[AHulpje]

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.)

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.

 

[snb]

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