microsoft VBA addshape

EXCEL VBA繪圖

Sub 陳穎鋒()
ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0)
ActiveSheet.Shapes.AddShape(msoShapeOval, 250, 250, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveSheet.Shapes.AddShape(msoShapeOval, 320, 250, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, 290, 290, 20, 40).Fill.ForeColor.RGB = RGB(0, 0, 255)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 270, 340, 60, 20).Fill.ForeColor.RGB = RGB(255, 0, 255)
'使用中的試算表.圖形集合.增加圖方法(橢圓oval,左,右,寬,高).填.前景顏色.rgb
End Sub

WORD VBA繪圖

網頁 SVG繪圖

維基百科 SVG

留言

這個網誌中的熱門文章

陳穎鋒word合併列印

陳穎鋒python輸入import數學math函式庫define定義function函數

陳穎鋒微軟vscode編輯python圖形視窗介面GUI