'以下は選択範囲を赤色の丸で囲みます。
Sub Sample33()
'選択範囲を丸で囲みます。
With Selection
With ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, .Width, .Height)
'外周の線を表示
.Line.Visible = msoTrue
'外周の線の色を赤色にする
.Line.ForeColor.RGB = RGB(255, 0, 0)
'塗りつぶしの色をなしにする
.Fill.Visible = msoFalse
End With
End With
End Sub