2024-09-13 06:52:53 | 效率ppt
PPT幻灯片中支持插入视频及音频使幻灯片播放更形象生动,信息传递更具体。对PPT文档中已插入的视频、音频可执行读取、替换等操作。本文以C#和VB.NET程序代码介绍如何来实现文件替换。
程序环境 :引入Spire.Presentation.dll 版本:Pack hotfix 6.2.2;Framework 4.5.1
实现效果如下图,在替换原有视频、音频文件时,也替换了原有视频封面、音频形状颜色等:
【C#】
using Spire.Presentation;
using Spire.Presentation.Collections;
using Spire.Presentation.Drawing;
using System.Drawing;
using System.IO;
namespace ReplaceVideo
{
class Program
{
static void Main(string[] args)
{
//加载PPT文档
Presentation ppt = new Presentation();
ppt.LoadFromFile("test.pptx");
//获取视频、音频文件集合
VideoCollection videos = ppt.Videos;
WavAudioCollection audios = ppt.WavAudios;
//遍历所有幻灯片
foreach (ISlide slide in ppt.Slides)
{
//遍历幻灯片中的所有形状
foreach (Shape shape in slide.Shapes)
{
//替换视频文件
if (shape is IVideo)
{
IVideo video = shape as IVideo;
byte[] bts = File.ReadAllBytes("newVideo.mp4");
VideoData videoData = videos.Append(bts);
video.EmbeddedVideoData = videoData;
Image image = Image.FromFile("jds.png");//加载图片
IImageData coverImage = ppt.Images.Append(image);
video.EmbedImage = coverImage;//设置视频封面图片
}
//替换音频文件
if(shape is IAudio)
{
IAudio audio = shape as IAudio;
byte[] bts1 = File.ReadAllBytes("newAudio.mp3");
IAudioData audiodata = audios.Append(bts1); 效率ppt
audio.Data = audiodata;
audio.Fill.SolidColor.Color = Color.GreenYellow;
}
}
}
//保存文档
ppt.SaveToFile("result.pptx", FileFormat.Pptx2013);
System.Diagnostics.Process.Start("result.pptx");
}
}
}
【VB.NET】
Imports Spire.Presentation
Imports Spire.Presentation.Collections
Imports Spire.Presentation.Drawing
Imports System.Drawing
Imports System.IO
Namespace ReplaceVideo
Class Program
Private Shared Sub Main(args As String())
'加载PPT文档
Dim ppt As New Presentation()
ppt.LoadFromFile("test.pptx")
'获取视频、音频文件集合
Dim videos As VideoCollection = ppt.Videos
Dim audios As WavAudioCollection = ppt.WavAudios
'遍历所有幻灯片
For Each slide As ISlide In ppt.Slides
'遍历幻灯片中的所有形状
For Each shape As Shape In slide.Shapes
'替换视频文件
If TypeOf shape Is IVideo Then
Dim video As IVideo = TryCast(shape, IVideo)
Dim bts As Byte() = File.ReadAllBytes("newVideo.mp4")
Dim videoData As VideoData = videos.Append(bts)
video.EmbeddedVideoData = videoData
Dim image__1 As Image = Image.FromFile("jds.png")
'加载图片
Dim coverImage As IImageData = ppt.Images.Append(image__1)
'设置视频封面图片
video.EmbedImage = coverImage
End If
'替换音频文件
If TypeOf shape Is IAudio Then
Dim audio As IAudio = TryCast(shape, IAudio)
Dim bts1 As Byte() = File.ReadAllBytes("newAudio.mp3")
Dim audiodata As IAudioData = audios.Append(bts1)
audio.Data = audiodata
audio.Fill.SolidColor.Color = Color.GreenYellow
End If
Next
Next
'保存文档
ppt.SaveToFile("result.pptx", FileFormat.Pptx2013)
System.Diagnostics.Process.Start("result.pptx")
End Sub
End Class
End Namespace
注: 代码中的文件路径是在VS项目文件夹下,如本次测试环境中的路径为:C:\Users\Administrator\Documents\Visual Studio 2013\Projects\VideoAndAudio_PPT\ReplaceVideoAndAudio_PPT\bin\Debug,文件路径也可以另外自行定义。放在项目文件夹下的话,对文件管理更为方便。
效率ppt(https://www.xlppt.com)小编还为大家带来如何用vba做ppt的相关内容。
首先,新建一个PPT文档,并复制这段代码。点击“开发工具”→ Visual Basic 或查看代码
Sub一键EMF()
ActiveWindow.View.PasteSpecial (ppPasteEnhancedMetafile)
ActiveWindow.Selection.ShapeRange.Ungroup.Ungroup.Select
ActiveWindow.Selection.ShapeRange(msoAutoShape).Delete
ActiveWindow.Selection.ShapeRange.Regroup
End Sub
请点击输入图片描述
如果没有开发工具选项卡,请点击文件→选项→自定义功能区→主选项卡→勾选“开发工具”→确定。然后根据第一步继续。如果已经有开发工具选项卡,跳过此步。
请点击输入图片描述
进入VBA界面后,点击插入→模块→在新建的空白区域按Ctrl+V粘贴复制好的代码→关闭窗口,返回PPT界面。
请点击输入图片描述
请点击输入图片描述
先记得复制元素(无论是AI还是PPT都记得先复制元素)→Alt+F8打开宏→点击“一键EMF”运行。PS:图中左侧矩形组合是PPT中制作的,右侧的是经过一键处理后的。
请点击输入图片描述
请点击输入图片描述
我们也可以把宏放到快速访问工具栏中,方法是:文件→选项→“从下列位置选择命令”下面选择“宏”→将一键EMF添加到对话框右侧的快速访问工具栏里。此时宏就出现在了快速访问工具栏上。复制素材后点击此按钮,就做到了一键导入。经常从AI往PPT导素材的朋友,不妨试试。
PS:
1.建议将做好的宏处理文档单独保存为pptm格式,使用时打开导入素材,然后把处理后的素材再复制到需要的ppt里,此pptm只作为中转。
2.使用一键前,请注意先复制元素,否则VBA会报错。
3.代码在PPT2010、2013中测试无误。
请点击输入图片描述
PPT如何添加页码并设置页码的起始数字以及页码的居中PPT页码进度条等ppt中页码,有两个作用,提醒受众和自己整个演示进度,另外方便打印查看避免丢页。第一,ppt加页码的基本设置总结ppt加页码这篇文章,源于窝窝论坛一个窝友的提问,发贴咨询ppt如何加页码。PPT里面加页码,只是换了一个说法叫“幻灯片编号”。下面是ppt如何加页码的详细操作步骤:
ppt怎样设置字体动画放映ppt如何设置字体动画1,制作有动态效果的字体我们需要先插入一个文字,选择工具栏上的插入选项,然后插入文本框,输入相应的文字。2,将文字在工具栏中字体设置选项,将字号放大,然后设置比较喜欢的字体,最好是粗体,这样效果更佳。3,字体设置完成之后,点击插入,然后选择图片,找到我们之前准备好的动态图片点击插入。4,将插入的动态图片覆盖住字,然后选择图片按住ct
ppt中如何设置字体?PPT默认字体是宋体,而且默认的文本框样式大多朋友都会个性化修改,一些朋友会去修改每张PPT或逐页复制粘贴,很费时间。有3种方式可以偷懒:1.在视图-->母版中修改文本框的字体和段落样式,设置完成后,在普通视图中,所有的PPT都是按照统一的母版样式。2.在文本框中输入文字,选中文字设置为自己需要的效果,比如文字字体设置为微软雅黑,大小设置为24。选中文本框
如何设置PPT字体格式?1、首先,创建一个PPT文档,如图所示。2、双击打开PPT文档。此时,文档是空白的,在文本提示处单击创建第一张幻灯片。3、为了美观,也为了更好的解决这个问题,我们先给这个PPT在预置的里面选择一个背景,“顶部菜单选择‘设计’在选择一个”。4、通过幻灯片母版更改幻灯片的字体。“从顶部菜单中选择‘视图’-‘幻灯片主菜单’”,如下图所示。5、进入主
如何在ppt中插入vb代码,让其自动运行?1)打开ppt。2)打开“控件工具箱”,步骤:菜单视图>工具栏>控件工具箱。3)用控件工具箱画控件。4)在控件上右键,通过“属性”命令设置每一个控件的属性。5)在某一个控件上右击,选择“查看代码”,这时就出现了VisualBasic窗口。6)现在你可以像在VB里编写程序一样,来编写每一个控件的代码。在这里,
gpt生成的ppt代码怎么用gpt文件GPT生成的PPT代码的使用方法如下:假设让用户按照“ppt+换行+用户名+空格+主题”方式输入,那么就可以解析GPT生成的PPT代码。通过类似的模板让GPT给你生成PPT相关的Markdown输出。将输出内容交给转换器,这里牵扯到两个问题,选型与并发。选型尽量支持原生Markdown,不要让GPT再去限制生成Markdown里面特定的东西,所以我们选用
如何给ppt每页设置页码?给ppt每页设置页码的操作方法如下:工具:联想USER、Windows10、WPS office 2021。1、首先,打开PPT,点击“插入”,选择“幻灯片编号”。2、然后,我们在新的弹框中,勾选上“幻灯片编号”,并点击“全部应用”字样。3、最后,可以看到每页文档右下角会显示页码,如图所示。PPT的主要特缺锋搭点1、PP
ppt字体笔顺取消组合怎么设置如何在ppt设置字的笔顺1.打开PowerPoint2003,在菜单栏中执行“插入→图片→艺术字”命令,打开“艺术字库”对话框,选择第一种(空心)艺术字样式,输入欲演示笔顺的汉字,比如“化”字,选择楷体,单击“确定”按钮。2.调节字的大小,并重新复制一个字。选择其中一个字,单击右键选择设置艺术字格式,在填充颜色栏中填充你喜欢的颜色,这个字将作为演示笔顺的字的
2024-11-16 11:21:33
2024-07-26 15:15:57
2024-10-05 17:45:48
2023-07-07 23:53:49
2024-12-31 13:11:58
2024-12-24 22:11:52