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


         

координаты области, где строится диаграмма



Set Area = ActiveSheet.Cells(1, 2).CurrentRegion

'

' n - число столбцов диапазона Area

'

'

n = Area.Columns.Count

' (195, 30, 200, 190) - координаты области, где строится диаграмма

ActiveSheet.ChartObjects.Add(195, 30, 200, 190).Select

' Построение диаграммы

'

ActiveChart.ChartWizard Source:=

Range(Cells(1, 2), Cells(2, n)),

Gallery:=ТипГрафика, Format:=Формат,

PlotBy:=xlRows, CategoryLabels:=l,

SeriesLabels:=0, HasLegend:=False,

Title:="Диаграмма", CategoryTitle:="Cтaвкa",

ValueTitle:="Выплаты", ExtraTitle:=""

'

End Sub '

Private Sub CommandButton2_Click()

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

'

UserForml.Hide End Sub

Private Sub CommandButton3_Click()

' Процедура очистки рабочего листа

'

ActiveSheet.ChartObjects.Delete

'

' Очистка ячеек рабочего листа

ActiveSheet.Cells(1,1).CurrentRegion.Clear

End Sub '

Private Sub OptionButtonl_Click()

' Процедура загрузки файла в элемент управления Image

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

'

On Error

GoTo Сообщение1

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

Exit Sub

'

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

'

Сообщение1:

If Err.Number = 52 Then

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

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

End If

Resume Next

End Sub

Private Sub OptionButton2_Click()

'

' Процедура загрузки .файла в элемент управления Image

' при выборе переключателя График

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

'

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

Exit Sub

'

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

'

Сообщение2:

If Err.Number = 52 Then

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

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

End If

Resume Next '

End Sub

'

Private Sub OptionButton3_Click()

' Процедура загрузки файла в элемент управления Image


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