Hi,

I got some problems on addpolyline function


Sub test()

Dim a(1 To 4, 1 To 2) As Single
Dim i As Integer, j As Integer

For i = 1 To 4
a(i, 1) = i * 100
a(i, 2) = (i * i) * 100
Next i

ActiveSheet.Shapes.AddPolyline a

End Sub

I got runtime error 1004 if I changed the line "Dim a(1 To 4, 1 To 2) As
Single" to "Dim a(1 To 4, 1 To 2) As Variant". Is it a bug?