ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   draw a circle & get cell's contents on top? (https://www.excelbanter.com/excel-discussion-misc-queries/60037-draw-circle-get-cells-contents-top.html)

Jack

draw a circle & get cell's contents on top?
 
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



Mark

draw a circle & get cell's contents on top?
 
You can set the fill color to none and see the cells behind.


Gord Dibben

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


CLR

draw a circle & get cell's contents on top?
 
Select the circle, and in the Formula Bar type "=A1" without quotes.....the
value in cell A1 will appear as tho it be text in the circle...

Vaya con Dios,
Chuck, CABGx3


"Gord Dibben" <gorddibbATshawDOTca@ wrote in message
...
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




Gord Dibben

draw a circle & get cell's contents on top?
 
Dynamic text in a circle<g

Can't remember if I ever knew about that trick, Chuck


Gord

On Mon, 12 Dec 2005 19:15:17 -0500, "CLR" wrote:

Select the circle, and in the Formula Bar type "=A1" without quotes.....the
value in cell A1 will appear as tho it be text in the circle...

Vaya con Dios,
Chuck, CABGx3


"Gord Dibben" <gorddibbATshawDOTca@ wrote in message
.. .
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



CLR

draw a circle & get cell's contents on top?
 
Yeah, it's neat, and works good too if you want the result of a formula
inside a drawing object....just put the formula in a helper cell somewhere
and do this trick.....


Vaya con Dios,
Chuck, CABGx3



"Gord Dibben" <gorddibbATshawDOTca@ wrote in message
...
Dynamic text in a circle<g

Can't remember if I ever knew about that trick, Chuck


Gord

On Mon, 12 Dec 2005 19:15:17 -0500, "CLR"

wrote:

Select the circle, and in the Formula Bar type "=A1" without

quotes.....the
value in cell A1 will appear as tho it be text in the circle...

Vaya con Dios,
Chuck, CABGx3


"Gord Dibben" <gorddibbATshawDOTca@ wrote in message
.. .
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





Jack

draw a circle & get cell's contents on top?
 
Thanks everybody -- good stuff!


Jack



Desert Piranha

draw a circle & get cell's contents on top?
 

CLR,
Yeah, i use this on text boxes and whatnot,
and you can have your "Source Cell" on another sheet IE:
"=Sheet2!A1"
Dave
CLR Wrote:
Select the circle, and in the Formula Bar type "=A1" without
quotes.....the
value in cell A1 will appear as tho it be text in the circle...

Vaya con Dios,
Chuck, CABGx3


"Gord Dibben" <gorddibbATshawDOTca@ wrote in message
...
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



--
Desert Piranha


------------------------------------------------------------------------
Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934
View this thread: http://www.excelforum.com/showthread...hreadid=492895


CLR

draw a circle & get cell's contents on top?
 
Right-on!........good point to remember, thanks for sharing that.....

Vaya con Dios,
Chuck, CABGx3


"Desert Piranha"
<Desert.Piranha.1zyloa_1134444900.5085@excelforu m-nospam.com wrote in
message news:Desert.Piranha.1zyloa_1134444900.5085@excelfo rum-nospam.com...

CLR,
Yeah, i use this on text boxes and whatnot,
and you can have your "Source Cell" on another sheet IE:
"=Sheet2!A1"
Dave
CLR Wrote:
Select the circle, and in the Formula Bar type "=A1" without
quotes.....the
value in cell A1 will appear as tho it be text in the circle...

Vaya con Dios,
Chuck, CABGx3


"Gord Dibben" <gorddibbATshawDOTca@ wrote in message
...
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



--
Desert Piranha


------------------------------------------------------------------------
Desert Piranha's Profile:

http://www.excelforum.com/member.php...o&userid=28934
View this thread: http://www.excelforum.com/showthread...hreadid=492895





All times are GMT +1. The time now is 11:06 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com