EXCEL 做动画的效果 超级玛丽

dongdonggege

我是03版的没问题，03以上版的，没测试，有时间的话，我测试下。

weiyingde

dongdonggege 发表于 2020-4-27 15:15
这是我做的powerpoint版超级玛丽，好像音乐不能嵌入打包走。

不错，这个创意不错。

sh0whigh

lbl520240 发表于 2019-10-19 22:03
W10  64位用不了， 2010版本

加个PTRSAFE

xiayouhe

dongdonggege 发表于 2020-4-27 15:15
这是我做的powerpoint版超级玛丽，好像音乐不能嵌入打包走。

下载了。没事看看。

hhwtt

正考虑怎么让excel动起来，发现这个，非常棒

gwjkkkkk

不错，学习一下。。。

ning84

必须好好学学

1. Option Explicit
   
2. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliSeconds As Long)
   
3. Sub asd()
   
4.     Application.ScreenUpdating = True
   
5.     Dim yan
   
6.     Dim arr
   
7.     arr = Sheet2.Range("C1:D8")
   
8.     Dim i, j, jj, jjj, jjjj
   
9.     yan = 3
   
10.     j = 1
    
11.     With Sheet1
    
12.         .Shapes("砖1").Visible = msoCTrue
    
13.         For j = 1 To 6
    
14.             With .Shapes("图片" & j)
    
15.                 .Visible = msoFalse
    
16.                 .Top = Range("F10").Top + 10
    
17.                 .Left = 0
    
18.                 .Width = 62
    
19.             End With
    
20.         Next
    
21.         .Shapes("乌鸦1").Height = 35
    
22.         .Shapes("乌鸦1").Left = Range("J13").Left + 20
    
23.         .Shapes("乌鸦1").Top = Range("J12").Top + 7
    
24.         .Shapes("乌鸦1").Visible = msoCTrue
    
25.         With .Shapes("蘑菇1")
    
26.             .Visible = msoFalse
    
27.             .Top = Range("F3").Top + 20
    
28.             .Left = Range("F3").Left + 35
    
29.         End With
    
30.         For i = 1 To 9
    
31.             If i = 9 Then
    
32.                 i = 1
    
33.             End If
    
34.             DoEvents: Sleep yan
    
35.             .Shapes("图片" & arr(i, 2)).IncrementLeft 2
    
36.             DoEvents: Sleep yan
    
37.             .Shapes("图片" & arr(i, 2)).Visible = msoFalse
    
38.             With .Shapes("图片" & arr(i, 1))
    
39.                 .Left = Sheet1.Shapes("图片" & arr(i, 2)).Left + 2
    
40.                 .Visible = msoCTrue
    
41.                 DoEvents: Sleep yan
    
42.                 .IncrementLeft 2
    
43.                 DoEvents: Sleep yan
    
44.                 .IncrementLeft 2
    
45.             End With
    
46.             j = j + 1
    
47.             If j = 40 Then
    
48. 
    
49.                 Call tiao
    
50.                 Exit Sub
    
51.             End If
    
52.         Next
    
53.     End With
    
54. End Sub
    
55. 
    
56. Sub 图片展开()
    
57.     Dim i, j, jj, jjj
    
58.     With Sheet1
    
59.         For j = 1 To 6
    
60.             .Shapes("图片" & j).Top = Range("F10").Top + 10
    
61.             .Shapes("图片" & j).Left = j * 60
    
62.             .Shapes("图片" & j).Visible = msoCTrue
    
63.         Next
    
64.         End With
    
65. End Sub
    
66. 
    
67. Sub tiao()
    
68.     Dim j, i
    
69.     Dim yan
    
70.     yan = 3
    
71.     With Sheet1
    
72.         For j = 1 To 5
    
73.             With .Shapes("图片" & j)
    
74.                 .Visible = msoFalse
    
75.             End With
    
76.         Next
    
77.         .Shapes("图片6").Left = Range("F13").Left + 18
    
