文章图片

       《将图片展示进行到底》系列作品通过VBA实现各种图片展示效果,其中不乏网页中常见的绚酷效果。相对FLASH、JS,有些效果PPT更容易实现。如本例,仅用了4行代码便实现了网页上百行代码的功能。

       本例2003版小图采用形状填充图片的方法,一方面方便图片更换;另一方面可以保持图片质量。

2003版:http://dl.dbank.com/c09ixtx2ze

2010版:http://www.rapidbbs.cn/forum.php?mod=viewthread&tid=50960

文章图片

《将图片展示进行到底》修正版

        博主早期PPT作品《将图片展示进行到底》在2010下运行存盘后图片的分辨率会变成缩小时的分辨率,再次运行图片变得模糊不清,鼠标也总是处于忙的状态。这是2010存在的问题。

       重写了一下代码,用非常规的办法做了纠正,但还是不如2003流畅。

       效   果:

源代码:http://www.aippt.cn/thread-11057-1-1.html

文章图片

.

PPT系列游戏之《点灯游戏》

       点灯游戏是一个十分有趣的智力游戏,规则简单但难度较大。游戏中有N行M列个灯,开始时灯全部是灭的状态。当点击其中一盏灯时,该灯和上下左右(若存在的话)的状态全部改变,灭的灯变亮;亮的灯则变灭。要求玩家以最少的时间和步数点亮所有的灯。

       实例描述

       用PPT通过VBA编程设计的此款游戏算法简单、代码易懂,用户界更能随心所欲、自由布局。

        制作关键

        1.鼠标单击事件      

        2.设置状态标记        

        最终效果

      制作过程

       Step 1 新建一个PPT文档,在“设计”选项卡中选定主题及主题颜色存盘。

       Step 2 插入游戏所需对象:

               ①按组合键Alt+F8,运行addShapes,添加10×10个方块用于表示100个灯。

               ②一个用于显示操作步数的文本框,并在选择窗格中重新命名为score;

             

       看锐普新标志PPT动画比赛作品,给人的感觉是锐普宣传片比赛。以本人的理解,应该只是单纯的LOGO动画,如片头一样。但所有参赛作品里没有一个只针对LOGO做的动画。为此,我做了一个纯锐普LOGO的小动画。动画无难度、无寓意、无创新。说它是“三无”产品,管你信不信,反正我信。

源文件:http://www.rapidbbs.cn/forum.php?mod=viewthread&tid=38907

.

 VBA编程

                        人物奔跑——用VBA轻松实现动画的循环播放

       效果图:

       实例说明:

       素材取自一个Flash作品,用意是想说明PPT制作的一些动画同样可以达到Flash动画的效果。该实例的重点在VBA动画循环的实现方法,所以VBA以外常规动画的制作老猫没下功夫,比较粗糙。请朋友们给予改进。

       制作方法:

       1.准备好素材,新建幻灯片(第1张幻灯片)。

       2.按ALT+F11组合键,打开VBA编辑器,插入|模块,在模块1中写入代码(代码及详细注释参见源程序)。

       3.按ALT+F8,运行AddEff()。此时完成自定义动画,动画脱离代码,如果不想保留代码可以删除,将文件存为pptx格式。

     关键代码注释:

       1. 动画长度(速度)

           .Duration = 0.1    

      2.设置循环重复动画持续的时间:

     &nbs

        PPT用常规技法实现动画循环一直被认为是个难题。很多人都在摸索解决的办法。

       其实,对VBA来说,基本动画的循环并不是问题。几句代码重新定义一下动画的属性便可实现;且定义后的动画脱离代码运行。

       经典Flash作品《Ninjai》对动画爱好者来说一定不会陌生,博主就非常喜欢。博主将其中一集的片头移植成PPT版,用以演示PPT逐帧动画的循环效果。片中多个动画的交织循环,如载入动画的百分比、人物的奔跑、大雁的飞翔等。

        给出这个实例并非想比较常规技法与VBA技法的优劣,而是想说明PPT有着丰富的内涵,很多精彩内容有待PPT爱好者去认识和挖掘。对传统技法的挖掘大家给予了很高的关注度,而对VBA技法的开发却少有人问津。PPT很精彩,辅以VBA的PPT更精彩。希望有更多的人加入VBA开发的行列。

             效果图:

    

造型与动画——文本演绎的简约与华丽 

        PPT的魅惑力不在技术,而在想象力。它的无所不能度与使用者的想象力成正比。一个小创意演绎的无穷变幻正是它最迷人的地方。“不怕做不到,就怕想不到”用来描述PPT再合适不过。

    在传统思维模式里,文本往往只限说明性的文字信息。那些秉承“用图说话”理念的PPT人更视文本为大忌。这些都使得对文本的解读陷入误区。

        其实PPT里所有的元素都有其丰富的内涵,文本也不例外。只是它不太被关注。

       用两句歌词作为文本的自述:

       “我们之间的一米,是距离还是问题。我用华丽转身 对抗你对分手的认真。”。

                                                                                        &nbs

VBA编程

自选图形的艺术组合——圆形

        PowerPoint借助VBA绘图件轻松愉快的事。当你用几行简单代码绘出超酷图形在你玩其它高级语言的哥们儿面前炫耀时,他们定会对你刮目相看。

相对其它高级语言,VBA的绘图优势在于它不需要大量的绘图函数,你要做只是对PPT的各种图形对象进行摆放。简单的,手工完成;繁琐的,交给VBA完成。

        实例:圆环的艺术组合 

       最终效果图:

         实例描述:

         将一半径为R的圆周等分成 n 份,再以每个等分点为圆心以R为半径画n个圆。

         实例分析:

         计算等分点其实就是根据圆的参数方程求出等分点的坐标,即: 

         X=RCos(θ)

         Y=RSin(θ)

        该参数方程经常用于绘图及动画轨迹的计算。例如地球、月球的公转等。    

        操作步骤:

       1.