Добавление надписи к Checkbox программным способом

@Snails · Регистрация: 11.03.2020

Author24 — интернет-сервис помощи студентам

Добрый день!
Нужна помощь!
Необходимо составить форму заявки. Согласно разработанной структуре, решено для обозначения направления заявки использовать "OptionButton", в количестве 6 штук. При активации некоторых "OptionButton", должны появляться Checkbox'ы. В дальнейшем, в зависимости от выбранных Checkbox'ов ниже на листе пишется форма заявки.
Проблема возникает на моменте добавления Checkbox'oв. С помощью макрорекодера я получил код, который добавляет checkbox на лист. Не пойму как изменить надпись около "флажка"...
Код получился, примерно, следующий:

Visual Basic

Private Sub OptionButton1_Click()
Range ("A10"). Select
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Checkbox.1", Link:=false, DisplayAsIcon:=false). Select
Selection. Verb Verb::=xlPrimary

Буду благодарен за помощь!

@aequit · 11.03.2020, 13:08

Здравствуйте! Здесь принято пример рисовать тому, кому нужна помощь...
По теме:

Visual Basic

1	CheckBox1.Caption = "Надпись около флажка"

@pashulka · 11.03.2020, 15:00

Visual Basic

Dim ws As Worksheet, c As Range, ch As OLEObject
Set ws = ActiveSheet: Set c = ws.Range("A10")
Set ch = ws.OLEObjects.Add("Forms.Checkbox.1", Left:=c.Left, Top:=c.Top)
 
'ch.Left = c.Left: ch.Top = c.Top
ch.Object.Caption = "Та самая надпись"

Разумеется, можно обойтись и без переменных

Visual Basic

1	ActiveSheet.OLEObjects.Add("Forms.Checkbox.1", Left:=[A10].Left, Top:=[A10].Top).Object.Caption = "Та самая надпись"

@Snails · 12.03.2020, 08:14 **[ТС]**

Здравствуйте!
Такой вариант работает, в том случае, если писать его в разделе Checkbox. Но тут возникает другая проблема, что надпись появляется только после нажатие на Checkbox, а не в процессе его появления на листе.
Касательно примера. Уточните, пожалуйста, вы имеете ввиду суть задачи или код?
Спасибо!

Добавлено через 8 минут
Здравствуйте!
С вариантом, без обозначения переменных вылазит ошибка, что "Объект не поддерживает это свойство или метод".
Спасибо!

@aequit · 12.03.2020, 08:33

Сообщение от Snails

Касательно примера. Уточните, пожалуйста, вы имеете ввиду суть задачи или код?

Обычно под примером подразумевается файл с Вашими наработками, в котором расписано (обозначено) что есть и что требуется получить. Даже если есть код, тем, кто потенциально решит помочь, необходимо за Вас создать файл, вставить туда код, создать необходимые контролы... Очень часто без примера невозможно понять, что же ТС вообще желает и зачем.

@Alex77755 · 12.03.2020, 09:00

должны появляться Checkbox'ы.

Появление можно реализовать и без добавления новых чекбоксов. Простым изменением видимости

@Snails 0 / 0 / 0 Регистрация: 11.03.2020 Сообщений: 2
	12.03.2020, 08:14 [ТС]	4
	Здравствуйте! Такой вариант работает, в том случае, если писать его в разделе Checkbox. Но тут возникает другая проблема, что надпись появляется только после нажатие на Checkbox, а не в процессе его появления на листе. Касательно примера. Уточните, пожалуйста, вы имеете ввиду суть задачи или код? Спасибо! Добавлено через 8 минут Здравствуйте! С вариантом, без обозначения переменных вылазит ошибка, что "Объект не поддерживает это свойство или метод". Спасибо! 0

@aequit 223 / 134 / 45 Регистрация: 08.09.2012 Сообщений: 283 Записей в блоге: 1
	12.03.2020, 08:33	5
	Сообщение от Snails Касательно примера. Уточните, пожалуйста, вы имеете ввиду суть задачи или код? Обычно под примером подразумевается файл с Вашими наработками, в котором расписано (обозначено) что есть и что требуется получить. Даже если есть код, тем, кто потенциально решит помочь, необходимо за Вас создать файл, вставить туда код, создать необходимые контролы... Очень часто без примера невозможно понять, что же ТС вообще желает и зачем. 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	12.03.2020, 09:00	6
	должны появляться Checkbox'ы. Появление можно реализовать и без добавления новых чекбоксов. Простым изменением видимости 0

Опции темы

Добавление надписи к Checkbox программным способом

Решение