78.         .Shapes("图片6").Top = Range("F9").Top
    
79.         .Shapes("图片6").Visible = msoCTrue
    
80.         For i = 1 To 50
    
81.             .Shapes("图片6").IncrementTop -1
    
82.             DoEvents: Sleep yan
    
83.         Next
    
84.         .Shapes("砖1").Visible = msoFalse
    
85.         With .Shapes("蘑菇1")
    
86.             .Visible = msoCTrue
    
87.             For i = 1 To 50
    
88.                 .IncrementTop -0.5
    
89.                 Sheet1.Shapes("图片6").IncrementTop 1.5
    
90.                 DoEvents: Sleep yan
    
91.             Next
    
92.         End With
    
93. 
    
94.     End With
    
95.     Call chimogu
    
96.     Exit Sub
    
97. End Sub
    
98. 
    
99. 
    
100. 
     
101. 
     
102. Sub chimogu()
     
103.     Dim j, i
     
104.     Dim yan
     
105.     yan = 3
     
106.     j = 1
     
107.     Dim arr
     
108.     arr = Sheet2.Range("C1:D8")
     
109.     With Sheet1
     
110. 
     
111.         .Shapes("图片6").Visible = msoFalse
     
112.         .Shapes("图片2").Left = .Shapes("图片6").Left
     
113.         .Shapes("图片2").Visible = msoCTrue
     
114.         For i = 1 To 9
     
115. 
     
116.             If i = 9 Then
     
117.                 i = 1
     
118.             End If
     
119.             If j < 30 Then
     
120.                 DoEvents: Sleep yan
     
121.                 .Shapes("图片" & arr(i, 2)).IncrementLeft 1
     
122.                 DoEvents: Sleep yan
     
123.                 .Shapes("图片" & arr(i, 2)).Visible = msoFalse
     
124.                 With .Shapes("图片" & arr(i, 1))
     
125.                     .Left = Sheet1.Shapes("图片" & arr(i, 2)).Left + 2
     
126.                     .Visible = msoCTrue
     
127.                     DoEvents: Sleep yan
     
128.                     .IncrementLeft 0.8
     
129.                     DoEvents: Sleep yan
     
130.                     .IncrementLeft 0.8
     
131.                 End With
     
132.                 .Shapes("蘑菇1").IncrementLeft 2
     
133.                 j = j + 1
     
134.             ElseIf j >= 30 And j < 55 Then
     
135.                 .Shapes("图片4").IncrementTop -2.5
     
136.                 DoEvents: Sleep yan
     
137.                 If .Shapes("蘑菇1").Left < Range("H1").Left + 18 Then
     
138.                     .Shapes("蘑菇1").IncrementLeft 2.5
     
139.                 Else
     
140.                     .Shapes("蘑菇1").IncrementTop 2.5
     
141.                 End If
     
142.                 DoEvents: Sleep yan
     
143.                 j = j + 1
     
144.             ElseIf j >= 55 And j < 57 Then
     
145.                 .Shapes("蘑菇1").Visible = msoFalse
     
146.                 .Shapes("图片4").Width = .Shapes("图片4").Width * 1.1
     
147.                 .Shapes("图片1").Width = .Shapes("图片4").Width * 1.1
     
148.                 .Shapes("图片2").Width = .Shapes("图片4").Width * 1.1
     
149.                 .Shapes("图片3").Width = .Shapes("图片4").Width * 1.1
     
150.                 .Shapes("图片5").Width = .Shapes("图片4").Width * 1.1
     
151.                 DoEvents: Sleep 60
     
152.                 .Shapes("图片4").Width = .Shapes("图片4").Width * 1.1
     
153.                 .Shapes("图片1").Width = .Shapes("图片4").Width * 1.1
     
154.                 .Shapes("图片2").Width = .Shapes("图片4").Width * 1.1
     
155.                 .Shapes("图片3").Width = .Shapes("图片4").Width * 1.1
     
