Превратить из Excel нарисованные значения в жирный текст - PullRequest
Новая
       62

Превратить из Excel нарисованные значения в жирный текст

0 голосов
/ 10 января 2020

Я создал форму для ввода информации и написал простой макрос для извлечения этой информации в электронное письмо. Для удобства чтения я бы sh превратил эти значения (например, ActiveSheet.Range ("E6"). Value) в жирный текст.

Использование Google и этой доски объявлений не привело меня к ответу, поэтому я решил открыть эту тему.

Минимальный пример для моего кода: 

    On Error Resume Next
    With OutMail
        .to = "adress@provider.eu"
        .CC = ""
        .BCC = ""
        .Subject = "Title Part 1 : " & ActiveSheet.Range("E6").Value & " / Title Part 2 : " & ActiveSheet.Range("E12").Value
        .Body = "Hallo XXX," & vbNewLine & vbNewLine & "anbei unser XXXXX:" & vbNewLine & vbNewLine & _
             "----------------------------" & vbNewLine & "AAA Number:  " & _
             ActiveSheet.Range("E6").Value & vbNewLine & "Company: " & _
             ActiveSheet.Range("E7").Value & vbNewLine & "Role:  " & _
             ActiveSheet.Range("E8").Value & vbNewLine & "BBBBB Type:  " & _
             ActiveSheet.Range("E9").Value & vbNewLine  & "Candidate Name:  " & _
             ActiveSheet.Range("E21").Value & vbNewLine & "Send end of month:  " & _
             ActiveSheet.Range("E22").Value & vbNewLine & "External Notes:  " & _
             ActiveSheet.Range("E23").Value & vbNewLine & "Additional Info:  " & _
             ActiveSheet.Range("E24").Value & vbNewLine & "----------------------------" & _
             vbNewLine & vbNewLine & vbNewLine & "Danke euch !"
        '.Attachments.Add Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$G$24"
        .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Эти ActiveSheet .Range.Values ​​мне нужно жирным шрифтом. Есть ли легкая реализация?

KR Alex

...