Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketActiveSheet.PageSetup
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585 		Direkte link til dette indlæg Emne: ActiveSheet.PageSetup
    Sendt: 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
Til top



Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585 		Direkte link til dette indlæg Sendt: 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
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk