vba - 访问工作表上绘制的标签

Question

我直接在 Excel 工作表上绘制一个简单的标签控件。但我似乎找不到任何方法通过 VBA 编辑器中的代码访问它。这可能吗？

Answer 1

您可能绘制了 ActiveX 标签或 Forms 标签。如果它是工作表上的第一个标签，则以下代码将采用默认的“label1”名称，并且 objActiveXLabel 或 objFormslabel 将引用您的控件

您还可以在插入标签时尝试使用 VBA 记录器记录宏，因为这将为您提供指向标签类型的指针以及如何操作标签

Dim objActiveXLabel As OLEObject
Dim objFormsLabel As Shape
On Error Resume Next
Set objActiveXLabel = ActiveSheet.OLEObjects("Label1")
Set objFormsLabel = ActiveSheet.Shapes("Label 1")
On Error GoTo 0
If Not objActiveXLabel Is Nothing Then MsgBox "Found an ActiveX label", vbExclamation
If Not objFormsLabel Is Nothing Then MsgBox "Found an Forms label", vbExclamation