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

使用VBA的形状标签的透明背景

1 个答案: