ИТМ_13 / UserForms_примеры

213776

(http://support.microsoft.com/kb/213776/)

XL2000: Как использовать элемент управления RefEdit с пользовательской формы

Элемент управления Image

Элемент управления Image предназначен для отображения рисунков в пользовательской форме. Чтобы назначить изображение во время выполнения элемент управления Image , функция LoadPicture .

Загрузка рисунка в элемент управления Image

Чтобы вставить элемент управления Image , предлагается выбрать рисунок для загрузки при выборе элемента управления Image , выполните следующие действия.

Запустите Excel и откройте новую книгу.

В меню Сервис выберите пункт Макрос и нажмите кнопку Редактор Visual Basic.

В меню Вставка выберите команду UserForm UserForm вставить в книгу.

Добавьте элемент управления Image на пользовательской форме.

Дважды щелкните изображение, чтобы открыть окно кода для элемента управления Image .

В окне кода введите следующий код для события Image1 Click :

Private Sub Image1_Click()

Dim fname As String

' Display the Open dialog box.

fname = Application.GetOpenFilename(filefilter:= _

"Bitmap Files(*.bmp),*.bmp", Title:="Select Image To Open")

' If you did not click Cancel...

If fname <> "False" Then

' Load the bitmap into the Image control.

Image1.Picture = LoadPicture(fname)

' Refresh the UserForm.

Me.Repaint

End If

End Sub

В меню выполнить выберите команду Run Sub/UserForm. Пользовательская форма отображается.

Щелкните элемент управления Image . При выборе элемента управления Image , появится диалоговое окно Выбор изображения для открытия и выберите файл растрового изображения для вставки в элементе управления.