Rabby
Oct 27th, 2000, 06:32 AM
I would like to convert the following oval and line vba code to vb6 can someone please help
With ActiveSheet.Ovals.Add(c - r, c - r, 2 * r, 2 * r)
.Interior.ColorIndex = 8
End With
With ActiveSheet.Lines.Add(c - l * Sin(i * a), c + l * Cos(i * a), c + l * Sin(i * a), c - l * Cos(i * a))
.Border.Weight = xlMedium
.ArrowHeadStyle = xlClosed
.ArrowHeadWidth = xlMedium
.ArrowHeadLength = xlMedium
End With
With ActiveSheet.Ovals.Add(c - r, c - r, 2 * r, 2 * r)
.Interior.ColorIndex = 8
End With
With ActiveSheet.Lines.Add(c - l * Sin(i * a), c + l * Cos(i * a), c + l * Sin(i * a), c - l * Cos(i * a))
.Border.Weight = xlMedium
.ArrowHeadStyle = xlClosed
.ArrowHeadWidth = xlMedium
.ArrowHeadLength = xlMedium
End With