Доброго времени суток, господа!
Появилась задача изменения размера флажка (чекбокса). И не текста около него, а именно квадратика и галочки. Гугление не очень хорошо помогло. На многих сайтах/форумах писали, что это невозможно. И вот на одном англоязычном сайте нашел вариант альтернативы существующему чекбоксу в виде элемента Label (в котором можно поменять размер буквы/символа). Текст макроса для Label приведен ниже:
Код |
---|
Private Sub Label1_Click()
If Label1.Caption = Chr(254) Then
Label1.Caption = Chr(111)
Else
Label1.Caption = Chr(254)
End If
End Sub |
Но шрифт должен быть Windings, чтобы при нажатии по лейблу вместо квадратика (Сhr(111)) появлялся квадратик с галочкой Chr (254). Однако после создания лейбла, прописывания кода, изменения шрифта в характеристиках и запуска, шрифт почему-то меняется на Calibri, и в итоге при кликании на лейбл идет смена букв О и Ю ( Сhr(111) и Chr (254) для шрифта Calibri соответственно).
Подскажите, пожалуйста, как это исправить и исправимо ли это вообще?