Makro og VBA - fed skrift i linje til mail.. :)

fed skrift i linje til mail.. :)

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=4494
Udskrevet den: 22.Nov.2024 kl. 18:13

Emne: fed skrift i linje til mail.. :)

Besked fra: Tor4Every1
Emne: fed skrift i linje til mail.. :)
Posteringsdato: 18.Mar.2021 kl. 14:15

Hej Alle,

jeg har excel ark hvor jeg sender en mail via outlook, inden i den tekst jeg skriver som standart tekst til min mail, vil jeg gerne have en del af teksten B. men det som skal være B er fra ThisWorkbook.Sheets.Range("E11")

Har prøvet med med denne, den virker når det bare er tekst. men hvordan får jeg den til at virke når det er range.

"<b> ThisWorkbook.Sheets("aktør - Liste").Range("E11") </b>

på forhånd tak,,

Tor4Every1

Svar:

Besked fra: Bjarnehansen
Posteringsdato: 19.Mar.2021 kl. 15:49

Application.ScreenUpdating = False
    Sheets("Timeseddel").Select
    Range("C18").Select
    'ActiveSheet.PageSetup.CenterFooter = "&8Udskrevet d. " & "&D & - & Kl. &T"
    ' Get info for Right footer
    Set wbTemplate = ActiveWorkbook
    Set wsTemplate = wbTemplate.Sheets("T")
    Set rRightFooter = wsTemplate.Range("G1")

    Sheets("Blodtryksskema").Select
    Application.ScreenUpdating = False
    With ActiveSheet.PageSetup
        '.LeftHeader = ""
        '.CenterHeader = ""
        '.RightHeaderPicture.Filename = "C:\myfooterpic.jpg"
        '.RightHeader = ""
        .LeftFooter = "&8Side &P af &N"
        .CenterFooter = "&8Udskrevet d. &D - kl. &T"
        '.RightFooter = Sheets("Dine_Data").Range("F6").Value
        .RightFooter = "&""Calibri,bold""&08" & rRightFooter.Value
    End With

linjen med rødt laver en bold tekst i calibri font størrelse 8

håber det giver dig en ide

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

Besked fra: Bjarnehansen
Posteringsdato: 19.Mar.2021 kl. 15:52

ellers må du /topic662.html - upload dit ark så skal vi nok kunne hjælpe dig

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