Прозрачный фон для надписи формы с использованием VBA

Question

Я пытаюсь создать фигуры, используя vba.У формы есть метка, но я хочу, чтобы у поля метки был прозрачный фон.Попробовал приведенный ниже код, но я получил объект требуется ошибка.

Sub obj()
   ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, c, r, l1 / 4, h1 / 4).TextFrame.Characters.Text = l1 & "->"

     With TextFrame.TextRange.Font.Fill
         .Transparency = 0.9
     End With
End Sub

Answer 1

Вы должны указать форму для ее форматирования.Сначала добавьте форму и укажите ее имя:

ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal,  c, r, l1 / 4, h1 / 4).Name = "ExampleName"

Затем вы можете отформатировать ее так, как хотите:

ActiveSheet.Shapes("ExampleName").TextFrame.Characters.Text = l1 & "->"
ActiveSheet.Shapes("ExampleName").Fill.Transparency = 0.9