[已解决]图形对象的问题

雄鹰2013

表格中有三类矩形，分别是矩形，圆角矩形，剪去单角的矩形，现在要用代码删掉圆角矩形为什么下面的代码不起作用？
Sub 删除圆角矩形()
Dim i As Integer
For i = 1 To ActiveSheet.Shapes.Count
  If ActiveSheet.Shapes(i).Type = msoShapeRoundedRectangle Then _
  ActiveSheet.Shapes(i).Delete
Next i
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-2-14 16:54

1. Sub 删除圆角矩形()
   
2.     Dim shp As Shape
   
3.     For Each shp In ActiveSheet.Shapes
   
4.         If shp.AutoShapeType = msoShapeRoundedRectangle Then
   
5.             shp.Delete
   
6.         End If
   
7.     Next
   
8.     MsgBox "ok"
   
9. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

传个附件吧。

hwc2ycy

1. Sub 删除圆角矩形()
   
2.     Dim shp As Shape
   
3.     For Each shp In ActiveSheet.Shapes
   
4.         If shp.AutoShapeType = msoShapeRoundedRectangle Then
   
5.             shp.Delete
   
6.         End If
   
7.     Next
   
8.     MsgBox "ok"
   
9. End Sub

复制代码

hwc2ycy

1. Sub 删除圆角矩形()
   
2.     Dim i As Integer
   
3.     For i = ActiveSheet.Shapes.Count To 1 Step -1
   
4.         If ActiveSheet.Shapes(i).AutoShapeType = msoShapeRoundedRectangle Then _
   
5.            ActiveSheet.Shapes(i).Delete
   
6.     Next i
   
7. End Sub

复制代码

hwc2ycy

你引用的type属性是MsoShapeType枚举类型，
MsoShapeType 枚举
指定形状的类型或形状范围。
名称 值 说明
msoAutoShape 1 自选图形。
msoCallout 2 标注。
msoCanvas 20 画布。
msoChart 3 图。
msoComment 4 批注。
msoDiagram 21 图表。
msoEmbeddedOLEObject 7 嵌入的 OLE 对象。
msoFormControl 8 窗体控件。
msoFreeform 5 任意多边形。
msoGroup 6 组合。
msoIgxGraphic 24 SmartArt 图形
msoInk 22 墨迹。
msoInkComment 23 墨迹批注。
msoLine 9 线条。
msoLinkedOLEObject 10 链接 OLE 对象。
msoLinkedPicture 11 链接图片。
msoMedia 16 媒体。
msoOLEControlObject 12 OLE 控件对象。
msoPicture 13 图片。
msoPlaceholder 14 占位符。
msoScriptAnchor 18 脚本定位标记。
msoShapeTypeMixed -2 混和形状类型。
msoTable 19 表。
msoTextBox 17 文本框。
msoTextEffect 15 文本效果。

hwc2ycy

对于对象集合，推荐使用for each循环。