求助，动画效果中插进图片后，图片怎么清除？

charmerhu · 发表于 2013-3-12 01:20

本帖最后由 charmerhu 于 2013-3-12 01:22 编辑

1111.zip (57.36 KB, 下载次数: 6)

如题，我在网上找了一个小的动画，感觉很有意思，准备自己改善一下，在插进去图片后发现，执行VBA后照片会保留在显示窗口上，我想使它在显示后自动消失，该怎么做？请各位大侠帮忙看看，小弟非常感谢~

VBA程序如下：

Sub sample1()
Dim a As Integer
Dim b As Integer
Dim c As Integer
b = -1
Do
b = b + 1
a = 1 + b * 61
Application.ScreenUpdating = False
Worksheets("Sheet4").Activate
Range(Cells(a, 1), Cells(a + 59, 60)).Select
Selection.Copy
Sheets("Sheet1").Activate
Range("a1").Select
ActiveSheet.Paste
Range("a1").Select
Application.ScreenUpdating = True
c = 1
Do
c = c + 1
ActiveCell.Offset(c - c, 0).Activate
Loop Until c = 1000
Loop Until b = 28
End Sub

charmerhu · 发表于 2013-3-12 08:30

自己帮顶

charmerhu · 发表于 2013-3-12 13:32

求大侠帮忙指点啊~~~小弟期待中

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