EXCEL, WORD AddShape,網頁SVG

SVG圖形Scalable Vector Graph&Excel學習115微笑

Excel學習114

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

Excel學習115&WORD鱷魚臉

Sub 萬宜芸微笑()
ActiveDocument.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0)
End Sub
Sub 萬宜芸()
ActiveDocument.Shapes.AddShape(msoShapeOval, 0, 0, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0)
ActiveDocument.Shapes.AddShape(msoShapeOval, 50, 50, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveDocument.Shapes.AddShape(msoShapeOval, 120, 50, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveDocument.Shapes.AddShape(msoShapeRectangle, 90, 80, 20, 50).Fill.ForeColor.RGB = RGB(0, 0, 255)
ActiveDocument.Shapes.AddShape(msoShapeRectangle, 70, 150, 60, 15).Fill.ForeColor.RGB = RGB(255, 0, 0)
'使用中的試算表.圖形集合.增加圖方法(橢圓oval,左,右,寬,高).填.前景顏色.rgb
End Sub

Excel學習115&EXCEL鱷魚臉

Sub 萬宜芸微笑()
ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0)
End Sub
Sub 萬宜芸()
ActiveSheet.Shapes.AddShape(msoShapeOval, 0, 0, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0)
ActiveSheet.Shapes.AddShape(msoShapeOval, 50, 50, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveSheet.Shapes.AddShape(msoShapeOval, 120, 50, 30, 20).Fill.ForeColor.RGB = RGB(0, 0, 0)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 90, 80, 20, 50).Fill.ForeColor.RGB = RGB(0, 0, 255)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 70, 150, 60, 15).Fill.ForeColor.RGB = RGB(255, 0, 0)
'使用中的試算表.圖形集合.增加圖方法(橢圓oval,左,右,寬,高).填.前景顏色.rgb
End Sub

劉任昌114影片

劉任昌115影片