При работе в VBA одна из вещей, которые вы можете создать, называется «пользовательской формой». Эти формы предоставляют вам возможность создавать собственные диалоговые окна. При желании в пользовательскую форму можно добавить множество различных типов элементов управления. Например, вы можете добавлять метки, текстовые поля, раскрывающиеся списки, переключатели и многие другие элементы управления.

Размер некоторых элементов управления можно изменять; другие вы не можете. Тот, размер которого вы не можете изменить, — это флажок. Хотя вы можете изменить размер шрифта, используемый для метки рядом с флажком, вы не можете изменить размер самого флажка.

Если вы обнаружите, что флажки в ваших пользовательских формах на ваш вкус слишком малы, вы можете «обойти» их, смоделировав флажок. Вы делаете это, фактически создавая метку вместо флажка. Затем измените свойства метки так, чтобы у нее был прозрачный фон и чтобы использовался шрифт Wingdings. Вы также должны убедиться, что для шрифта установлен большой размер, например 20 или 26 пунктов.

Теперь дважды щелкните ярлык, чтобы открыть окно кода. Программируемое вами событие — это событие Click для метки, что означает, что оно будет выполняться при каждом нажатии на метку. Используйте это как свой код:

Private Sub Label1_Click()

If Label1.Caption = Chr(254) Then         Label1.Caption = Chr(168)

Else         Label1.Caption = Chr(254)

End If End Sub

В шрифте Wingding Chr (254) — это поле с галочкой, а Chr (168) — это поле без галочки. Когда вы запускаете пользовательскую форму и щелкаете по метке, она переключается между пустым полем и флажком. Вы также можете добавить другой код к событию Click, которое при необходимости выполняет другие задачи.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2282) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Resizing_Checkboxes [Изменение размера флажков].