如何使用VBA重命名复选框

Question

我想更改标题以及我在新工作表中执行的某些复选框的方法名称。我至今的代码是：

Sheets("Sheet1").OLEObjects.Add "Forms.CheckBox.1", _ 
Left:=Cells(fil_1, col_1).Left - 11.25, _ 
Top:=Cells(fil_1, col_1).Top, _ 
Width:=Range("A1").Width, Height:=Range("A1").Height 
'Caption:="" 

Answer 1

像这样：

Set ole = ActiveSheet.OLEObjects 
ole(1).Name = "New Name" 
ole(1).Object.Caption = "New Caption" 

还是要使它更容易，简单地修改你的榜样：

set newCheckbox = Sheets("Sheet1").OLEObjects.Add "Forms.CheckBox.1", _ 
Left:=Cells(fil_1, col_1).Left - 11.25, _ 
Top:=Cells(fil_1, col_1).Top, _ 
Width:=Range("A1").Width, Height:=Range("A1").Height 
'Change name and caption 
newCheckbox .Name = "New Name" 
newCheckbox .Object.Caption = "New Caption"