|
|
请问这语句里CommandButton3有什么作用？
Private Sub CommandButton1_Click()
With ActivePresentation
.Slides.Range.ColorScheme = .ColorSchemes(3)
End With
End Sub
Private Sub CommandButton2_Click()
With ActivePresentation
.Slides.Range.ColorScheme = .ColorSchemes(2)
End With
End Sub
Private Sub CommandButton3_Click()
' 绘钻石()
Dim x(50), y(50), Xc, Yc, tt, n, r, i, j
Xc = 320
Yc = 240
r = 200
n = 21
tt = 2 * 3.14159 / n
For i = 0 To n - 1
x(i) = Xc + r * Cos(i * tt)
y(i) = Yc - r * Sin(i * tt)
Next i
For i = 0 To n - 2
For j = i + 1 To n - 1
ActivePresentation.SlideShowWindow.View.DrawLine x(i), y(i), x(j), y(j)
Next j
Next i
End Sub |
|
