如何使用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"