Присвоить текст CheckBox

Question

я хочу, чтобы присвоить текст моего флажка, который я добавил через VBA здесь это код

ActiveSheet.OLEObjects.Add "Forms.CheckBox.1", Left:=Range("J6").Left, Top:=Range("J6").Top, Width:=Range("J6").Width, Height:=Range("J6").Height 

как изменить текст в окошке с помощью VBA

Answer 1

Если его первый CheckBox добавляется в таблицу, то:

ActiveSheet.OLEObjects("CheckBox1").Object.Caption = "Hello World!" 

в противном случае вы можете изменить имя:

ActiveSheet.OLEObjects("CheckBox1").Name = "cMain" 

А затем ссылаться на него, как это:

ActiveSheet.OLEObjects("cMain").Object.Caption = "Hello there!" 

Answer 2

Метод OLEObjects .Add возвращает объект, который был добавлен, так что просто получить ссылку на него, если вам нужно работать с его свойствами. В этом случае вы ищете свойство Caption:

Dim check_box As OLEObject 

Set check_box = ActiveSheet.OLEObjects.Add("Forms.CheckBox.1", _ 
       Left:=Range("J6").Left, Top:=Range("J6").Top, _ 
       Width:=Range("J6").Width, Height:=Range("J6").Height) 
check_box.Object.Caption = "Yes"