Cheсkbox на листе- имзенение шрифта (размер и т.п.)

[Graers]

Добрый день.

На листе EXcel размещён "флажок" из "Панель инструментов"- "Формы" (на листе- не элемент управления на форме)
Возможно ли установить для этого элемента произвольный размер шрифта и разрешить перенос.

Никак не могу в VBA это сделать

[EducatedFool]

Никак не могу в VBA это сделать

Неудивительно, ибо это невозможно.

Проверить можно так:

Sub test()
    Dim chbox As CheckBox
    Set chbox = Me.Shapes("checkBox1").OLEFormat.Object
    chbox.Characters.Text = "строка1" & vbNewLine & "строка2"
    Debug.Print chbox.Characters.Font.Size
End Sub

Как мы видим, многострочность данный вид элементов управления не поддерживает.

Свойство chbox.Characters.Font.Size возвращает Null, и недоступно для изменения.

[Graers]

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

Неудивительно, ибо это невозможно.

Проверить можно так:

Sub test()
    Dim chbox As CheckBox
    Set chbox = Me.Shapes("checkBox1").OLEFormat.Object
    chbox.Characters.Text = "строка1" & vbNewLine & "строка2"
    Debug.Print chbox.Characters.Font.Size
End Sub

Как мы видим, многострочность данный вид элементов управления не поддерживает.

Свойство chbox.Characters.Font.Size возвращает Null, и недоступно для изменения.

Спасибо за ответ.

[EducatedFool]

А что мешает использовать на листе аналогичный чекбокс, только с панели Элементы управления, а не с панели Формы?
Там-то всё работает:

Sub test()
    Set chbox = Me.Shapes("checkBox2").OLEFormat.Object.Object
    chbox.Font.Size = 20
    chbox.Caption = "строка1" & vbNewLine & "строка2"
End Sub

[Graers]

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

А что мешает использовать на листе аналогичный чекбокс, только с панели Элементы управления, а не с панели Формы?
Там-то всё работает:

Sub test()
    Set chbox = Me.Shapes("checkBox2").OLEFormat.Object.Object
    chbox.Font.Size = 20
    chbox.Caption = "строка1" & vbNewLine & "строка2"
End Sub

Да, в принципе ничего не мешает - просто хотел с "этим" разобраться