Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
64<br />
CommandButton1.SetFocus<br />
End Sub<br />
Элементы оформления<br />
Методы класса Shape <strong>на</strong>пра<strong>в</strong>лены <strong>на</strong> работу с геометрическими<br />
фигурами, а Picture — с рисунками.<br />
Примеры<br />
Sub Д<strong>в</strong>ижениеЛиний ()<br />
With ActiveDocument<br />
For номерЛинии = 1 To .Shapes.Count<br />
If номерЛинии < .Shapes.Count Then<br />
.Shapes (номерЛинии).Left = .Shapes (номерЛинии + 1).Left<br />
.Shapes (номерЛинии).Top = .Shapes (номерЛинии + 1).Top<br />
Else<br />
.Shapes (номерЛинии).Left = .Shapes (1).Left<br />
.Shapes (номерЛинии).Top = .Shapes (1).Top<br />
End If<br />
Next номерЛинии<br />
End With<br />
End Sub<br />
Sub РисунокФормы ()<br />
With UserForm1.Image1<br />
.Picture = LoadPicture ("C:\User\scan.bmp")<br />
.PictureAlignment = fmPictureAlignmentTopLeft<br />
.PictureSizeMode = fmPictureSizeModeStretch<br />
.Visible = True<br />
If .Top > 0 And .Left > 0 Then<br />
.Move .Left - 5, .Top - 6<br />
Else<br />
.Visible = False<br />
End If<br />
End With<br />
End Sub<br />
' Несколько разноц<strong>в</strong>етных прямоугольнико<strong>в</strong> <strong>в</strong> форме<br />
Sub Разноц<strong>в</strong>ет<strong>на</strong>яФорма_Open ()<br />
номерЦ<strong>в</strong>ета = 1<br />
For Each фигура In Controls<br />
фигура.Properties ("BorderColor") = номерЦ<strong>в</strong>ета<br />
номерЦ<strong>в</strong>ета = номерЦ<strong>в</strong>ета + 2000<br />
Next фигура<br />
End Sub