用宏画的曲线，怎么在宏中用代码改变线型和颜色？

justzzq

学习VBA，用宏画了的一些曲线，颜色和线型都是默认的。请教各位高手，怎样才能在宏中用代码指定线型和颜色？
还有，代码中指定了ActivePresentation.Slides(1)，怎样才能将曲线画在当前幻灯片中？
宏代码如下：
Sub DrawSin()
  Const PI As Single = 3.1415
  Const Period As Single = 200
  Dim i As Single, n As Single, m As Single
  Dim sinArray() As Single
  n = InputBox("请输入周期数", "周期", 2, 300, 200)
  m = InputBox("请输入起始角度", "起始角度", 0, 300, 200)
  x = Int(n * Period / 3) * 3 + 1   '必须的，点数为 3n+1
  ReDim sinArray(1 To x, 1 To 2) As Single
  For i = 1 To x
    sinArray(i, 1) = 100 + i
    sinArray(i, 2) = 200 - 50 * Sin(2 * PI * i / Period + m * PI / 180)
  Next
    '添加贝塞尔曲线
  Set myDocument = ActivePresentation.Slides(1)
  myDocument.Shapes.AddCurve SafeArrayOfPoints:=sinArray
End Sub

dongdonggege

1. Sub DrawSin() '添加贝塞尔曲线（正弦、余弦）
   
2.   Const PI As Single = 3.1415
   
3.   Const Period As Single = 200
   
4.   Dim i As Single, n As Single, m As Single
   
5.   Dim sinArray() As Single
   
6.   n = InputBox("请输入周期数", "周期", 2, 300, 200)
   
7.   m = InputBox("请输入起始角度", "起始角度", 0, 300, 200)
   
8.   X = Int(n * Period / 3) * 3 + 1   '必须的，点数为 3n+1
   
9.   ReDim sinArray(1 To X, 1 To 2) As Single
   
10.   For i = 1 To X
    
11.     sinArray(i, 1) = 100 + i
    
12.     sinArray(i, 2) = 200 - 50 * Sin(2 * PI * i / Period + m * PI / 180)
    
13.   Next
    
14.   Set sld = ActivePresentation.Slides(1)
    
15.   Set adcuv = sld.Shapes.AddCurve(SafeArrayOfPoints:=sinArray)
    
16.   With adcuv
    
17.         .Fill.Visible = msoTrue
    
18.         .Fill.Solid
    
19.         .Fill.ForeColor.RGB = RGB(255, 0, 0)
    
20.         .Fill.Transparency = 0#
    
21.         .Line.Weight = 2#
    
22.     End With
    
23. End Sub

复制代码