加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

程阳:PPT网站的介绍,一次性删除.PPT所有动画的宏

(2008-07-24 21:52:39)
标签:

程阳

彩票

ppt

分类: 信息科技

PPT网站的介绍  

下面是一个他写的关于PPT网站的介绍,一看就是老鸟,而且现在返璞归真了,不玩这么花哨的,下面介绍的网站与软件在某些时候还是很有作用的,看情况了,比如拿去唬人,吓唬哪些对于PPT不懂的人,一看这效果,只能张开嘴发出---“哇……”。

http://119.img.pp.sohu.com/images/blog/2008/4/10/12/5/119d5391f82.jpg

   今天一位名叫Nordri的网友留了我的博文的言,一搜索,找到一家名叫Nordri的上海公司,已经开始提供专业商务幻灯演示PPT的设计开发服务。初步浏览了一下,从发布的演示材料看,起点还比较高,运营上有网站、论坛、博客,很全面,他们的团队好像在图象美工方面比较突出,但在演示方面还没看到特别。从网站的内容看,应该处于刚刚起步的阶段。发起人有5个,分别有程序开发、软件技术顾问、摄影界面、插画绘制、媒体编辑方面的背景,应该会是家比较有前景的公司。加上之前的扑班等各类模版网站,看来已经有很多人开始模仿国外的PPT专业服务了。

回顾整理一下以前常去的几个国外PPT模版设计公司网站:

http://www.presentationpro.com/
这是我最早接触,也是我认为最专业、最适于商务客户的演示设计公司,他们的模版很符合我的欣赏胃口,他们也有很多相关工具产品。网上好像找不到他们的成套模版下载,曾下载过他们的一个产品Power.Designs.for.MS.PowerPoint,还可以。
ps,几年前,当我发现这个网站的时候,国内网上还没有任何关于PPT设计服务的东西,即使是模版下载也没有。当时曾萌发过从这个方向提供专业服务创业的想法,结果却只是想法。

http://www.templatemonster.com/
美国怪兽模版公司,据说是全球最大的网站模板和flash模板供应商,提供网站模版,也包括PPT模版。曾在电驴上下载过他的2张模版光碟产品,过于逼真的3D效果,让我不敢使用他们的模版,好像不是太适合商务场合。

http://www.powerplugs.com/
水晶图片,提供很多与演示相关的周边产品。我曾下过他们的3D转场软件CrystalGraphics.Powerplugs.-.Transitions,在一次全省的知识竞赛活动中用于题目胶片的切换,效果炫酷了,所有观众惊叹不止。不过现在没有兴趣玩了,因为需要炫效果的场合并不多,比如开各种工作汇报会就肯定不能用3D转场效果的。

http://www.crystalgraphics.com/presentations/transitions/images/v3.eartha.gif

http://www.themegallery.com
韩国TG公司,提供网页和PPT模版,美轮美奂的韩国风格,由于其中的人像是东方人,在这点上比较适合中国人使用。TG公司有一个产品,叫ThemeGallery.PowerPoint.Best.Design.100.Plus.v1.0.Retail,市面上有书和光碟售,有位网友用“把微软的Powerpoint的功能榨干了”来形容它。
韩国模版当时在中国很少有人知道,他们网站上的PPT模版标价是每个24美金。可是,大约是前年,一位名叫X1000的中国牛人网友,居然破解了他们的密码,然后把他们所有的数百个模版down了下来,又打包发到了电驴!感谢!从此,韩国PPT模版在中国大行其道,TG公司估计损失比较重。我还曾将这数百个模版中的图形整理成一个样式图库文档便于使用,不过韩国模版实际用途不大,因为太精美了,你要做那个效果太累了。

http://www.animationfactory.com
动画工厂,提供各类动画相关的东西,包括PPT模版。曾下载过他们的2张光碟产品,记得还不错。

http://www.presentationhelper.co.uk/
记不得他们的特点了。

虽然在这些网站上呆过很长的时间,见过无数炫而又炫的模版,但工作中我使用的模版始终保持平淡朴素。后来对PPT模版的兴趣慢慢淡化,这些网站也就没怎么去了,今天整理一下,以后有兴趣再看看他们发展的怎么样了。

 

停止.PPT所有动画的设置程阳:PPT网站的介绍,一次性删除.PPT所有动画的宏

一次性删除.PPT所有动画的宏

 

Sub removeALL()

Dim I As Integer: Dim J As Integer

Dim oActivePres As Object

Set oActivePres = ActivePresentation

With oActivePres

For I = 1 To .Slides.Count

If Val(Application.Version) < 10 Then

For J = 1 To .Slides(I).Shapes.Count

.Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse

Next J

Else

For J = .Slides(I).TimeLine.MainSequence.Count To 1 Step -1

.Slides(I).TimeLine.MainSequence(J).Delete

Next J

End If

Next I

End With

Set oActivePres = Nothing

 

End Sub

 

 

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有