how to circle something

[bigdan]

So this is a pretty basic question but I actually don't know the answer.

I sometimes want to circle a few cells here and there. I dont really know how to do this, or at least not effectively.

I would've thought you goto shapes, then choose Oval or whatever. But that always gives a solid shape. I've just now googled around and seen we're supposed to play around with that. Which is fine if that's a one time thing. But I cant keep going to shapes, then choosing oval, then making it invisible, then changing the color to red, then making it thicker.

How do most people do this?

 

[Scott T]

I do not put many shapes on my spreadsheets but maybe a macro to insert a clear circle that you can then size and move to where you want.

Sub clearcircle()
'
' clearcircle Macro
'
'
    ActiveSheet.Shapes.AddShape(msoShapeOval, 231, 66, 74.25, 35.25).Select
    Selection.ShapeRange.Fill.Visible = msoFalse
End Sub

 

[My Aswer Is This]

Make the shape the way you want.
Next time just select the shape.
Then hold down control key and dragging the shape will make another copy of the shape.

Or select the shape:
Choose copy.
And paste shape where you want.

 

[bigdan]

Thanks man

So there's no way to add this to my selection, so that I can simply click a circle in a new workbook and this will appear?

Make the shape the way you want.
Next time just select the shape.
Then hold down control key and dragging the shape will make another copy of the shape.

Or select the shape:
Choose copy.
And paste shape where you want.

 

[My Aswer Is This]

This can be done yes. We could write a Vba script which you could then put in your Pesonal Workbook. Assign a keyboard command and the every time you wanted a circle like you want the circle would popup.
Here is a script I wrote for you.
This script will put a circle around the active cell.
Look at the script and modify the width and height if you like.

You will see Width and Height just change those values if you want.

If this works for you you can put this script in your Personal Workbook assign a Keyboard command like "r"
And every time you press Control "r" the circle will show up around the active cell.

Sub Circle_Me()
Dim Left As Long
Dim Top As Long
Dim Width As Long
Dim Height As Long
Left = ActiveCell.Left
Top = ActiveCell.Top
Width = "50"
Height = "50"
    ActiveSheet.Shapes.AddShape(msoShapeOval, Left, Top, Width, Height).Select
    Selection.ShapeRange.Fill.Visible = msoFalse
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 4.5
    End With
    
End Sub

Thanks man

So there's no way to add this to my selection, so that I can simply click a circle in a new workbook and this will appear?