Opgelost Kaartsymbolen via macro oproepen

Dit topic is als opgelost gemarkeerd
OctaFish zei:
Iets te snel door de bocht; wellicht dat de juiste kleur te maken had met een ander font. Ik zou het toch met een paar macrootjes doen, die je kunt aanmaken en aan een sneltoets kunt toewijzen. Je hoeft alleen de naam op te nemen, dan kun je onderstaande codes plakken binnen je eigen macro's.

Code: 
Dim sKleur As Variant

Code: 
Sub mcrRuiten()
    Application.ScreenUpdating = False
    With Selection
        sKleur = .Font.ColorIndex
        .InsertSymbol Font:="Arial", CharacterNumber:=9830, Unicode:=True
        .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        .Font.ColorIndex = wdRed
        .MoveRight Unit:=wdCharacter, Count:=1
        .Font.ColorIndex = sKleur
    End With
    Application.ScreenUpdating = True
End Sub

Code: 
Sub mcrSchoppen()
    Application.ScreenUpdating = False
    With Selection
        sKleur = .Font.ColorIndex
        .InsertSymbol Font:="Arial", CharacterNumber:=9824, Unicode:=True
        .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        .Font.ColorIndex = wdBlack
        .MoveRight Unit:=wdCharacter, Count:=1
        .Font.ColorIndex = sKleur
    End With
    Application.ScreenUpdating = True
End Sub

Code: 
Sub mcrHarten()
    Application.ScreenUpdating = False
    With Selection
        sKleur = .Font.ColorIndex
        .InsertSymbol Font:="Arial", CharacterNumber:=9829, Unicode:=True
        .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        .Font.ColorIndex = wdRed
        .MoveRight Unit:=wdCharacter, Count:=1
        .Font.ColorIndex = sKleur
    End With
    Application.ScreenUpdating = True
End Sub

Code: 
Sub mcrKlaver()
    Application.ScreenUpdating = False
    With Selection
        sKleur = .Font.ColorIndex
        .InsertSymbol Font:="Arial", CharacterNumber:=9827, Unicode:=True
        .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        .Font.ColorIndex = wdBlack
        .MoveRight Unit:=wdCharacter, Count:=1
        .Font.ColorIndex = sKleur
    End With
    Application.ScreenUpdating = True
End Sub
Klik om te vergroten...

Hallo, hartelijk dank hiervoor.
Kun je me ook aangeven waar ik deze macro's moet plaatsen? Want ik ben echt een Digibeet hoor. Alvast bedankt
 
@Angela69
Werkt het document uit #39 bij jou?
Zo ja, dan wil ik wel aangeven hoe je de betreffende macro's in je normal.dotm kunt zetten.
 
Mijn macro’s zijn heel,makkelijk: kopieer alle code uit mijn bericht, en plak ze bij jou in een module. Heb je geen macro’s, neem er dan eentje op met een naam (in normal.dotm) , en een simpele handeling (tekst typen of zo) en die mag je daarna gelijk afsluiten. Daarna druk je op <Alt>+<F11>. Je komt dan in de VBA editor. Daar zie je dan een module staan met de macro die je net hebt opgenomen. Die mag je weggooien.
Plak daar dus mijn code, en je hebt al werkende macro’s. Ze zijn in essentie identiek qua werking, dus het maakt niet zoveel uit welke je gebruikt. Die van mij passen de lettergrootte verder niet aan, wat mij beter lijkt, maar dat is aan jou.

Om sneltoetsen aan de macro’s toe te wijzen is het slimmer om de door mij aangegeven methode te gebruiken: je neemt dan 4 dummy macro’s op met namen die voor jou duidelijk zijn, en je kent dan gelijk een sneltoets toe. Vervolgens ga je weer naar het VBA venster, en dan vervang je per macro alle code door elk van mijn vier macro’s. Dan werken de macro’s verder vanaf die sneltoets. En altijd ook vanuit het VBA venster, maar dat werkt toch minder handig.
 
Plaats je normal.dotm bestand even hier, dan zet ik de macro's er in en kun je het bestand weer terugzetten. Normal.dotm vind je in C:\Users\jouwnaam\AppData\Roaming\Microsoft\Templates.
 
Ik heb een handleiding voor je gemaakt, met hoe je de toetsen kan toewijzen. Daar zitten de macro's ook in. Altijd handig om later te kunnen hergebruiken :).
 

Bijlagen

  • Toetsen toewijzen aan macro.docm
    154,5 KB · Weergaven: 7
Maar je kunt het ook zelf:
Ga via de verkenner naar C:\Users\jouwnaam\AppData\Roaming\Microsoft\Templates
Plaats in die map de bijgaande Module1.bas, eerst even unzippen dus.
Dubbelklik op Normal.dotm
Alt-F11
Klik met de rechtermuisknop op ThisDocument onder Normal
Kies Bestand importeren
Selecteer Module1.bas
Sluit VBA venster.

Kies
  • Bestand
  • Opties
  • Lint aanpassen
  • Klik op Aanpassen (onderaan naast Sneltoetsen)
  • Scroll onder categorieen naar Macro's
  • Zorg ervoor dat "Wijzigingen opslaan in:" verwijst naar Normal.dotm
  • Selecteer een van de vier macro's
  • Klik in het vak "Druk op een nieuwe sneltoets" en druk op Alt-h voor de harten macro
  • Druk op toewijzen
  • Ken aan de andere drie macro's op dezelfde manier een sneltoetscombinatie toe.
  • Sluiten
  • OK
 

Bijlagen

  • Module1.zip
    415 bytes · Weergaven: 2
