劉任昌SVG, EXCEL and Word VBA addshape繪圖

維基百科SVG

EXCEL VBA繪圖

EXCEL VBA繪圖程式碼

Sub 劉任昌()
For i = 0 To 4
ActiveSheet.Shapes.AddShape(msoShapeOval, i * 200, 0, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0)
ActiveSheet.Shapes.AddShape(msoShapeOval, i * 200 + 50, 50, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveSheet.Shapes.AddShape(msoShapeOval, i * 200 + 120, 50, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, i * 200 + 90, 80, 20, 50).Fill.ForeColor.RGB = RGB(0, 0, 255)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, i * 200 + 70, 150, 60, 15).Fill.ForeColor.RGB = RGB(255, 0, 0)
Next
End Sub

留言

  1. https://wenyupanda.blogspot.com/2021/12/svgexcelword.html

    回覆刪除
  2. https://ccx20020920.blogspot.com/2021/12/svgexcelword.html

    回覆刪除
  3. https://d11036120.blogspot.com/2021/12/svgexcelword.html

    回覆刪除
  4. https://20020927.blogspot.com/2021/12/svgexcelword.html

    回覆刪除
  5. https://d10726160.blogspot.com/2021/12/svg-excel-and-word-vba-addshape.html

    回覆刪除
  6. https://psdcaw.blogspot.com/2021/12/svgexcelword.html

    回覆刪除
  7. D11036110:https://pennylllee.blogspot.com/2021/12/svgexcelword.html

    回覆刪除
  8. https://siangyi0927.blogspot.com/2021/12/svgexcelword.html

    回覆刪除
  9. https://nilkai.blogspot.com/2021/12/svgexcelword.html

    回覆刪除

張貼留言

這個網誌中的熱門文章

劉任昌企業ESG金融常識測驗

HTML vs 撰寫模式