Самоучитель VBA


         

и составление отчета на рабочем


' при выборе переключателя Круговая

On Error GoTo СообщениеЗ

'

Imagel.Picture = LoadPicture("VBA3_F3.BMP")

' В случае отсутствия файла с рисунком отображается сообщение

Exit Sub

Сообщение3:

If Err.Number = 52 Then

MsgBox "Нет графического файла VBA3_F3.BMP." & Chr(13) &

"Работаем без картинки", vbCritical, "Выплаты"

End If

Resume Next

'

End Sub

Private Sub UserForm_Initialize()

'

' Процедура инициализации и активизации диалогового окна

'

'

' Первоначальный выбор переключателя Гистограмма

'

OptionButtonl.Value = True

' Назначение клавише <Enter> функции кнопки Вычислить

'

With CommandButtonl

.Default = True

.ControlTipText = "Вьмисления и составление отчета на рабочем листе"

End With

With CommandButton2

.Cancel = True

.ControlTipText = "Кнопка отмены"

End with

CommandButton3.

.ControlTipText = "Очистка рабочего листа"

' '

On Error

GoTo Сообщение0

With Image1

' Установка такого же цвета границы элемента управления Image,

' как и его фон

'

.BorderColor = .BackColor '

' Загрузка рисунка соответствующего переключателю Гистограмма

'

.Picture = LoadPicture("VBA3_F1.BMP")

End With

'

UserForml.Show

Exit Sub '

' В случае отсутствия файла с рисунком, отображается сообщение

'

Сообщение0:

If Err.Number = 52 Then

MsgBox "Нет графического файла VBA3_F1.BMP." & Chr(13) &

"Работаем без картинки", vbCritical, "Выплаты"

End If

Resume Next

End Sub

При разработке данного приложения может возникнуть только одно затруднение: Откуда взять подходящие картинки, отображаемые в группе диаграмма диалогового окна Периодических выплат?

Но, к счастью, это только кажущаяся, можно сказать виртуальная, загвоздка. Эти картинки присутствуют в диалоговом окне первого шага мастера диаграмм. Таким образом, задача сводится к простому экстрагированию их оттуда. Для этого достаточно:

Содержание  Назад  Вперед