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

EXCELE VBA

Sub 張琍婷繪圖()
ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 228, 225)
ActiveSheet.Shapes.AddShape(msoShapeOval, 250, 240, 20, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveSheet.Shapes.AddShape(msoShapeOval, 325, 240, 20, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 290, 280, 20, 40).Fill.ForeColor.RGB = RGB(0, 0, 225)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 270, 340, 60, 20).Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

留言

這個網誌中的熱門文章

期貨市場理論與實務2022Q3_張琍婷

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