Powerpoint中高级编程技巧.docVIP

Powerpoint中高级编程技巧 　　摘 要：本文论述了通过编程在PowerPoint中实现特定目的演示的技巧。 　　关键词：PowerPoint，VBScript 　　中图分类号：TP317 　　在PowerPoint幻灯片的制作中，我们常常需要达到特定的演示效果。比如演示者需要显示和隐藏特定的图片或者区域，给需要强调的部分加边框或者变颜色，动态模拟一些特殊效果等等，可以通过不同的方式来实现。一般常见的方法是在PowerPoint中设置动画属性来实现，可是有时候设置动画属性满足不了一些要求。也可以通过加载控件或者在VBscript中加载窗口来实现，但是效果欠佳。最灵活但是也是最复杂的方法是直接在PowerPoint的幻灯片中加图片或者文字，通过VBA程序改变它们在PowerPoint中的属性，或应用其本身的方法来实现特定的演示效果。 　　下面我们看怎样通过第三种方法来实现图片的淡出。 　　首先，定义API 　　延时 　　Declare Sub Sleep Lib kernel32 （ByVal dwMilliseconds As Long） 　　定时器 　　Declare Function SetTimer Lib user32 （ByVal hwnd As Long， ByVal nIDEvent As Long， ByVal uElapse As Long， ByVal lpTimerFunc As Long） As Long 　　清除定时器 　　Declare Function KillTimer Lib user32 （ByVal hwnd As Long， ByVal nIDEvent As Long） As Long 　　Public TimerID As Long 　　Public LTimerCount As Long 　　Public FTMD As Single 定义通明度 　　开启定时器 　　Sub 开启定时器（） 　　FTMD = 0# 　　LTimerCount = 0 　　TimerID = SetTimer（0， 0， 200， AddressOf TimerProc） 　　End Sub 　　定时器执行 　　Sub TimerProc（ByVal hwnd As Long，ByVal uMsg As Long，ByVal idEvent As Long，ByVal dwTime As Long） 　　LTimerCount = LTimerCount + 1 　　慢慢消失 　　If （LTimerCount = 12） Then 　　TimerID = KillTimer（0， TimerID） 　　Powerpoint跳转 　　ActivePresentation.SlideShowWindow.View.GotoSlide 3 　　End If 　　End Sub 　　淡出 　　Sub 慢慢消失（） 　　If FTMD 0.99 Then 　　FTMD = FTMD + 0.1 　　End If 　　If FTMD 1 Then FTMD = 0.99 　　ActivePresentation.Slides（1）.Shapes（2）.Fill.Transparency = FTMD 　　End Sub 　　具体应用就是把开启定时器与对象的动作挂接就可以了，通过同样的方法也可以实现其他对象的淡入淡出。 　　这里有一个问题需要重视，即如何获取PowerPoint中对象的ID，笔者的做法是在对象属性的Web页中的可选文字中加入需要标记的文字，如下： 　　然后通过程序来获取该对象的ID， 　　Dim SObjectWebName As String 　　Dim i As Integer 　　Dim FindDestObject As Object 　　Set FindDestObject = ActivePresentation.Slides（3） 　　SObjectWebName = 需要标记的文字 　　For i = 1 To FindDestObject.Shapes.Count 　　If FindDestObject.Shapes（i）.AlternativeText = SObjectWebName Then 　　MsgBox i 　　Exit For 　　End If 　　Next 　　有了对象ID就可以随心所欲地通过编程应用该对象丰富的属性和方法来达到所需要的效果。 　　比如，如下程序在演示初始时隐藏我们标记的特定对象。 　　显示背景图片 　　ActivePres