156.                 .Shapes("图片5").Width = .Shapes("图片4").Width * 1.1
     
157.                 DoEvents: Sleep 60
     
158.                 .Shapes("图片4").IncrementTop 2
     
159.                 DoEvents: Sleep yan
     
160.                 .Shapes("图片4").IncrementTop 2
     
161.                 DoEvents: Sleep yan
     
162.                 .Shapes("图片4").IncrementTop 2
     
163.                 DoEvents: Sleep yan
     
164.                 .Shapes("图片4").IncrementTop 2
     
165.                 DoEvents: Sleep yan
     
166.                 j = j + 1
     
167.             ElseIf j >= 57 And j < 70 Then
     
168.                 .Shapes("图片4").IncrementTop 2
     
169.                 DoEvents: Sleep yan
     
170.                 j = j + 1
     
171.             ElseIf j >= 70 And j < 103 Then
     
172.                 .Shapes("图片4").IncrementTop -2
     
173.                 DoEvents: Sleep yan
     
174.                 .Shapes("乌鸦1").IncrementLeft -1.8
     
175.                 DoEvents: Sleep yan
     
176.                 j = j + 1
     
177.             ElseIf j >= 103 And j < 118 Then
     
178.                 .Shapes("图片4").IncrementTop 2
     
179.                 DoEvents: Sleep yan
     
180.                 .Shapes("乌鸦1").IncrementLeft -1.8
     
181.                 DoEvents: Sleep yan
     
182.                 j = j + 1
     
183.             ElseIf j >= 118 Then
     
184.                 .Shapes("图片4").IncrementTop 3
     
185.                 DoEvents: Sleep 20
     
186.                 .Shapes("乌鸦1").IncrementTop 3
     
187.                 .Shapes("乌鸦1").Height = .Shapes("乌鸦1").Height - 4
     
188.                 DoEvents: Sleep 20
     
189.                 .Shapes("图片4").IncrementTop 3
     
190.                 DoEvents: Sleep 20
     
191.                 .Shapes("乌鸦1").IncrementTop 3
     
192.                 .Shapes("乌鸦1").Height = .Shapes("乌鸦1").Height - 4
     
193.                 DoEvents: Sleep 20
     
194.                 .Shapes("图片4").IncrementTop 3
     
195.                 DoEvents: Sleep 20
     
196.                 .Shapes("乌鸦1").IncrementTop 3
     
197.                 .Shapes("乌鸦1").Height = .Shapes("乌鸦1").Height - 4
     
198.                 DoEvents: Sleep 20
     
199.                 .Shapes("图片4").IncrementTop 3
     
200.                 DoEvents: Sleep 20
     
201.                 .Shapes("乌鸦1").IncrementTop 3
     
202.                 .Shapes("乌鸦1").Height = .Shapes("乌鸦1").Height - 4
     
203.                 DoEvents: Sleep 20
     
204.                 .Shapes("图片4").IncrementTop 3
     
205.                 DoEvents: Sleep 20
     
206.                 .Shapes("乌鸦1").Visible = msoFalse
     
207.                 .Shapes("图片4").IncrementTop 3
     
208.                 DoEvents: Sleep 3
     
209.                 .Shapes("图片4").IncrementTop 3
     
210.                 DoEvents: Sleep 3
     
211.                 .Shapes("图片4").IncrementTop 3
     
212.                 DoEvents: Sleep 3
     
213.                 .Shapes("图片4").IncrementTop 3
     
214.                 DoEvents: Sleep 3
     
215.                 .Shapes("图片3").Top = .Shapes("图片4").Top - 2
     
216.                 .Shapes("图片3").Left = .Shapes("图片4").Left
     
217.                 .Shapes("图片4").Visible = msoFalse
     
218.                 .Shapes("图片3").Visible = msoCTrue
     
219.                 Exit Sub
     
220.             End If
     
221.         Next
     
222.     End With
     
223. 
     
224. End Sub
     
225. 
     
226. 
     

复制代码