将办公室主题设置为powerpoint
将办公室主题设置为powerpoint
提问于 2020-02-26 20:10:49
我目前正在使用vba从excel中自动制作Powerpoint，我想为文档设置一个主题，准确地说是“离子”主题。我有以下代码：
Sub CreateFullPres()
Dim ppt As PowerPoint.Application
Dim pres As PowerPoint.Presentation
Dim sld As PowerPoint.Slide
Dim shp2 As Shape
'Create Powerpoint
Set ppt = New PowerPoint.Application
Set pres = ppt.Presentations.Add
ppt.Visible = True
'Add Slide
Set Slide1 = pres.Slides.Add(1, ppLayoutTitle).Shapes.Placeholders
SlideTitle = Sheets("FIBO Monthly Update").Range("B4")
SubTitle1 = Sheets("FIBO Monthly Update").Range("B6")
SubTitle2 = Sheets("FIBO Monthly Update").Range("B7")
Slide1.Item(1).TextFrame.TextRange.Text = SlideTitle
Slide1.Item(2).TextFrame.TextRange.Text = SubTitle1 & ": " & SubTitle2代码在此之后继续进行，但这是所需的。
提前谢谢。
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-02-28 16:54:44
pres.ApplyTheme {指向thmx文件的完整路径}
找到MS提供的主题可能很棘手。如果您创建一个基于离子主题的演示文稿，并将其保存为THMX到一个方便的位置，则会更简单，然后在上面的代码中指定路径/file.thmx。
顺便说一下，你也会想要使用
Dim shp2 As PowerPoint.Shape而不是
Dim shp2 As Shape它将其简化为Excel形状而不是PowerPoint形状；它们可能具有不同的属性。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/60421808
复制相关文章
相似问题
腾讯云开发者
