2010.08.10钟表动画效果素材及作业帖

笨巧果发表于: 2010-8-10 19:36 来源: 扑奔PPT网

用到的素材：

(2010-08-10 19:36:41, Size: 928 KB, Downloads: 520)

可能会用到的代码：（请大家开着这个网页，如果需要的话，根据老师的要求复制进PPT）

QUOTE:

Private Sub CommandButton1_Click()
Call RotateObj("Group 117", 30 * Val(Mid(String$(8 - Len(Time), "0") & Time, 1, 2)) + 0.5 * Val(Mid(String$(8 - Len(Time), "0") & Time, 4, 2)) + se / 120)
Call RotateObj("Group 120", 6 * Val(Mid(String$(8 - Len(Time), "0") & Time, 4, 2)) + 0.1 * Val(Mid(String$(8 - Len(Time), "0") & Time, 7, 2)))
Call RotateObj("Group 135", 6 * Val(Mid(String$(8 - Len(Time), "0") & Time, 7, 2)))
End Sub
Sub RotateObj(shpname As String, i As Double)
Dim oshp As Shape
Dim show As SlideShowWindow
Set show = ActivePresentation.SlideShowWindow
ActivePresentation.Slides(1).Shapes(shpname).Rotation = i
End Sub

[ 本帖最后由笨巧果于 2010-8-10 22:05 编辑 ]

大家对 2010.08.10钟表动画效果素材及作业帖的评论

东方一枝梅发表于 2010-8-10 19:40:38: 先下载素材听课去了！
老师辛苦了！

雪山精灵交作业了！

[ 本帖最后由东方一枝梅于 2010-8-10 23:23 编辑 ]

幻灯片1.JPG

幻灯片2.JPG

936 KB, 下载次数: 193)
zm1993 发表于 2010-8-10 19:55:41: 谢谢

[ 本帖最后由 zm1993 于 2010-8-10 21:52 编辑 ]

表.jpg

10.6 KB, 下载次数: 46)
ourvvv 发表于 2010-8-10 21:48:23: 老师辛苦了！

幻灯片1.JPG

9.97 KB, 下载次数: 54)
冬雪儿发表于 2010-8-10 21:52:07: 老师辛苦了

表.jpg

12.4 KB, 下载次数: 50)
小小梦想发表于 2010-8-10 21:52:20: 老师教的真好！

钟表PPT动画-笨巧果老师.jpg

9.51 KB, 下载次数: 77)
海枫01 发表于 2010-8-10 21:56:50: 老师讲得真好

[ 本帖最后由海枫01 于 2010-8-10 21:59 编辑 ]

10.2 KB, 下载次数: 47)

幻灯片1.JPG
物理老师发表于 2010-8-10 21:59:01: 2010年8月10日钟表物理老师

11.1 KB, 下载次数: 94)

演示文稿1.jpg
pywfy 发表于 2010-8-10 22:00:52: 谢谢老师啊！

33.4 KB, 下载次数: 61)
嫦娥奔月发表于 2010-8-10 22:02:21: Thank you, Mr. Ben!!

幻灯片1.JPG

938 KB, 下载次数: 84)
pywfy 发表于 2010-8-10 22:02:47: 谢谢老师啊！

演示文稿1.jpg
红红火火发表于 2010-8-12 16:38:43: 看录像做的。多谢所有的老师。

幻灯片1.JPG

11.1 KB, 下载次数: 43)
dqgfwd 发表于 2010-8-17 11:01:50: 不错不错！谢谢楼主！
jack0421 发表于 2010-8-25 10:04:02: 校对时间的效果不错，不知道几个人学会了。
略作修改，文件是下载的。效果是不同的。声音嵌入，自动调时。

----------------------------------------------------------------------------------------------------------------

[ 本帖最后由 jack0421 于 2010-8-25 11:46 编辑 ]