- 浏览: 256616 次
文章分类
- 全部博客 (395)
- Tech (0)
- [随笔分类]心情 (95)
- [随笔分类]技术 (112)
- [随笔分类]管理心得 (13)
- [随笔分类]Code SOP (5)
- [随笔分类]望图知意 (11)
- [网站分类]1.首页原创精华.NET区(包含架构设计、设计模式)(对首页文章的要求:原创、高质量、经过认真思考并精心写作) (8)
- [随笔分类]重构代码 (1)
- [随笔分类]童童 (2)
- Program (1)
- [随笔分类]看你知道不知道 (1)
- [网站分类]4.其他技术区 (31)
- [网站分类]3.非技术区(技术之外的文章,但不要涉及任何政治内容) (21)
- [网站分类]9.求职招聘区(个人求职、企业招聘) (0)
- [随笔分类]昨日关注 (15)
- [网站分类]6.读书区(技术书籍阅读心得、书籍推荐) (3)
- [随笔分类]一步一个脚印 (2)
- [网站分类]网站管理区(网站管理方面的疑问、建议、意见, 寻求管理员帮助) (1)
- [网站分类]2..NET新手区(用于发表不合适发表在首页的.NET技术文章,包括小经验、小技巧) (3)
最新评论
几天前有个朋友(simon)来信问“如果在PPT里边插入影音文件,如何在保存文件的时候将影音文件也保存出来?”
呵呵,以前我也没处理过,通过测试,发现问题的关键是如何知道影音文件的路径,通过分析,发现其实并不是很难,主要是以前没有注意LinkFormat对象,其实在MSDN中有如下的范例:
With ActivePresentation.Slides(1).Shapes(1)
If .Type = msoLinkedOLEObject Then
With .LinkFormat
.SourceFullName = "c:\my documents\wordtest.doc"
.AutoUpdate = ppUpdateOptionAutomatic
End With
End If
End With
If .Type = msoLinkedOLEObject Then
With .LinkFormat
.SourceFullName = "c:\my documents\wordtest.doc"
.AutoUpdate = ppUpdateOptionAutomatic
End With
End If
End With
其中对SourceFullName 属性解释如下:
应用于示例特性返回或设置链接 OLE 对象的源文件的名称或路径。可读写。String 类型。
使用如下的代码测试了一下:
'<summary>
'Test过程就是在在幻灯片里边插入一个空白幻灯片
'然后在幻灯片中插入一个影片文件,然后查看Shape对象的LinkFormat对象的FullName属性就行了
'至于保存的时候如何处理,这个简单,你写一段宏就可以了
'剩下的自己发挥吧
'</summary>
Sub InsertAvi()
ActiveWindow.Selection.SlideRange.Shapes.AddMediaObject(FileName:="F:\clock.avi", Left:=239.625, Top:=149.625).Select
ActiveWindow.Selection.Unselect
End Sub
Sub ShowPath()
If Application.ActivePresentation.Slides(1).Shapes(1).MediaType = ppMediaTypeMovie Then
'关键是你理解一下LinkFormat对象
'LinkFormat.SourceFullName就是文件的保存路径
MsgBox Application.ActivePresentation.Slides(1).Shapes(1).LinkFormat.SourceFullName
End If
End Sub
'Test过程就是在在幻灯片里边插入一个空白幻灯片
'然后在幻灯片中插入一个影片文件,然后查看Shape对象的LinkFormat对象的FullName属性就行了
'至于保存的时候如何处理,这个简单,你写一段宏就可以了
'剩下的自己发挥吧
'</summary>
Sub InsertAvi()
ActiveWindow.Selection.SlideRange.Shapes.AddMediaObject(FileName:="F:\clock.avi", Left:=239.625, Top:=149.625).Select
ActiveWindow.Selection.Unselect
End Sub
Sub ShowPath()
If Application.ActivePresentation.Slides(1).Shapes(1).MediaType = ppMediaTypeMovie Then
'关键是你理解一下LinkFormat对象
'LinkFormat.SourceFullName就是文件的保存路径
MsgBox Application.ActivePresentation.Slides(1).Shapes(1).LinkFormat.SourceFullName
End If
End Sub
这些是在VBA里边测试的,通过了,我想最主要的就是这个LinkFormat.SourceFullName这句话了,其实simon的想法很好,因为如果PPT中的影音文件如果不保存的话,如果放到别的机器上,就不能正常播放了,AVI就变成了一个图片了,呵呵,所以还是有用的。
我想余下的最重要的就是Update这个方法了,如下:
For Each sld In ActivePresentation.Slides
For Each sh In sld.Shapes
If sh.Type = msoLinkedOLEObject Then
sh.LinkFormat.Update
End If
Next
Next
通过这个修改绝对路径为相对路径,应该就不是问题了。
发表评论
-
启动NDuiker项目
2005-01-20 17:05 460今天是进驻博客园的第一天,在这里安家真的很不错,十分感谢DuD ... -
NDuiker项目第2天总结
2005-01-21 08:53 654昨天晚上基本上实现了 ... -
NDuiker项目第3天
2005-01-22 22:50 587今天是周六了,原本以为是很轻松的一天,结果只有到了这个时 ... -
NDuiker项目第6天
2005-01-25 16:50 582这几天好忙,也好累呀,这几天是公司项目收尾的阶段,忙的都透不过 ... -
对.Net 类库的一点思索
2005-02-02 09:29 614这些天主要在测试GDI+的 ... -
测试一个网站的想法
2005-02-05 17:07 544由于项目的需要,测试了一下“上海研发公共服务平台” 登录:ht ... -
项目建议书编写总结
2005-02-25 15:46 775昨天完成了项目建议书的编写工作,整个春节期间的工作到今天全部完 ... -
MyIE 增加了RSS功能
2005-02-28 09:54 574今天更新了MyIE,发现MyIE增加了RSS功能,试用了一下, ... -
www.beihua.edu.cn计划摘录
2005-02-28 14:11 783www.beihua.edu.cn工作计划 1:网站后期制作计 ... -
网站调研资料记录
2005-03-01 15:56 631资料整理备忘 1:内外网IP确认 ... -
静静的看书
2005-03-08 17:18 583这几天还是很忙,但是似乎好了很多,因为目前主要是写一个基于Sm ... -
我的Smart Client 的学习笔记
2005-03-09 15:35 1696User Interface Process (UIP) Ap ... -
研发、开发、运营
2005-03-25 12:15 636这些天很忙,网络也不争气,才刚刚好一点。 ... -
当需求变更来临
2005-04-30 14:26 543昨晚已经和老婆安排好5 ... -
重新登录Window2003的域
2005-05-12 09:58 688今天公司要求重新登录Windows2003的域,记录一下,以后 ... -
当不愿意写字得时候
2005-05-16 15:36 711做项目得前期分析得时候,我还是比较喜欢在本子上写写、画画得,通 ... -
远离技术的时候
2005-06-20 11:05 434这一个月一直在忙一个项目,现在项目的可研报告也 ... -
Asp.Net 中使用客户端Activex控件需要注意的事情
2005-08-13 12:57 954案例:Asp.Net +VB制作的Activex控件 操作系统 ... -
Office开发中的测试的与众不同之处
2005-08-22 14:29 728今天修改了一下自己以 ... -
大家确实都很忙
2005-08-27 08:20 737先谈几个技术问题: 1 ...
相关推荐
在PowerPoint演示文稿中,有时我们需要为多个对象设置相同的动画效果,以便让演示更加生动有趣。以下是如何在PowerPoint中实现这一功能的详细步骤: 首先,你需要打开你的PowerPoint演示文稿。确保你已经创建或打开...
### PowerPoint2021中对齐所选对象的详细指南 #### 一、启动PowerPoint与选择幻灯片 在开始介绍如何在PowerPoint2021中对齐所选对象之前,首先需要确保您已经正确地启动了PowerPoint应用程序,并且打开了包含所需...
在PowerPoint中插入对象是制作丰富多媒体演示文稿的关键步骤,包括插入Flash影片和视频等。以下是关于在PowerPoint中插入几种对象的详细方法: **一、插入Flash影片** 1. **利用控件插入法** - 步骤1:打开...
本知识点将详细介绍如何将交互式电子白板软件中的对象,如图表、图形、手写笔记等,插入到Microsoft PowerPoint页面中,以创建更加生动且具有深度的演示文稿。 首先,我们需要理解交互式电子白板软件的工作原理。这...
学习VBA不仅需要理解基本语法,如变量声明、条件语句和循环,还需要掌握对象模型,理解Excel、Access和PowerPoint中的各个对象、属性和方法。例如,在Excel中,工作表(Worksheet)、单元格(Range)和工作簿...
以下是一些关于如何轻松选择和管理PowerPoint 2021中对象元素的重要知识点: 1. **选择窗格功能**: PowerPoint 2021引入了一个名为“选择窗格”的工具,它位于“开始”选项卡下的“编辑”组中。这个功能可以帮助...
PowerPoint的对象模型是VBA编程的基础,它包含了一系列相互关联的对象,这些对象代表了PowerPoint中的各种元素,如应用程序、演示文稿、幻灯片、形状等。每个对象都有自己的属性(定义其特征)和方法(执行操作)。...
6. 设置控件属性,右键单击 PowerPoint 工作窗口的 Shockwave Flash 对象实例,在快捷菜单中选择"属性",设置此控件的属性。 7. 在属性的各项参数中,主要设置"Movie"参数,参数值示例:pptflv.swf?file=三顾茅庐....
由于虚线、点画线和双点画线在PowerPoint中的非连续性线型在“取消组合”操作后可能会分解为多个图形对象,使得动画设置变得复杂,因此建议在AutoCAD中使用实线绘制图形。 总结: Auto CAD图形在PowerPoint中的应用...
2. 对象模型:PowerPoint2000的对象模型是其支持库的核心部分,它定义了所有可编程对象、属性和方法。例如,Slide对象代表幻灯片,Shape对象则表示幻灯片上的图形元素。通过理解这些对象及其关系,开发者可以精确地...
PowerPoint 2013支持.NET Framework开发,文档中包含了.NET组件的详细说明,包括如何使用C#或VB.NET来操纵PowerPoint对象。开发者可以利用.NET的强类型和面向对象特性,构建更高效、更安全的应用程序。 5. API接口...
20. **位置调整与对象对齐**:在编辑过程中,准确调整对象的位置和对齐方式是至关重要的,PowerPoint提供了网格线、对齐工具等辅助功能,确保设计的一致性和专业性。 ### 结论 PowerPoint作为一款强大的演示文稿...
在本例中,"Interop PowerPoint"特指.NET Framework中的一个特定接口,这个接口让开发者能够利用COM(Component Object Model)对象,即PowerPoint的应用程序对象模型,来执行各种操作,如创建幻灯片、添加文本、...
PowerPoint 中插入网页的两种方法 在 PowerPoint 中插入网页是非常有用的功能,例如在幻灯片中插入网页链接或直接显示网页内容。下面我们将介绍两种方法来实现这个功能。 方法一:使用超链接 在 PowerPoint 中...
在 Powerpoint 中,选择"视图"菜单中的"工具栏"-"控件工具箱",然后选择"其它控件",并在 Powerpoint 工作窗口中创建一个 Shockwave Flash Object 对象实例。 3. 设置控件属性 右键单击 PowerPoint 工作窗口的 ...
### VBA在Powerpoint中的应用:提升课件交互性与自动化 #### 一、VBA技术简介及其在Powerpoint中的作用 VBA(Visual Basic for Applications)是一种由Microsoft开发的编程语言,作为VB(Visual Basic)的一个子集...
这个文件包含了所有与PowerPoint交互所需的方法和对象,例如`PowerPoint.Application`、`PowerPoint.Presentation`、`PowerPoint.Slides`等,它们分别代表PowerPoint应用程序实例、演示文稿和幻灯片集合。...