Сделайте буквы жирным в тексте кнопки, используя VBA

Question

Я использую следующий VBA для вставки кнопки в лист Excel:

Sub Insert_Button ()
    Sheet1.Select

    Dim Button_01 As Button
    Set Button_01 = Sheet1.Buttons.Add(423.75, 0, 48, 15)

    Dim Range_Button_01 As Range
    Set Range_Button_01 = Sheet1.Range("B6:D7")
    Button_01.Name = "Button_01"

    With Button_01
        .Top = 30
        .Left = 76
        .Width = 50
        .Height = 20
        .Text = "Button_01"
    End With

End Sub

Все это отлично работает.

---

Теперь я хочу, чтобы .Text = "Button_01" появилось в полужирный букв.
Что мне нужно изменить в моем коде, чтобы это работало?

Answer 1

Надеюсь, это поможет, вам просто нужно установить .Font.Bold = True перед закрытием With.

Sub Insert_Button()

    Sheet1.Select

    Dim Button_01 As Button
    Set Button_01 = Sheet1.Buttons.Add(423.75, 0, 48, 15)

    Dim Range_Button_01 As Range
    Set Range_Button_01 = Sheet1.Range("B6:D7")
    Button_01.Name = "Button_01"

    With Button_01
        .Top = 30
        .Left = 76
        .Width = 50
        .Height = 20
        .Text = "Button_01"
        .Font.Bold = True
    End With

End Sub