PowerPoint中用VBA实现Flash动画的快速插入.docx

《PowerPoint中用VBA实现Flash动画的快速插入.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、PowerPoint中用VBA实现Flash动画的快速插入摘要：由于利用PowerPoint提供的插入控件的方法来插入Flash动画比较复杂，本文利用VBA的强大功能，通过Win32API调用Windows内置的对话框实现了Flash动画插入操作的自动化，提高了工作效率。关键词：PowerPoint;VBA;Flash;宏中图分类号：TP311文献标识码：B文章编号：1673-8454(2008)20-0056-02一、问题的提出在PowerPoint中插入Flash动画能极大地增加课件的感染力，丰富课件的表现力。在PowerP

2、oint中插入Flash动画的一般方法是选择菜单“工具-控件工具箱-其它控件-ShockwaveFlashObject”,再用十字光标在当前幻灯片中拖出一个矩形区域，右击该对象以后选择属性，然后在地址栏位置输入Flash动画文件的文件名与扩展名，这种方法实现起来比较复杂，容易忘记操作步骤，而且还要输入英文状态下的Flash动画文件的文件名与扩展名。不太方便。我们可以借助于VisualBasicforApplication(VBA)来解决这个问题。VBA是Office套件的一部分，它提供了一个基本的编程环境和功能强大的接口，通过V

3、BA编程，可以使Flash动画插入的步骤非常简单，就像在PowerPoint中插入一张图片一样方便。二、基本思路利用VBA编程，通过Win32API调用Windows内置的对话框来实现Flash动画文件的打开，使用GetOpenFileName自动获取Flash动画文件的文件名，由于此时获取的文件名是带有路径的，利用Dir函数去掉文件的路径，编程在当前幻灯片上自动插入一个ShockwaveFlash控件，将动画文件名赋给ShockwaveFlash控件的Movie属性，从而实现了在PowerPoint中插入Flash动画。若在其

4、它电脑上实现同样的功能，可以将宏代码保存成“加载宏”的形式。只需将“加载宏”文件复制到该电脑中，就可以通过“工具”菜单下的“加载宏”来实现Flash动画的插入。所有代码与操作均在WindowsXP操作系统、Office2003办公软件中测试通过。三、输入VBA程序在PowerPoint下新建一个幻灯片文件，然后依次选择菜单“工具”-“宏”-“VisualBasic编辑器”，如图1所示，在“MicrosoftVisualBasic”窗口下再单击菜单“插入”—“模块”，在当前工程下添加一个模块，进入VBA编辑环境，将下列VBA代码复

5、制到右侧编辑窗口中。DeclareFunctionGetOpenFileNameLib"comdlg32.dll"Alias_"GetOpenFileNameA"(pOpenfilenameAsopenfilename)AsLongTypeopenfilenamelstructsizeAsLonghwndownerAsLonghinstanceAsLonglpstrfilterAsStringlpstrcustomfilterAsStringnmaxcustfilterAsLongnfilterindexAsLonglpstrf

6、ileAsStringnmaxfileAsLonglpstrfiletitleAsStringnmaxfiletitleAsLonglpstrinitialdirAsStringlpstrtitleAsStringflagsAsLongnfileoffsetAsIntegernfileextensionAsIntegerlpstrdefextAsStringlcustdataAsLonglpfnhookAsLonglptemplatenameAsStringEndTypeSubInsertFlash()DimOpenFileAs

7、openfilenameDimfnameAsStringOpenFile.lstructsize=Len(OpenFile)OpenFile.lpstrfilter="FlashFile(*.swf)

8、*.swf"OpenFile.lpstrfile=Space(254)OpenFile.nmaxfile=255OpenFile.lpstrfiletitle=Space(254)OpenFile.nmaxfiletitle=255OpenFile.lpstrinitialdir="d:"OpenFile.lpstrtitle=

9、"OpenFile"OpenFile.flags=0fname=GetOpenFileName(OpenFile)Iffname>=1Thenfname=OpenFile.lpstrfilefname=Dir(fname,vbNormal)ActiveWindo