Доброго времени суток, господа!
Появилась задача изменения размера флажка (чекбокса). И не текста около него, а именно квадратика и галочки. Гугление не очень хорошо помогло. На многих сайтах/форумах писали, что это невозможно. И вот на одном англоязычном сайте нашел вариант альтернативы существующему чекбоксу в виде элемента Label (в котором можно поменять размер буквы/символа). Текст макроса для Label приведен ниже:
Но шрифт должен быть Windings, чтобы при нажатии по лейблу вместо квадратика (Сhr(111)) появлялся квадратик с галочкой Chr (254). Однако после создания лейбла, прописывания кода, изменения шрифта в характеристиках и запуска, шрифт почему-то меняется на Calibri, и в итоге при кликании на лейбл идет смена букв О и Ю ( Сhr(111) и Chr (254) для шрифта Calibri соответственно).
Подскажите, пожалуйста, как это исправить и исправимо ли это вообще?
Появилась задача изменения размера флажка (чекбокса). И не текста около него, а именно квадратика и галочки. Гугление не очень хорошо помогло. На многих сайтах/форумах писали, что это невозможно. И вот на одном англоязычном сайте нашел вариант альтернативы существующему чекбоксу в виде элемента 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 соответственно).
Подскажите, пожалуйста, как это исправить и исправимо ли это вообще?
Изменено: - 26.05.2015 18:17:51
