访问工作表上绘制的标签

Question

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

Answer 1

您可能已绘制了ActiveX标签或表单标签。如果它是工作表上的第一个标签，那么以下代码将获取默认的“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