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