Excel 2002: How to draw an oval shape outline to the worksheet?

[Guest]

Dear Sir,

I need to draw an oval shape to circle up a group of figures in the
worksheet for explanation purpose.

However when I use the drawing tool at the drawing tool bar, the oval shape
I have on the spreadsheet always superimposed on the figures. Another words
the oval shape is filled and I cannot read anything that is circled.

May I know how to get only the oval shape outline only?



Thanks

Low

 

[Guest]

Right click the shape, Format autoshape - colours & Lines and set
transparency to 100%.

Hope this helps.

Mike

 

[Guest]

double click on the oval and select no fill for the fill options

 

[Gord Dibben]

Mr. Low

Set transparency to 100%.

I like this macro. Allows for multiple selections.

Sub My_Circle()
Dim x, y As Single, area As Range
'rotate through areas - this allows multiple circles to be drawn
For Each area In Selection.Areas
With area
' x and y are numbers that are a function of the
' area's height and width
x = .Height * 0.2
y = .Width * 0.2
ActiveSheet.Ovals.Add Top:=.Top - x, Left:=.Left - y, _
Height:=.Height + 2 * x, Width:=.Width + 2 * y
ActiveSheet.Ovals(ActiveSheet.Ovals.Count) _
.Interior.ColorIndex = xlNone
End With
Next area
End Sub


Gord Dibben MS Excel MVP

 

[Guest]

Hello BJ,

Thanks, It works

Low
--
A36B58K641

double click on the oval and select no fill for the fill options

 

[Guest]

Hello Mike,

Thanks, I have got it.

Low

 

[Guest]

Helo Gord,

Thanks, It works

Low
--
A36B58K641

Mr. Low

Set transparency to 100%.

I like this macro. Allows for multiple selections.

Sub My_Circle()
Dim x, y As Single, area As Range
'rotate through areas - this allows multiple circles to be drawn
For Each area In Selection.Areas
With area
' x and y are numbers that are a function of the
' area's height and width
x = .Height * 0.2
y = .Width * 0.2
ActiveSheet.Ovals.Add Top:=.Top - x, Left:=.Left - y, _
Height:=.Height + 2 * x, Width:=.Width + 2 * y
ActiveSheet.Ovals(ActiveSheet.Ovals.Count) _
.Interior.ColorIndex = xlNone
End With
Next area
End Sub


Gord Dibben MS Excel MVP

 

[Guest]

Hello Gord,

Thanks, it works.

Low

 

[kennected]

Can I jump in here with a related question?
Is there anyway to change the autoshape properties to default with
transparent ovals rather than having to change then after they are drawn?

 

[Gord Dibben]

No.

You could use VBA to insert transparent ovals where you wish.

Here is sample code for drawing a transparent ellipse around a selection or
multiple selections of cells.

Sub My_Circle()
Dim X, y As Single, area As Range
'rotate through areas - this allows multiple circles to be drawn
For Each area In Selection.Areas
With area
' x and y are numbers that are a function of the
' area's height and width
X = .Height * 0.2
y = .Width * 0.2
ActiveSheet.Ovals.Add Top:=.Top - X, Left:=.Left - y, _
Height:=.Height + 2 * X, Width:=.Width + 2 * y
ActiveSheet.Ovals(ActiveSheet.Ovals.Count) _
.Interior.ColorIndex = xlNone
End With
Next area
End Sub


Gord Dibben MS Excel MVP