Microsoft VBA AddShape,網頁SVG=Scalable Vector Graph

劉任昌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, 280, 280, 40, 50).Fill.ForeColor.RGB = RGB(0, 0, 255)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 270, 340, 60, 20).Fill.ForeColor.RGB = RGB(255, 0, 0)

'使用中的試算表.圖形集合.增加圖方法(橢圓oval,左,右,寬,高).填.前景顏色.rgb
End Sub

劉任昌WORD VBA繪圖

Sub 劉任昌示範()
ActiveDocument.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0)
ActiveDocument.Shapes.AddShape(msoShapeOval, 250, 250, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveDocument.Shapes.AddShape(msoShapeOval, 320, 250, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveDocument.Shapes.AddShape(msoShapeIsoscelesTriangle, 280, 280, 40, 50).Fill.ForeColor.RGB = RGB(0, 0, 255)
ActiveDocument.Shapes.AddShape(msoShapeRectangle, 270, 340, 60, 20).Fill.ForeColor.RGB = RGB(255, 0, 0)

'使用中的試算表.圖形集合.增加圖方法(橢圓oval,左,右,寬,高).填.前景顏色.rgb
End Sub

劉任昌網頁SVG繪圖

維基百科SVG

留言

  1. 匿名2021年12月5日 晚上11:11

    https://d11017201.blogspot.com/2021/12/microsoft-vba-addshapesvg.html

    回覆刪除
  2. 匿名2021年12月5日 晚上11:15

    https://d11017229.blogspot.com/2021/12/microsoft-vba-addshape-svgscalable.html

    回覆刪除
  3. 金一乙 張穎嫻2021年12月5日 晚上11:15

    https://yinghsien2002.blogspot.com/2021/12/blog-post.html

    回覆刪除
  4. 金一乙20黃怡萱2021年12月5日 晚上11:15

    https://yixuan1118.blogspot.com/2021/12/microsoft-vba-addshopesvg.html

    回覆刪除
  5. 金四乙洪均諺2021年12月5日 晚上11:17

    https://yan911222.blogspot.com/2021/12/microsoft-vba-addshape.html

    回覆刪除
  6. 金一乙 許允睿2021年12月5日 晚上11:18

    作者已經移除這則留言。

    回覆刪除
  7. 金一乙 許允睿2021年12月5日 晚上11:18

    https://toto0403d.blogspot.com/2021/12/blog-post.html

    回覆刪除
  8. 匿名2021年12月5日 晚上11:19

    https://d11017240.blogspot.com/2021/12/blog-post.html

    回覆刪除
  9. 匿名2021年12月5日 晚上11:21

    https://www.blogger.com/blog/post/edit/2345117422994568907/7459279300912116472

    回覆刪除
  10. 金一乙 陳欣楹2021年12月5日 晚上11:23

    https://d11017247.blogspot.com/2021/12/blog-post.html

    回覆刪除
  11. Unknown2021年12月6日 上午10:00

    https://jerry20030703.blogspot.com/2021/12/excel-vba-sub-activesheet.html

    回覆刪除
  12. 余柔 D107181242021年12月10日 上午8:34

    https://www.blogger.com/blog/post/edit/preview/3402766720798119245/4077049470897568783

    回覆刪除

張貼留言

這個網誌中的熱門文章

劉任昌VBA雙迴圈Loop與JavaScript迴圈

圖片
VBA繪圖 VBA繪圖程式碼 '拷貝自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 = 100 ' points Dim Shp As Shape '全域變數global variables 每一個副程式都可以用 Sub 劉任昌() Dim TLCleft As Double '區域local variables只能用在這裡 Dim TLCtop As Double Dim i As Integer For i = 1 To 30 TLCleft = 20 * i TLCtop = 20 * i 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 Next With Cells(1, 1) '物件.字物件 屬性 方法 .Value = "劉任昌大帥哥" ...
閱讀完整內容

劉任昌,EXCEL樞紐分析,上市公司簽證會計師事務所

圖片
公開資訊觀測站 簽證會計師事務所四大 勤業眾信聯合會計師事務所 356 資誠聯合會計師事務所 214 安侯建業聯合會計師事務所 207 安永聯合會計師事務所 90 上市公司產業類別 電子零組件業 97 其他 78 半導體業 77 光電業 68 電腦及週邊設備業 60 建材營造 53 電機機械 47 紡織纖維 43 通信網路業 42 其他電子業 40 汽車工業 35 生技醫療業 34 金融保險業 34 鋼鐵工業 31 化學工業 29 航運業 23 食品工業 22 貿易百貨 22 塑膠工業 21 電子通路業 20 觀光事業 18 電器電纜 15 資訊服務業 12 橡膠工業 11 油電燃氣業 8 水泥工業 7 造紙工業 7 玻璃陶瓷 5 四大會計師事務所
閱讀完整內容