Vb.net excel宏中的复选框重命名

Vb.net excel宏中的复选框重命名,vb.net,excel,macros,Vb.net,Excel,Macros,我想创建一个excel宏,在其中创建一些复选框。录制宏时,我在编辑模式下选择复选框的属性,然后在左侧为复选框提供新的位置值、大小值、名称和标题。但是宏本身不记得,只记得大小和位置值 它将出现在visual basic代码中: ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=128.25, Top:=84.75, Width:=1

我想创建一个excel宏,在其中创建一些复选框。录制宏时,我在编辑模式下选择复选框的属性,然后在左侧为复选框提供新的位置值、大小值、名称和标题。但是宏本身不记得,只记得大小和位置值

它将出现在visual basic代码中:

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=128.25, Top:=84.75, Width:=108, Height:= _
        21).Select 
当我试图在代码本身中写入时,
标题:=“xyz”
,这将是错误的。
如何处理此问题?

如果要通过VBA宏执行此操作,请查看附加的图像。然后中的代码(不是答案)可以提供所需的语法

否则,下面的方法应该有效,它不是最干净的,但确实有效(请向谷歌提示查找):


请注意,您将无法使用VBA(F8)的“逐步进入”功能来运行此功能。

谢谢,我试图解释该语法,但仍有问题。你能帮忙吗?将对象作为OLEObject ActiveSheet.OLEObjects.Add(类类型:=“Forms.CheckBox.1”,链接:=False)进行调整。如果TypeName(obj.Object)=“Forms.CheckBox.1”,则为.OLEObjects中的每个对象选择带有工作表(“Munka1”),然后选择obj.Name=“chechboxx”obj.Caption=“Caption”结束如果下一个obj结束,是否确定需要ActiveX控件而不是表单控件?我认为表单控件更易于操作。无论如何,我编辑了答案,现在它应该对你有用了。正如我尝试的那样,复选框。Caption=“asdf”对表单控件也不起作用。。。我不明白,它和表单控件一起工作。真的,申请不会那么难,所以我希望它会很好。谢谢你的帮助!谢谢,它适用于名称,但不适用于标题。它将以下内容写入代码:Selection.Name=“xyz”,但我也想重写标题。
Sub test()
Dim obj As OLEObject
Set obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1")
obj.Name = "checkboxx"
obj.Object.Caption = "CAPTION"
End Sub