Thread: Circle in excel
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
ufo_pilot ufo_pilot is offline
external usenet poster
 
Posts: 142
Default Circle in excel

Try:

Col width 1.6
Rowheight 12.75

"David" wrote:

Hi,
I am trying to create a circle by coloring excel cells.
I knew that I needed to use circle equation to build a circle in excel.
"Gary's student" user name, helped me out with the VB code show at the end.

This works great if the row and col sizes are the same (which are inputs
from the user), in other words, when the cells are square it works great.
The problem I am having is that when ie. row height col width, I get an
elipse instead of a circle. The reason is that the code below colors the
same number of col as rows (but row heigh than col width).
I need to somehow to control the code in a way that even if the row and col
sizes are different, it alway creates a circle (number of cell in x direction
do not have to be always the same as in the y direction as long as a circle
shape is attained at the end)

Is this something that could be done in Excel?
Any ideas would be greatly appreciated.

Sub asdf()
For i = 900 To 1100
For j = 50 To 150
d = Sqr((i - 1000) ^ 2 + (j - 100) ^ 2)
If d < 50 Then
Cells(i, j).Interior.ColorIndex = 46
End If
Next
Next
End Sub