[求助]自定义图形问题

peng_lis7

如何一次选择自定义的椭圆。我用条件对象选择，可是连其他的自定义图形(比如按钮)也选到了。怎样才能单选椭圆？谢谢！ BpxP6GNC.rar (54.92 KB, 下载次数: 29)

2008-3-31 11:55 上传

点击文件名下载附件
[求助]自定义图形问题

[此贴子已经被作者于2008-3-31 11:55:41编辑过]

peng_lis7

怎么没人解答啊，我只是想用vba写一个小程序a啊

northwolves

Sub Macro2()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.AutoShapeType = msoShapeOval Then sh.Select
Next
End Sub

冰山上的来客

一次性选择椭圆：

Sub Macro2()
Dim myShapes As Shape, i%
Dim myArr()
i = 1
ReDim myArr(1 To Sheet1.Shapes.Count)
For Each myShapes In Sheet1.Shapes
    If myShapes.Name Like "Oval*" Then
      myArr(i) = myShapes.Name
      i = i + 1
    End If
Next
    ReDim Preserve myArr(1 To i - 1)
    ActiveSheet.Shapes.Range(myArr).Select
End Sub

peng_lis7

兄弟，谢谢先了！

peng_lis7

狼头兄的出了点问题，冰山兄的正是我要的！其实我只是想插入一些符号，比如 ⑱ 。由于我水平太差，Excel里面找不到比20更大的加圈的数了，所以只有自己想办法了。

冰山上的来客

订正一下：

Sheet1.Shapes.Range(myArr).Select

peng_lis7

大哥，您真是我的偶像！这么细微的差别都想到了。正常情况下 sheet1就是activesheet啊，呵呵！

northwolves

3楼的代码只选中最后一个椭圆

northwolves

与冰山妹妹的代码殊途同归：

Sub Macro2()
Dim sh As Shape, n As Long, shs()
For Each sh In ActiveSheet.Shapes
If sh.AutoShapeType = msoShapeOval Then ReDim Preserve shs(n):  shs(n) = sh.Name: n = n + 1
Next
ActiveSheet.Shapes.Range(shs).Select
End Sub