Sub 微笑() ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200).Fill.ForeColor.RGB = RGB(255, 255, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 250, 250, 20, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) ActiveSheet.Shapes.AddShape(msoShapeOval, 350, 250, 20, 20).Fill.ForeColor.RGB = RGB(0, 0, 0) End Sub
多寫一些
回覆刪除