|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
首先,生成曲线可简单,但不知道是否为你需要的效果:
- Sub DrawSineWave()
- Dim i As Integer, j As Integer, arr(0 To 200, 1 To 2) As Single
- Dim ws As Worksheet
- Set ws = ActiveSheet
- Dim left As Double: left = 400
- Dim top As Double: top = 100
- Dim width As Double: width = 200
- Dim height As Double: height = 200
- ' 画正弦曲线
- For i = 0 To width
- arr(i, 1) = left + i * 4
- arr(i, 2) = top + height / 2 + Sin(i / 10) * height / 2
- Next i
- ws.Shapes.AddPolyline safearrayofpoints:=arr
- End Sub
复制代码
其次,shape没有点这个概念,如果要用极小的封闭图形(比如1~2像素大小的矩形、圆形)来模拟点,按曲线的偏移定位,是可以办到的。
直接画像素点可能需要API,并且绘制的图形可能无法直接作为对象来使用,这个我不懂。 |
|