[已解决]求单击按钮后，所有图形都清除掉的代码！

yygbl$48

求单击按钮后，所有图形都清除掉的代码！

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-1 14:45

Private Sub CommandButton1_Click()
    Dim x
    For Each x In Me.Shapes
        'Debug.Print x.Name, x.Type
        If x.Type <> 12 Then x.Delete
    Next x
End Sub

求助2.rar (38.67 KB, 下载次数: 7)

2015-8-1 14:45 上传

点击文件名下载附件

跳转到最佳答案楼层

1032446692

1. Private Sub CommandButton1_Click()
   
2.     Shapes.SelectAll
   
3.     Selection.Delete
   
4. End Sub
   

复制代码

yygbl$48

这个代码把按钮也清除了，呵呵。

yygbl$48

我要求的是保留按钮，只清除按钮外的图形。

爱疯

Private Sub CommandButton1_Click()
    Dim x
    For Each x In Me.Shapes
        'Debug.Print x.Name, x.Type
        If x.Type <> 12 Then x.Delete
    Next x
End Sub

求助2.rar (38.67 KB, 下载次数: 7)

2015-8-1 14:45 上传

点击文件名下载附件