劉任昌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
https://d11017201.blogspot.com/2021/12/microsoft-vba-addshapesvg.html
回覆刪除https://d11017229.blogspot.com/2021/12/microsoft-vba-addshape-svgscalable.html
回覆刪除https://yinghsien2002.blogspot.com/2021/12/blog-post.html
回覆刪除https://yixuan1118.blogspot.com/2021/12/microsoft-vba-addshopesvg.html
回覆刪除https://yan911222.blogspot.com/2021/12/microsoft-vba-addshape.html
回覆刪除作者已經移除這則留言。
回覆刪除https://toto0403d.blogspot.com/2021/12/blog-post.html
回覆刪除https://d11017240.blogspot.com/2021/12/blog-post.html
回覆刪除https://www.blogger.com/blog/post/edit/2345117422994568907/7459279300912116472
回覆刪除https://d11017247.blogspot.com/2021/12/blog-post.html
回覆刪除https://jerry20030703.blogspot.com/2021/12/excel-vba-sub-activesheet.html
回覆刪除https://www.blogger.com/blog/post/edit/preview/3402766720798119245/4077049470897568783
回覆刪除