SVG網頁scalable vector graph, EXCEL addshapre, Word addshape

Excel練習

Sub 微笑()
   ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0)
   ActiveSheet.Shapes.AddShape(msoShapeOval, 240, 250, 40, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
   ActiveSheet.Shapes.AddShape(msoShapeOval, 320, 250, 40, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
   ActiveSheet.Shapes.AddShape(msoShapeOval, 332.5, 250, 15, 20).Fill.ForeColor.RGB = RGB(255, 255, 255)
   ActiveSheet.Shapes.AddShape(msoShapeOval, 252.5, 250, 15, 20).Fill.ForeColor.RGB = RGB(255, 255, 255)
   ActiveSheet.Shapes.AddShape(msoShapeRectangle, 290, 270, 20, 40).Fill.ForeColor.RGB = RGB(255, 0, 0)
   ActiveSheet.Shapes.AddShape(msoShapeOval, 250, 325, 100, 40).Fill.ForeColor.RGB = RGB(255, 100, 50)
   ActiveSheet.Shapes.AddShape(msoShapeOval, 225, 200, 150, 30).Fill.ForeColor.RGB = RGB(100, 200, 225)
   '使用中式算....msoShapeOval,左,上,寬,高)
  
   End Sub

留言

這個網誌中的熱門文章

程式交易054美國2010年5月6日閃崩

陳佑愷2023Q2期貨分析人員測驗「期貨、選擇權與其他衍生性商品」

陳佑愷程式交易、演算法交易的風險管理