Question

我想创建一个excel宏，在其中创建一些chechbox。当我录制宏时，我在编辑模式中选择了chechbox的属性，然后在左侧我给chechbox提供了新的位置值，大小值，名称和标题。但宏观本身并不记得，只是尺寸和位置值。

它将在视觉基本代码中：

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=128.25, Top:=84.75, Width:=108, Height:= _
        21).Select

当我尝试在代码本身中编写Caption:="xyz"时，这将是错误的。我怎么处理这个？

Answer 1

如果您想通过VBA宏执行此操作。然后this question中的代码（不是答案）可以提供所需的语法。

否则，以下内容应该有效，它不是最干净的，但是可以完成工作（给Google查找this提示）：

Sub test()
Dim obj As OLEObject
Set obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1")
obj.Name = "checkboxx"
obj.Object.Caption = "CAPTION"
End Sub

请注意，您将无法使用VBA的步入功能（F8）运行此功能。

Answer 2

请查看附件图片1

复选框在excel宏中重命名

2 个答案: