图形位置如何使用VBA代码转向

zy3112442

我在sheet1中绘制了一个椭圆，名称为“椭圆 1”，我现在需要将“椭圆 1”复制30次或者更多，要求，每复制一个向后水平铺开，并且名称依次命名为 “椭圆 2”，“椭圆 3”，“椭圆 4”………………，代码如下：

Sub 宏2()
For a = 1 To 30
    ActiveSheet.Shapes.Range(Array("椭圆 " & a)).Select
    Selection.Copy
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 58.5
    Selection.ShapeRange.IncrementTop -11.45
    Selection.Name = "椭圆 " & a + 1
Next
End Sub

现在我遇到的问题是，我不想30个甚至更多个这样的椭圆一直呈水平分布，我要求每满10个就自动换到下一行，水平铺开，代码应该如何修改，请高人指点，谢谢！最终结果图显示如下：

zy3112442

怎么没有高手会啊？55555555555555555