当前位置：文江博客话题详情

访问工作表上绘制的标签

发布于 2024-12-05 02:45:35 字数 68 浏览 0 评论 0原文

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

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

请远离我 2024-12-12 02:45:35

您可能绘制了 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

You may have drawn an ActiveX label or a Forms label. If it was the first label on the sheet then the following code will pick up the default "label1" name and either objActiveXLabel or objFormslabel will refer to your control

You could also experiment recording macros with the VBA recorder when inserting labels as this will give you pointers to the label type, and how to manipulate the label

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

回复收藏 0 原文

~没有更多了~