EXCEL VBA - 畫圓

進入EXCEL後 - 工具 / 巨集 / VBA編輯器
選取工作表名稱 / 按二下 / 輸入下列程式

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim mycircle As Shape
Set mycircle = ActiveSheet.Shapes.AddShape(msoShapeOval, ActiveCell.Left, ActiveCell.Top, 1, 1)
mycircle.Height = 200
mycircle.Width = 200
mycircle.Placement = xlMove
mycircle.Fill.Visible = msoFalse
mycircle.Fill.Transparency = 0#
mycircle.Line.Weight = 6#



End Sub



就可以任意畫圓了