kleine weergave in koptekst

[dirkcarel]

Goedemiddag,
Ik heb onderstaande code als koptekst. Hoe is het mogelijk om het lettertype standaard klein te krijgen, als het kan Arial 8 pt. en dan in superscript?
Groeten, Dirk

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.RightHeader = Now
End Sub

 

[Raymond E]

Zoiets .... of is dit heel kort door de bocht?

Groeten,
Raymond.

 

[dirkcarel]

Dankjewel voor je snelle reactie. Is inderdaad te kort door de bocht.
Ik wil het graag in VBA opgenomen, omdat ik dat uiteindelijk ga afschermen.
Groeten, Dirk

 

[Raymond E]

Denk ik ook eens wat te weten zonder de hulp van een Senior Member ... Dan haak ik (nu) af ...

 

[snb]

Neem eens een macro op.

 

[dirkcarel]

Lukt me niet als ik ActiveSheet.PageSetup.RightHeader = Now wil gebruiken:-( maar ik ben een redelijke leek.

 

[WimenBeer]

Lukt me niet als ik ActiveSheet.PageSetup.RightHeader = Now wil gebruiken:-( maar ik ben een redelijke leek.

[Now] is een functie die de huidige datum ophaald. Dus daar heb je dan nix aan.
VOlgens mij moet je meer zoekn in Font.Standard.
Maar dat heb ik niet uitgetest.

Succes
Wim

 

[snb]

ActiveSheet.PageSetup.RightHeader = "&""Arial,Standaard""&8&D&T"

 

[leofact]

En met deze code maak je superscript van de datum en de tijd.

ActiveSheet.PageSetup.CenterHeader = "koptekst" "&X" & Now

mvg Leo