Re: Подскажите чайнику

Написал magnus_z в 15/01/2008 11:59:19

Private i As Integer

Private Sub CommandButton1_Click()
i = Val(TextBox1.Text)
Dim OrigSelection As ShapeRange
Dim eff1 As Effect

Set s1 = ActiveShape
Set eff1 = s1.CreateContour(cdrContourInside, 0.19685, i, cdrDirectFountainFillBlend, CreateCMYKColor(0, 0, 0, 100), CreateCMYKColor(0, 0, 0, 100), CreateCMYKColor(0, 0, 0, 100), 0, 2)
eff1.Contour.ContourGroup.AddToSelection
ActiveSelection.Separate
s1.Delete

UserForm1.Hide

End Sub