2009年6月25日星期四

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



就可以任意畫圓了

0 评论:

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