求助大家：如何选择工作表中除内嵌图表以外的其他所有图形(Shapes)?

FENGJUN

下面代码无法通过，费解中。

Sub SelectNonCharts() '选中所有非图表图形

Dim Myarray() As Object i = 0 ReDim Preserve Myarray(i) Dim iObtIx As Integer, iObtCt As Integer

iObtCt = ActiveSheet.DrawingObjects.Count For iObtIx = 1 To iObtCt Set Item = ActiveSheet.DrawingObjects(iObtIx) 'MsgBox Item.Parent.Name If Not Item.Name Like "Chart*" Then i = i + 1 ReDim Preserve Myarray(i) Myarray(i) = Item End If Set Item = Nothing Next

On Error Resume Next ActiveSheet.Shapes(Myarray(i)).Select

End Sub

另外，如果想达到这个目的，还有更简单的办法吗？

tMsP52pE.rar (11.86 KB, 下载次数: 25)

2005-3-16 11:14 上传

点击文件名下载附件
求助大家：如何选择工作表中除内嵌图表以外的其他所有图形(Shapes)?

chenjun

不好办，变动的产生SELECTION集比较难，用ARRAY函数只能是事先设定的，但你选择后要做什么，就在图表的所有SHAPES中枚举，判别一个就调用一次处理的子过程。

chenjun

Sub SelectNonCharts() Dim Shp As Shape For Each Shp In ActiveSheet.Shapes If Shp.Type <> msoChart Then '转向处理的程序 End If End Sub

FENGJUN

有朋友这么办了：

Sub SelectNonCharts() '选中所有非图表图形 Dim shp As Shape For Each shp In ActiveSheet.Shapes If shp.Type <> msoChart Then shp.Select False End If Next End Sub

达到目的。

再谢斑竹！

hxhgxy

Sub Macro5() ' ' Macro5 Macro ' ºêÓÉ Tiger Chen ¼ÖÆ£¬Ê±¼ä: 2005-3-16 '

' ActiveSheet.Shapes.Range(Array("Rectangle 18", "Oval 19", "Text Box 20", _ "Rectangle 21" _ , "Text Box 22", "Rectangle 23", "Oval 24", "Text Box 25" _ , "Rectangle 26", "Text Box 27", "Rectangle 28", "Oval 29" _ , "Text Box 30", "Rectangle 31", "Text Box 32", "Rectangle 33")).Select ActiveSheet.Shapes.Range(Array("Oval 34", "Text Box 35", "Rectangle 36", _ "Text Box 37" _ , "Rectangle 38", "Oval 39", "Text Box 40", "Rectangle 41" _ , "Text Box 42")).Select False End Sub

Sub tests() ActiveSheet.Shapes.Range(Array("Rectangle 18", "Oval 19", "Text Box 20", _ "Rectangle 21" _ , "Text Box 22", "Rectangle 23", "Oval 24", "Text Box 25" _ , "Rectangle 26", "Text Box 27", "Rectangle 28", "Oval 29" _ , "Text Box 30", "Rectangle 31", "Text Box 32", "Rectangle 33", "Oval 34", "Text Box 35", "Rectangle 36", _ "Text Box 37" _ , "Rectangle 38", "Oval 39", "Text Box 40", "Rectangle 41" _ , "Text Box 42")).Select End Sub

这是我录制和修改的代码，两段代码都能正确运行，不知道为什么当图形多时，录制时需要用到Select False。实际上数组函数Array并没有这个限制。

chenjun

以下是引用FENGJUN在2005-3-16 17:04:00的发言：

有朋友这么办了：

Sub SelectNonCharts() '选中所有非图表图形 Dim shp As Shape For Each shp In ActiveSheet.Shapes If shp.Type <> msoChart Then shp.Select False End If Next End Sub

达到目的。

再谢斑竹！

谢谢提供这么好的方法，Object.Select(False)用得好！excel帮助中有这个参数，但从来就没注意到。