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


         

ByVal ВокругОсиг, ByVal УголЗрения As



ActiveChart.Axes(xlValue)

.AxisTitle.Select With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.Orientation = xlVertical

End With

'

ВращениеГрафика 20, 15

'

' Запись диаграммы в файл и

' загрузка картинки в Imagel

ActiveChart.Export FilterNаmе:="График.gif",

FilterName:="GIF"

UserForml.Image1.Picture = LoadPicture("График.gif") ActiveSheet.Range("Al").Select

'

Exit Sub Сообщение:

MsgBox "Ошибка: " & Err.Description, vbExclamation, "Поверхность"

TextBox7.SetFocus

Exit Sub End Sub

Private Sub CoramandButton2_Click()

'

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

UserForml. Hide

End Sub

Private Sub Label7_Click()

End Sub

'

Private Sub ScrollBarl_Change()

' Процедура вращения вокруг оси z

'

'

' Считывание данных с полос прокрутки

'

ВокругОсиZ = ScrollBarl.Value УголЗренияСоСчетчика = ScrollBar2.Value

УголЗрения = УголЗренияСоСчетчика - 90

' Вращение поверхности

'

ВращениеГрафика ВокругОсиг, УголЗрения

End Sub

'

Private Sub ScrollBar2_Change()

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

' смотрят на диаграмму

' Считывание данных с полос прокрутки

'

ВокругОсиZ = CInt(ScrollBarl.Value)

УголЗренияСоСчетчика = CInt(ScrollBar2.Value)

'

УголЗрения = УголЗренияСоСчетчика - 90

'

' Вращение поверхности ВращениеГрафика ВокругОсиг, УголЗрения

End Sub

'

Sub ВращениеГрафика( ByVal ВокругОсиг, ByVal УголЗрения As Integer)

'

' Процедура вращения поверхности

'

If ActiveSheet.ChartObjects.Count >= 1 Then

ActiveSheet.ChartObjects(I).Activate

With ActiveChart

'

' Угол, под которым смотрят на диаграмму,

' допустимые значения от -90 до 90,

' по умолчанию 15

'

.Elevation = УголЗрения

'

' Вращение вокруг оси z, допустимые значения от 0 до 360,

' по умолчанию 20

'

.Rotation = ВокругОсиг End With

End If

'

End Sub

'

Private Sub UserForm_Initialize()

'

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


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