换肤
  • 浅蓝
  • 墨绿
  • 棕黄
  • 青色

OPE亚运会 > OPE亚运会 > OPE亚运会

PowerPoint中用VBA实现Flash动画的快速插入
时间:2018-08-10 15:21 来源:未知 作者:OPE亚运会 点击:

  PowerPoint中用VBA实现Flash动画的快速插入 (烟台经济技术开发区高级中学,山东烟台264006)摘要:由于利用PowerPoillt提供的插入控件的方法来插入FlaSh动画比较复杂,本文利用A的强大 功能。通过win32 API调用windo螂内置的对话框实现了FlaSh动画插入操作的自动化,提高了工作效率。 关键词:PowerPoint;vBA;Flash;宏 中图分类号:TP311 文献标识码:B 文章编号:1673—8454(2008)20一0056—02 一、问题的提出 在PowerP0int中插入Flash动画 能极大地增加课件的感染力.丰富课 件的表现力。在PoWerPoint中插入 n鹊h动画的一般方法是选择菜单“工 具一控件工具箱一其它控件一 Shockwave Flash Obiect”,再用十字光 标在当前幻灯片中拖出一个矩形区 域.右击该对象以后选择属性。然后在 地址栏位置输入n鹪h动画文件的文 件名与扩展名.这种方法实现起来比 较复杂,容易忘记操作步骤,而且还要 输入英文状态下的Flash动画文件的 文件名与扩展名。不太方便。我们可以 借助于Visual B鹊ic ApplicationfvBA)来解决这个问题。VBA是0mce 套件的一部分.它提供了一个基本的 编程环境和功能强大的接口.通过 VBA编程.可以使Flash动画插入的 步骤非常简单。就像在PowerPoint中 插入一张图片一样方便。 件的Movie属性.从而实现了在 PowerPoint中插入Flash动画。 若在其它电脑上实现同样的功 能.可以将宏代码保存成“加载宏”的 形式。只需将“加载宏”文件复制到该 电脑中。就可以通过“工具”菜单下的 “加载宏”来实现Fl鹊h动画的插入。 所有代码与操作均在Windows XP 操作系统、O伍ce 2003办公软件中测 试通过。 三、输入VBA程序 一在P0werPoint下新建一个幻灯片 文件.然后依次选择菜单“工具”_+ “宏”_+“Visual B鹪ic编辑器”.如图l 所示.在“Micmsoft Visual B船ic”窗口 下再单击菜单“插入”一“模块”,在当 前工程下添加一个模块,进入VBA编 辑环境,将下列VBA代码复制到右侧 编辑窗口中。 Type operdjIena啪 lstnIctsize As Long hwndowner As Long hinstance As kmg lpstmlter As String lpstrcustomfilter As String nIaxcusmlter As Long 血lterindex As kng Ipst而le As String nma娅le As L0ng lpstmletitle As String n肌Ixfiletitle As L0ng lps啊nitialdir As String lpstrtitle As String nagsAs kng nfiIeo凰et As Integer n矗lee)【tension As Integer lpstmefext As String leustdata As Long l硼nJlook As bng lptemplaten锄e As String EndType 二、基本思路 利用VBA编程.通过Win32 API Sub InsertFlash0 调用Windows内置的对话框来实现 DimopenFileAs ope而lename nash动画文件的打开,使用 Dim fn枷e As String GetopenFileName自动获取nash动 0penFileJstmctsjze=Len 画文件的文件名,由于此时获取的文 Declare Function GetOpenFileN铀e (openFile) 。件名是带有路径的,利用Dir函数去 Lib”comdl932.dllfI Ali幽一 OpenFile.1pst而lter=”FlaLshFile 掉文件的路径,编程在当前幻灯片上 ”CetOpenFileN啪eA” 自动插入一个Shockwaven勰h控件,QOpenfilename A8 ope面len啪e) As OpenFile.1pst币le=Space(254) 将动画文件名赋给Shockwavenash控 bng 0penFile.nma)【fiIe=255 56中国教育t-化/28.20(基础教青) OperIFileJps俩letitle=Spac酢54)OpenFile.nma)(nletitle=255 0penFile.1pstrinitialdir=”d:、I’ OpenFile.1p8trtitle=”Open File” OpenFile.nalgs=0 fn锄e =GetODenFileN锄e 印IpenFil9 fJ姗e>=1 Then fn锄e=OpenFile.1pst币le fn锄e=Di”(fnarne,vbNoTTT叫 ActiveWindow.Selection.Slide R锄ge.Shapes.AddOLEObjec址 kft:=200#,T叩:.200#’ Widtll:= 200#,HeigIlt:=20呲一 Cl鹊sNanle:=”ShockwaveFl勰h.Shoc kwavenash”,Link:=msoFalse).Select Set州fobject =ActiVeWindow. selection.- SlideR肋ge.Shapes (”Shockwave l).0LEFo咖at.Objectswfobject.MoVie=缸帅e 洲fobject.Playi|lg=7rme Else MsgBox”N0t found swffile,cancel w鹊pressed!” End If End Sub Sub auto.IopenO Set newmenu=CommandB砌售. ActiveMenuBar._ Commls.Add叮)e:=msoContml Popup,temporary:=m兀le) w1Ilenu.Caption=’。插入nash 文件” Sbt enu=newlIlenuCom胁nd BaL Qntml姓dd(ryp铘soControl Button) With enu .Caption=”打开nash文件” 5tyle =IsoButtonIcon And C印tion .OnActi=”Insennash” .Be百nGroup 27I’me End With End Sub 首先运行刚才的宏.单击菜单“工 具”_“宏”一“宏”.打开“宏”对线所示,选中“宏auto_open”,然 后单击“运行”按钮.在当前菜单下自 动生成自定义菜单“插入nash文 件”.单击菜单“插入nash文件’’_+ “打开兀ash文件”。打开对话框,浏一个对话框,浏览文件夹找到所需插 览文件夹找到需要插入的nash动 入的nash动画文件。最后单击“打 画文件,最后单击“打开”即可将所 开”,即可将所选择的n鸹h动画文件 选择的n船h动画文件插入到当前 插入到当前幻灯片中。 幻虹片中。 四、制作加载宏关闭VBA编辑器.单击“文件”菜 单下的“另存为”按钮.打开“另存为” 对话框。将“保存类型”设置为 “PowerPoint加载宏(+.ppa)”,然后取名 “I璐ertn鹊h”保存。 加载宏文件(宰.ppa)保存在 “C:、Docu ment8卸d Settings\xXXUpp -lication Dat棚icrosoft协ddIns”文件 夹(其中“XXX”为用户名),若需要在 其它电脑上插入Fl船h动画文件.只 需将上述加载宏文件复制到其它电 脑上与上述文件夹同名的文件夹 中.单击“工具”菜单下的“加载宏” 打开“加载宏”对话框.单击“添加” 按钮.浏览文件夹打开加载宏文件 hsertn鹊h.ppa,如图3所示,加载宏 文件会自动添加一个名为“插入 f'lash文件”的菜单栏.并在该菜单栏 下添加一个名为“打开n鹊h文件”的 菜单项。若不用加载宏时可选中加载 宏单击“卸载”即可。 在当前幻灯片下插入一个n硇h 动画文件,单击自定义菜单“插入 n鹊h文件”一“打开nash文件”。打开 五、注意事项 系统自动插入的Shockwavenash 控件的大小是同定的.可根据实际情 况拖动控件改变大小。 在幻灯片中插入n船h动画前,新 建的PowerPoint文件一定要与nash 的动画文件存放在同一个文件夹下 面.否则会因为路径问题而影响动画 的播放。 若无法加载宏.请单击“工具”一 “宏”'+“安全性”,将“安全级”设为 “低”即可。 有些杀毒软件默认情况下是不 允许调用API函数的.如网络版卡 巴斯基5.O的“配置实时扫描”中的 “宏”选项卡的“对可疑宏的处理动 作”中有一项“正在调用API函数”. 在默认状态下是“阻止宏命令执行” 的.双击此状态,选择“允许宏命令 执行”即可取消杀毒软件对“调用 API函数”的阻止。 六、结论 由于利用PowerPoint提供的插 入控件的方法来插入n嬲h动画的步 骤比较复杂,容易忘记。本文利用 VBA的强大功能,通过Win32 API调 用Windows内置的对话框实现了插 入nash动画操作的自动化,简化了 步骤.提高了工作效率,而且讲解了 将宏制作成“加载宏”的具体方法,方 便了宏代码的移植使用。 洲怕Educ棚1I哟57



上一篇:官方为绝地求生新地图征集地区名 网友提议“55open
下一篇:Gartner官方澄清并未组织评选OpenStack八大厂商

注册新账号用户登录