江宥蓉EXCEL與JavaScript迴圈pre
畫圖 畫圖 '拷貝自https://excelatfinance.com/xlf19/xlf-... 'Dr Ian O'Connor, CPA. - located in Victoria, Australia. Option Explicit Const topleft As String = "C5" ' anchor cell Const diam As Integer = 180 ' points 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 .Fill.Visible = msoFalse .Line.Weight = 10 .Line.ForeColor.Brightness = 0.4 .ThreeD.BevelTopType = msoBevelCircle End With With Cells(1, 1) 'with 固定前面的物件end with .Value = "江宥蓉" .Interior.Color = RGB(0, 0, 255) ...