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


         

с учетом относительных размеров


'

CommandButtonl.Default = True

CoiranandButton2.Cancel = True

ScrollBarl.ControlTipText = "Поворот вокруг оси Z"

ScrollBar2.ControlTipText = "Изменение угла зрения"

' Рисунок масштабируется с учетом относительных размеров так,

' чтобы он помещался в объекте Imagel

'

With Imagel

.PictureAlignment = fmPictureAlignmentTopLeft

.PictureSizeMode = fmPictureSizeModeStretch

End With

'

'

' Установка максимальных и минимальных допустимых значений

' для полос прокрутки, а

' также их первоначальных значений

'

With ScrollBar2

.Min = 0

.Max = 180

.Value = 105

End With

With ScrollBarl

.Min = 0

.Max = 360

.Value =20

End With

UserForml.Show

'

End Sub




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