Элемент управления пользовательской формы Image, используемый в VBA Excel для добавления на форму изображения. Свойства элемента управления Image.
Элемент управления Image
Добавить изображение на пользовательскую форму можно и с помощью элемента управления Label, но качество, в некоторых случаях, может быть неудовлетворительным. На скриншоте ниже одинаковые изображения в формате «*. jpg» добавлены с помощью элемента управления Image – слева и Label – справа:
Основное отличие элемента управления Image от элемента управления Label заключается в поведении изображения при уменьшении размеров Image и Label до размеров меньше размеров изображения:
- изображение в элементе управления Image обрезается;
- изображение в элементе управления Label уменьшается с нарушением пропорций, подстраиваясь под новый размер элемента управления.
Изображение в элементе управления Image будет вести себя также, как в Label, если установить свойство Image.PictureSizeMode равным fmPictureSizeModeStretch.
Свойства элемента Image
| Свойство | Описание |
|---|---|
| AutoSize | Автоподбор размера элемента управления Image под размер изображения. True – размер автоматически подстраивается под изображение. False – размер элемента управления определяется свойствами Width и Height (по умолчанию), а поведение изображения зависит от свойства PictureSizeMode. |
| BackColor | Цвет заливки (фона) элемента управления Image, отображается при отсутствии изображения и на полях вокруг изображения. |
| BackStyle | Задает стиль заливки (фона) элемента управления Image: fmBackStyleTransparent (0) – фон прозрачный, fmBackStyleOpaque (1) – фон непрозрачный (по умолчанию). |
| BorderColor | Цвет рамки элемента управления. |
| BorderStyle | Стиль рамки элемента управления. |
| ControlTipText | Текст всплывающей подсказки при наведении курсора на изображение. |
| Enabled | Возможность взаимодействия пользователя с элементом управления Image. True – взаимодействие включено, False – отключено. |
| Height | Высота элемента управления. |
| Left | Расстояние от левого края внутренней границы пользовательской формы до левого края элемента управления. |
| Picture | Адрес добавляемого изображения. |
| PictureAlignment | Выравнивание изображения на элементе управления Image. |
| PictureSizeMode | Способ изменения размеров изображения в зависимости от размеров элемента управления Image. fmPictureSizeModeClip (0) – рисунок обрезается или добавляются поля (по умолчанию), fmPictureSizeModeStretch (1) – рисунок растягивается или сжимается с нарушением пропорций, заполняя собой всю площадь элемента управления Image, fmPictureSizeModeZoom (3) – рисунок растягивается или сжимается с сохранением пропорций и добавлением компенсирующих полей. |
| PictureTiling | Задает размещение изображения мозаичным способом по всему элементу управления. True – изображение размещается мозаичным способом, False – изображение размещается обычным способом (по умолчанию). |
| SpecialEffect | Определяет внешний вид элемента управления. |
| Top | Расстояние от верхнего края внутренней границы пользовательской формы до верхнего края элемента управления. |
| Visible | Видимость элемента управления Image. True – элемент управления отображается на пользовательской форме, False – скрыт. |
| Width | Ширина элемента управления. |
Примеры добавления изображений
Пример 1
Добавление изображения на элемент управления Image при загрузке пользовательской формы:
|
1 2 3 |
Private Sub UserForm_Initialize() Me.Image1.Picture = LoadPicture("C:\Фотографии\Природа\Березовая роща.jpg") End Sub |
Пример 2
Добавление изображения на элемент управления Image по адресу, записанному в ячейку таблицы Excel:
|
1 2 3 |
Private Sub CommandButton1_Click() UserForm1.Image1.Picture = LoadPicture(Worksheets("Лист1").Cells(1, 6)) End Sub |