Draw a cirle

[Wayne]

How do I draw a cirle in a cell when it is selected?

[RB Smissaert]

Easiest one:

In the VBE right-click the worksheet, view code, and put in:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = "O"
End Sub

RBS

"Wayne" <[email protected]> wrote in message
news:[email protected]...
> How do I draw a cirle in a cell when it is selected?

[Carlos]

Hi Wayne try

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Circle_(Target)
End Sub

Sub Circle_(oCell As Range)

l = oCell.Left
t = oCell.Top
h = oCell.Height
w = oCell.Width

Set Circlee = ActiveSheet.Shapes.AddShape(msoShapeOval, l, t, w, h)

With Circlee
.Fill.Solid
.Fill.ForeColor.RGB = RGB(0, 0, 0)

.Line.Weight = 0.5
.Line.DashStyle = msoLineSolid
.Line.Style = msoLineSingle
.Line.ForeColor.RGB = RGB(255, 255, 255)
.Line.BackColor.RGB = RGB(255, 255, 255)
End With

Set Circlee = Nothing
End Sub

more properties see Object browser

"Wayne" <[email protected]> wrote in message
news:[email protected]...
> How do I draw a cirle in a cell when it is selected?

[Wayne]

Hi Carlos
Thanks for the help but I'm having problems getting this to work.

Hoe do i set the target sell to "L7" for example?

I tried inserting...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("L7").Select
Call Circle_(Target)
End Sub




"Carlos" wrote:

> Hi Wayne try
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Call Circle_(Target)
> End Sub
>
> Sub Circle_(oCell As Range)
>
> l = oCell.Left
> t = oCell.Top
> h = oCell.Height
> w = oCell.Width
>
> Set Circlee = ActiveSheet.Shapes.AddShape(msoShapeOval, l, t, w, h)
>
> With Circlee
> .Fill.Solid
> .Fill.ForeColor.RGB = RGB(0, 0, 0)
>
> .Line.Weight = 0.5
> .Line.DashStyle = msoLineSolid
> .Line.Style = msoLineSingle
> .Line.ForeColor.RGB = RGB(255, 255, 255)
> .Line.BackColor.RGB = RGB(255, 255, 255)
> End With
>
> Set Circlee = Nothing
> End Sub
>
> more properties see Object browser
>
> "Wayne" <[email protected]> wrote in message
> news:[email protected]...
> > How do I draw a cirle in a cell when it is selected?
>
>
>

[Rowan Drummond]

Hi Wayne

The code Carlos gave you is worksheet event code so make sure that you
have pasted it in the code module associated with the sheet not a normal
module. Right click the sheet tab and select View Code to get the
correct code sheet.

Target is the range selected. The way Carlos had his code the circle
will be drawn in whichever cell is selected. If you want a circle in L7
any time the user clicks on a new cell then maybe:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Circle_(Range("L7"))
End Sub

Hope this helps
Rowan

Wayne wrote:
> Hi Carlos
> Thanks for the help but I'm having problems getting this to work.
>
> Hoe do i set the target sell to "L7" for example?
>
> I tried inserting...
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Range("L7").Select
> Call Circle_(Target)
> End Sub
>
>
>
>
> "Carlos" wrote:
>
>
>>Hi Wayne try
>>
>>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> Call Circle_(Target)
>>End Sub
>>
>>Sub Circle_(oCell As Range)
>>
>> l = oCell.Left
>> t = oCell.Top
>> h = oCell.Height
>> w = oCell.Width
>>
>> Set Circlee = ActiveSheet.Shapes.AddShape(msoShapeOval, l, t, w, h)
>>
>> With Circlee
>> .Fill.Solid
>> .Fill.ForeColor.RGB = RGB(0, 0, 0)
>>
>> .Line.Weight = 0.5
>> .Line.DashStyle = msoLineSolid
>> .Line.Style = msoLineSingle
>> .Line.ForeColor.RGB = RGB(255, 255, 255)
>> .Line.BackColor.RGB = RGB(255, 255, 255)
>> End With
>>
>> Set Circlee = Nothing
>>End Sub
>>
>>more properties see Object browser
>>
>>"Wayne" <[email protected]> wrote in message
>>news:[email protected]...
>>
>>>How do I draw a cirle in a cell when it is selected?
>>
>>
>>

[Leith Ross]

Hello Wayne,

This may help clear things up. The Worksheet_SelectionChange event is triggered when you select a cell on the worksheet. The "Target" is a range object that returns either a single cell or a group of cells that were selected.

Here are a few ways to check if the user selected a certain cell or cells...

Examples of Checking the Target:

Please Login or Register  to view this content.

Hope this answers a few questions,
Leith Ross