View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
Gord Dibben
 
Posts: n/a
Default draw a circle & get cell's contents on top?

Jack

Set the circle's Color Property to 100% Transparent.

Right-click on circle and FormatColors and Lines.

Contents will show through but not be "on top".

If you want to draw circles around selected cells here's a macro from Bob
Flanagan.

'Draw a Circle Around Highlighted Cells
'This command draws circles. And, it does it around each area that is
'selected, so that you can insert many circles at one time!


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 Excel MVP

On Mon, 12 Dec 2005 17:09:08 -0500, "Jack"
wrote:

Re Excel 97 --

Is there a way to draw a circle (I know how to do that) over a cell and get
the cell's contents to appear on top?

Jack