请老师帮忙看看，第二个按钮为什么不起作用？附件已上传

stockding111 · 发表于 2013-5-29 20:37

感谢wayy老师
第一个按钮可以正常画线，第二个按钮“删除画线”为什么不起作用呢？老师们，教教我该怎么修改？

ligh1298 · 发表于 2013-5-29 20:51

Sub Delxian()
For Each shp In ActiveSheet.Shapes
If shp.Type <>8 Then
shp.Delete
End If
Next
End Sub

ligh1298 · 发表于 2013-5-29 20:53

将删除画线的按钮代码，更改一下，就OK了。

stockding111 · 发表于 2013-5-30 02:12

ligh1298 发表于 2013-5-29 20:53
将删除画线的按钮代码，更改一下，就OK了。

已解决，谢谢老师！

		自动登录	找回密码
密码			注册