Добавление изображений на элементы управления пользовательской формы. Свойство Picture. Привязка картинки в редакторе и из кода VBA Excel. Удаление изображения.
Свойство Picture элементов управления
Свойство Picture есть у пользовательской формы и некоторых элементов управления: CheckBox, CommandButton, Frame, Image, Label, OptionButton, ToggleButton. Оно позволяет отобразить на этих объектах изображение с расширением jpg, bmp, gif.
Синтаксис
- object – пользовательская форма или подходящий элемент управления;
- pathname – полный путь к изображению.
Добавление изображений в редакторе VBA
Чтобы добавить картинку на форму или элемент управления в редакторе VBA Excel, необходимо в окне Properties выбранного объекта нажать кнопку с тремя точками в поле значений свойства Picture:
Откроется окно проводника, с помощью которого следует выбрать нужное изображение.
Картинка на элементе управления может использоваться вместо надписи или вместе с ней. За выравнивание изображения и положение надписи на объекте отвечает свойство PicturePosition. Подходящее значение свойства PicturePosition проще подобрать в окне Properties выбранного элемента управления.
Добавление изображений из кода VBA Excel
Пример кода VBA Excel, добавляющего надпись и изображение на элемент управления ToggleButton:
1 2 3 4 5 6 7 |
Private Sub UserForm_Initialize() With ToggleButton1 .Caption = "Кекс домашний" .Picture = LoadPicture("C:\PHOTO\keks.jpg") .PicturePosition = 4 End With End Sub |
Программное удаление изображения
Удаляется изображение из элемента управления в коде VBA Excel путем присвоения свойству Picture значения Nothing с помощью ключевого слова Set:
1 |
Set CommandButton1.Picture = Nothing |
А как из кнопки удалить (очистить) картинку (свойство picture) с помощью кода (программно)?
Привет, Константин!
Как программно удалить изображение из кнопки, добавил в конце статьи.
Как кнопке присвоить изображение (иконку) из листа?
По-моему, это невозможно.
Нашел как….но нам такой изврат, что, пожалуй, пойду другим путем.
Обсуждение закрыто.