陳佑愷EXCEL基本功能,VBA巨集程式設計
畫圖畫面 畫圖VBA程式碼 Option Explicit Const topleft As String = "C5" ' anchor cell' Const diam As Integer = 180 ' points'定義diameter '劉任昌提示參考https://excelatfinance.com/xlf19/xlf-... ' =========================== Sub xlfAddCircle1() Dim Shp As Shape Dim TLCleft As Double Dim TLCtop As Double TLCleft = Range(topleft).Left TLCtop = Range(topleft).Top Set Shp = ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _ Left:=TLCleft, Top:=TLCtop, _ Width:=diam, Height:=diam) With Shp ...