注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Oh! I see you!

Hi! ppmm~~

 
 
 

日志

 
 

仿iPad界面的PPT——动态更新幻灯片内容  

2012-06-17 22:33:46|  分类: Office |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

本文链接:http://oicu.cc.blog.163.com/blog/static/123039471201251710334698/

iPad风格的幻灯片——动态更新幻灯片内容 - oicu - Oh! I see you!
 
 

 

视频:http://v.youku.com/v_show/id_XNDE4NzAzMTY4.html

 

又是雨天没法出去活动~无聊想到个NEW IDEA!说做就做~

Slide 1
锁屏画面,启动后,获取当前时间,滑块旁边是gif动画图片一张。

Slide 2
解锁,动作路径滑动解锁,gif动画淡出,自动切换Slide。

Slide 3
进入桌面,软件图标及下方的Dock动画进入。

Slide 4
脉冲一次某个图标,图片动画切出,显示主标题,然后再收回。

Slide 5
keynote图标旋陀螺5~6°,自动翻转,重复几次,然后从屏幕中心
放大一半透明黑色矩形【动画-缩放,或形状-缩小、方框】或者使
用【切换-形状-切出】,上方状态条由半透明变黑背景色,接着就
是显示演示内容,开始啦~


各Slide的统一用文本框显示时间,并在选择窗格里把形状命名为
time,因为插入时间选自动更新只能显示开始演示的时间,也就是
说不管你播放多久,都只显示一个值,因此各Slide都用宏动态更
新时间值。PowerPoint插入自动更新的时间的问题看本文最后。

切换Slide时运行宏参照博文:
http://oicu.cc.blog.163.com/blog/static/123039471201182011920382/

自定义时间格式参照博文:
http://oicu.cc.blog.163.com/blog/static/123039471201201254259854/

提供2种方法播放幻灯片时动态更新时间值,以下代码放模块里:

Sub OnSlideShowPageChange()
' 每一张Slide都必须有名为time的Shape
' 也可以先判断是否存在,或者用On Error处理

' 每切换一次更新全部Slide,by oicu
'   On Error Resume Next
'   循环用Resume不用GoTo
'   For i = 1 To Application.ActivePresentation.Slides.Count
'       ActivePresentation.Slides(i).Shapes.Range("time"). _
'         TextFrame.TextRange.Text = Format(Time, "hh:mm")
'   Next

' 只更新当前Slide,by oicu
    On Error GoTo Err
    Application.SlideShowWindows(1).View.Slide.Shapes. _
      Range("time").TextFrame.TextRange.Text = _
      Format(Time, "hh:mm")
Err:
End
Sub


电池表示进度,开始100%,电池耗完当然就是演示结束啦,同样,
百分比及电池图标也用宏来控制,制作的时候运行一次即可。

进度条制作参照博文:
http://oicu.cc.blog.163.com/blog/static/1230394712010611039349/

 

最后要特别强调,图片素材来自:
http://alexw.me/ipad2/
http://code.google.com/p/ipadian/

 

为什么不把时间的文本框以及进度条做到母板里?
电池进度条及百分比只需生成一次,放到母板里每次切换都执行宏,
太麻烦也浪费资源,而且容易出错,测试时发现只更新母板或者版
式的内容是不行的!可以使用以下宏测试时间有问题:

Sub OnSlideShowPageChange()
    Application.ActivePresentation.SlideMaster.Shapes. _
      Range("time").TextFrame.TextRange.Text = _
      Format(Time, "hh:mm:ss")

'   也可以用SlideLayout15.Shapes.Range……这样设置版式的内容
    Application.ActivePresentation.SlideMaster. _
      CustomLayouts.Item(2). _
      Shapes.Range("time").TextFrame. _
      TextRange.Text = Format(Time, "hh:mm:ss")
End Sub

 



视频所示的PPT文档不会公布,所用的宏代码已经在其他日志里公开。

仿iPad界面的PPT——动态更新幻灯片内容 - oicu - Oh! I see you!


PS:大家不用留邮箱了,这个PPT从来就没有公开过,之前留言的

只是拿进度条宏的示例,没有任何iPad的界面的,我也不会单独

再发邮件,都是些简单的动画,相信很多人都比我做得好。



【为什么用宏更新时间】

在我机子里,微软PowerPoint 2010/2013一直有一个Bug:

在页脚里插入日期和时间(显示秒),即使选择自动更新,
未放映时切换幻灯片时间不会更新,放映后,前后切换幻灯片,时间显示不对。

在母版(不是版式)里插入文本框,再添加日期和时间,也选择自动更新,
退出母版编辑后,未放映时切换幻灯片也能更新时间,但放映后,时间也会不对。

一直往后播放问题不大,放映后,如果按了上一张的操作,很容易发现这个问题,
但 WPS 2013 不会出现时间自动更新出错的问题。

  评论这张
 
阅读(11811)| 评论(35)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018