用vba如果修改所有ppt母版
发布网友
发布时间：2022-04-19 11:19
我来回答
共1个回答
热心网友
时间：2022-06-07 10:18
'把下面的代码放到任意一个PPT的模块里，按提示做简单修改（变量定义中的2处），运行就可以了。
sub ChgTheme()
'模板名称，及要修改母版的PPT所在的文档
Dim strThemeName As String, strFolder As String
strThemeName = "D:\Program Files\Microsoft Office\Templates\2052\ContemporaryPhotoAlbum.potx" '母版，修改成自己的吧
strFolder = "C:\Users\lx\Desktop\PPTStudy" '要修改的PPT，修改成自己的吧
Dim pres As Presentation
Dim Fs, oFolder, f1, FColloll, s
Set Fs = CreateObject("Scripting.FileSystemObject")
Set oFolder = Fs.GetFolder(strFolder)
Set FColl = oFolder.Files
For Each f1 In FColl
If f1 Like "*.pptx" Or f1 Like "*.pptm" Then '只对pptx文档处理
If ActivePresentation.Name = f1.Name Then '将主题或设计模板应用于当前演示文稿。
ActivePresentation.ApplyTheme strThemeName
ActivePresentation.Save
ElseIf Left(f1.Name, 2) <> "~$" Then '将主题或设计模板应用于指定的演示文稿
Set pres = Presentations.Open(FileName:=f1, WithWindow:=msoFalse)
pres.ApplyTheme strThemeName
pres.Save
pres.Close
End If
End If
Next
Set pres = Nothing
Set FColl = Nothing
Set oFolder = Nothing
Set Fs = Nothing
End Sub
用vba如果修改所有ppt母版
'把下面的代码放到任意一个PPT的模块里，按提示做简单修改（变量定义中的2处），运行就可以了。sub ChgTheme()'模板名称，及要修改母版的PPT所在的文档 Dim strThemeName As String, strFolder As String strThemeName = "D:\Program Files\Microsoft Office\Templates\2052\ContemporaryPhotoAlbum.potx...
PDF可以转换为WORD吗？
1.当然可以，首先要确定自己有一个pdf文档，而且确定目的是需要将pdf文档转换为word格式，然后我们将现有文档通过迅捷pdf转换器软件打开。2.通过选择PDF转换页面功能其中的PDF文件转WORD项目拖入文件。3.接着在迅捷pdf转换器下方按自己的需要是...
请编一个在Powerpoint上运行的宏命令(VBA)代码,解决批量替换或删除多个...
复制下面宏，使用时点击宏中的“批量替换”即可：注意：使用前请把要替换的PPT文件复制到同一目录下，以便集中替换。Sub 批量替换()Dim ChangedCount As Integer Dim FileName As String, Mask As String Dim FindCount As Long Dim CurPresentation As Presentation Dim Path As String, FindString As ...
请问:在PPT文件中,如何一次性删除每页幻灯片中相同的图片或文本框?_百 ...
1、首先，我们打开有想要删除的文本框的那一张幻灯片，在文本框内点击，我们可以看到文本框周围的虚线边框线会出现，这个时候我们并没有将这个文本框选中。2.、然后，我们在文本框的虚线上点击一下，这时候文本框的虚线框变为实线框，这样我们才是真正的选中了这个文本框，如图。3、 最后，当我们选中...
急!!如何批量将ppt中有颜色的字体全加粗,求高手,试验成功再加分...
首先，先看看PPT版本是否有选取相似的功能，我知道Word2007 word2010有选取相似功能，但ppt2007没有这个功能，不知道ppt2010是否有这个功能，如果有，就非常方便了。如果没有，目前好像除了下面的VBA方法外，没有其他方法可以实现这样的木雕。现在用VBA编程的方式来实现，按Alt+F11打开VBA编辑窗口，将下面的...
ppt如何添加页码
在PowerPoint中添加页码的步骤如下：1. **打开PowerPoint**：启动PowerPoint并打开您要编辑的演示文稿。2. **进入幻灯片母版**：- 点击顶部菜单中的“视图”选项。- 选择“幻灯片母版”以进入母版视图。3. **选择母版幻灯片**：- 在左侧的幻灯片缩略图中，选择最上面的母版幻灯片（通常是第一个）...
怎样在PPT中批量删除图片,不是母版?
如果不是母版里面的照片的话，那就只有每页进行逐一删除。
ppt中文本框中的文本框怎么删除ppt文本框里的文字删不掉
1.使用vba编程删除，这是高手们的做法，一般较难操作。2.删除相同的图片和文本，换句话，让他们看不见了，是不是“删除”。原理是使用一个和底色一样颜色的矩形，将你所要删的东西遮住，即达到删除的目的。操作是：回到母版视图，到正文页，建立这样的一个矩形，颜色设为同底色一样，遮盖住图片或...
ppt母版文本框怎么删除 vba
如果这个文本框是从母版中插入的，在母版中删除该文本框后面对应的文本框就一次性删除了，在普通视图中从母版插入的文本框是不能选中的。如果文本框是在普通视图下插入的，选中哪一个文本框只能删除这一个，和其他页面的文本框没有关系。
在ppt中vba都有哪些属性,类,方法
1.Application对象 该对象代表PowerPoint应用程序，通过该对象可访问PowerPoint中的其他所有对象。(1)Active属性：返回指定窗格是否被激活。(2)ActivePresentation属性：返回Presentation对象，代表活动窗口中打开的演示文稿。(3)ActiveWindow属性：返回DocumentWindow对象，代表当前文档窗口。(4)Presentations属性：返回...
怎么更改ppt数字顺序怎么更改ppt数字顺序播放
- 修改该布局中的编号格式和顺序。- 关闭母版视图，所有应用了该布局的幻灯片都会更新编号顺序。确保在进行任何更改之前，查看整个演示文稿，以确保数字顺序的逻辑性和一致性。如果你的PPT中有大量需要更改的数字顺序，可能需要使用VBA脚本或其他自动化工具来实现批量更改。如果要更改 PPT 幻灯片中的数字顺序...
