lettertype aanpassen in een voettekst met VBA

[h.van.bouwel]

Ik heb in mijn voettekst volgende verwijzing gemaakt

with activesheet.pagesetup
.centerfooter = range("A1)
end with

De inhoud van cel A1 komt inderdaad in de centerfooter te staan, maar dit in het standaardlettertype en standaard hoogte. Ik zou graag het lettertype aanpassen.

Kan iemand mij zeggen wat ik juist moet toevoegen om dit klaar te spelen?

Alvast bedankt voor de info.

 

[Eugene]

Lettertype: Univers
Tekengewicht: Normaal
Groote: 8

Voettekst: Voorbeeld



.CenterFooter "&""Univers,Normaal""&8Voorbeeld"

 

[h.van.bouwel]

werkt niet volledig

Het klopt wat je zegt als je daar inderdaad alleen "voorbeeld" in plaatst. Als je er een celverwijzing in maakt, dan werkt het niet.

Ik heb al geprobeerd om de verwijzing om te zetten in een string en deze dan hier bij te plaatsten, maar dat gaat ook niet. De string "StrNaam" wordt wel weergegeven maar niet de inhoud.

Ik heb nu het volgende:

strNaam = Worksheets("db Pers Geg").Range("K2").Value
MsgBox strNaam

With ActiveSheet.PageSetup
.CenterFooter = "&""Monotype Corsiva,Normaal""&12strNaam"
End With

Enig idee hoe ik de inhoud wel kan tonen?

 

[Eugene]

Als je de variabele strNaam tussen aanhalingstekens zet wordt het gezien als letterlijke tekst.

Als je strNaam buiten de aanhalingstekens zet moet het werken. Vergeet niet het extra & teken.

Dus:

.CenterFooter = "&""Monotype Corsiva,Normaal""&12" & strNaam

 

[h.van.bouwel]

Werkt perfect

Had al vanalles geprobeerd, behalve dit.

bedankt

:thumb: :thumb: :thumb: