Print side | Luk vindue

ActiveSheet.PageSetup

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4340
Udskrevet den: 21.Nov.2024 kl. 19:01


Emne: ActiveSheet.PageSetup
Besked fra: Bjarnehansen
Emne: ActiveSheet.PageSetup
Posteringsdato: 16.Aug.2020 kl. 17:43
Hej
Hvordan skal denne linje laves hvis man vil have sat font size til &8
.RightFooter = Sheets(1).Range("A1").Value

Jeg kender godt denne . ="&8&D"


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Svar:
Besked fra: Bjarnehansen
Posteringsdato: 17.Aug.2020 kl. 13:19
Hej

jeg har løst det på denne måde:

' Get info for Right footer
    Set wbTemplate = ActiveWorkbook
    Set wsTemplate = wbTemplate.Sheets("Dine_Data")
    Set rRightFooter = wsTemplate.Range("F6")

.RightFooter = "&""Calibri,Kursiv""&08" & rRightFooter.Value


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Print side | Luk vindue