AHulpje zei:
Maar je kunt het ook zelf:
Ga via de verkenner naar C:\Users\jouwnaam\AppData\Roaming\Microsoft\Templates
Plaats in die map de bijgaande Module1.bas, eerst even unzippen dus.
Dubbelklik op Normal.dotm
Alt-F11
Klik met de rechtermuisknop op ThisDocument onder Normal
Kies Bestand importeren
Selecteer Module1.bas
Sluit VBA venster.

Kies
  • Bestand
  • Opties
  • Lint aanpassen
  • Klik op Aanpassen (onderaan naast Sneltoetsen)
  • Scroll onder categorieen naar Macro's
  • Zorg ervoor dat "Wijzigingen opslaan in:" verwijst naar Normal.dotm
  • Selecteer een van de vier macro's
  • Klik in het vak "Druk op een nieuwe sneltoets" en druk op Alt-h voor de harten macro
  • Druk op toewijzen
  • Ken aan de andere drie macro's op dezelfde manier een sneltoetscombinatie toe.
  • Sluiten
  • OK
Klik om te vergroten...
Hartelijk dank.
Na: Dubbelklik op Normal.dotm gebeurt er niets bij intoetsen van Alt-F11
 
Leg eens uit wat je bedoelt, en als je alleen reageert op AH vind ik dat prima, dan kan ik mijn tijd aan betere zaken besteden. Want in mijn document staat het dacht ik perfect uitgelegd, mét plaatjes. Veel plezier in ieder geval verder.
 
OctaFish zei:
Ik heb een handleiding voor je gemaakt, met hoe je de toetsen kan toewijzen. Daar zitten de macro's ook in. Altijd handig om later te kunnen hergebruiken :).
Klik om te vergroten...
Worden hier dan ook automatisch de kleur rood bij harten en ruiten aangebracht?
 
Oeps, ik durf na de reactie van Octafish bijna niet meer te reageren.
Maar bijgaand mijn normal.dotm (even unzippen) met macro's en sneltoetsen Alt-h etc.
Vervang jouw normal.dotm door bijgaande versie, maar maak van jouw normal.dotm eerst een backup!
Je kunt hier ook jouw normal.dotm plaatsen, dan krijg je hem retour met macro's.
 

Bijlagen

  • Normal.zip
    21,7 KB · Weergaven: 0
Niet zo moeilijk doen met de oplossing van ah; gewoon even de macro's kopiëren naar je eigen normal.dot, en de sneltoetsen instellen. a) leer je daar meer van, en b) vernaggel je je eigen normal.dot niet, waar behalve macro's ook allerlei autotekst etc. in zit. Niet doen, is dus mijn advies!
 
OctaFish zei:
Niet zo moeilijk doen met de oplossing van ah; gewoon even de macro's kopiëren naar je eigen normal.dot, en de sneltoetsen instellen. a) leer je daar meer van, en b) vernaggel je je eigen normal.dot niet, waar behalve macro's ook allerlei autotekst etc. in zit. Niet doen, is dus mijn advies!
Klik om te vergroten...
Visje bedankt, ik begrijp het, toch wil het niet lukken.
Krijg deze melding:

1706297263069.png
 
Niet zo moeilijk doen met de oplossing van OctaFish ;), plak dit er in:
Code: 
Sub Schoppen()
    Kaart 9824, wdBlack
End Sub

Sub Harten()
    Kaart 9829, wdRed
End Sub

Sub Ruiten()
    Kaart 9830, wdRed
End Sub

Sub Klaveren()
    Kaart 9827, wdBlack
End Sub

Sub Kaart(charnum, kleur)
    'huidige tekstkleur en grootte veilig stellen
    tekstkleur = Selection.Font.ColorIndex
    tekengrootte = Selection.Font.Size
    With Selection
        .Font.ColorIndex = kleur
        .Font.Size = 18
        .InsertSymbol CharacterNumber:=charnum, Unicode:=True
        'tekstkleur en grootte terugzetten
        .Font.ColorIndex = tekstkleur
        .Font.Size = tekengrootte
    End With
End Sub
 
Ik dacht dat Octafish en ik het toch duidelijk hadden uigelegd, maar dat blijkt dus niet zo te zijn.
Je plakt die code in het document waarvan je in #54 een screenprint hebt geplaatst.
Mocht het dan nog niet lukken, plaats hier dan een zipje van je normal.dotm, dan doe ik het wel.
 
AHulpje zei:
Niet zo moeilijk doen met de oplossing van OctaFish ;), plak dit er in:
Code: 
Sub Schoppen()
    Kaart 9824, wdBlack
End Sub

Sub Harten()
    Kaart 9829, wdRed
End Sub

Sub Ruiten()
    Kaart 9830, wdRed
End Sub

Sub Klaveren()
    Kaart 9827, wdBlack
End Sub

Sub Kaart(charnum, kleur)
    'huidige tekstkleur en grootte veilig stellen
    tekstkleur = Selection.Font.ColorIndex
    tekengrootte = Selection.Font.Size
    With Selection
        .Font.ColorIndex = kleur
        .Font.Size = 18
        .InsertSymbol CharacterNumber:=charnum, Unicode:=True
        'tekstkleur en grootte terugzetten
        .Font.ColorIndex = tekstkleur
        .Font.Size = tekengrootte
    End With
End Sub
Klik om te vergroten...
en gepiept, hartelijk dank allen 👏
 
OctaFish zei:
Niet zo moeilijk doen met de oplossing van ah; gewoon even de macro's kopiëren naar je eigen normal.dot, en de sneltoetsen instellen. a) leer je daar meer van, en b) vernaggel je je eigen normal.dot niet, waar behalve macro's ook allerlei autotekst etc. in zit. Niet doen, is dus mijn advies!
Klik om te vergroten...
en gepiept, hartelijk dank allen 👏
 
Je moet ingelogd zijn om te kunnen reageren. Log in | Registreer
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan