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

Wijzigen lettertype in aangepaste tabelstijl

Status
Niet open voor verdere reacties.

riccardodeboef

Gebruiker
Lid geworden
18 jan 2002
Berichten
272
Besturingssysteem
Windows 11
Office versie
Office 365
Goedemorgen,

Ik maak gebruik van Office 365 en beschik over de laatste update. Verder maak ik gebruik van Windows 11, maar dat is voor mijn vraag verder niet relevant.
Waar loop ik tegenaan?
Ik heb een aangepaste tabelstijl gemaakt in Excel. Voor alle elementen van een tabel kun je de eigenschappen wijzigen (lettertype, rand en opvulling). Alleen zijn in het menu lettertype de velden 'Lettertype' en 'punten' niet aanpasbaar. Alleen als ik via de opties van het bestand het standaard lettertype aanpas kan ik een ander lettertype vastleggen in de tabelstijl.

Ik zou graag willen weten hoe ik kan zorgen dat ik in de de tabelstijl ook per element (bijvoorbeeld de veldnamenrij) een ander lettertype en grootte kan selecteren.

Weet iemand of dit mogelijk is?
Zou het graag met de aangepaste tabelinstellingen willen oplossen en niet met workarounds.

Alvast bedankt voor het meedenken!

Met vriendelijke groet,
Riccardo
 

Bijlagen

Laatst bewerkt:
Dat doe je buiten de tabelopmaak om door de betreffende cel(len) te selecteren en daarvan het lettertype te wijzigen.

In de Object browser blijkt het lettertype alleen-lezen te zijn.

VBA:
Code:
Sub M_snb()
    With ActiveWorkbook.TableStyles("Tabelstijl 1").TableStyleElements(0)
        With .Font
            .FontStyle = "Italic"
            .Strikethrough = False
            .TintAndShade = 0
            .ThemeColor = xlThemeColorLight2
        End With
        With .Borders
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
            .LineStyle = 0
        End With
        With .Borders(xlEdgeBottom)
            .Color = 1697224
            .TintAndShade = 0
            .Weight = xlMedium
            .LineStyle = xlNone
        End With
    End With
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan