田庭聿-程式設計

EXCEL VBA 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) ActiveSheet.Shapes.AddShape(msoShapeOval, 332.5, 250, 15, 20).Fill.ForeColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes.AddShape(msoShapeOval, 252.5, 250, 15, 20).Fill.ForeColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes.AddShape(msoShapeRectangle, 290, 270, 20, 40).Fill.ForeColor.RGB = RGB(255, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 250, 325, 100, 40).Fill.ForeColor.RGB = RGB(255, 100, 50) ActiveSheet.Shapes.AddShape(msoShapeOval, 225, 200, 150, 30).Fill.ForeColor.RGB = RGB(100, 200, 225) '使用中式算....msoShapeOval,左,上,寬,高) End Sub