首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >问答首页 >将办公室主题设置为powerpoint

将办公室主题设置为powerpoint
EN

Stack Overflow用户
提问于 2020-02-26 20:10:49
回答 1查看 177关注 0票数 0

我目前正在使用vba从excel中自动制作Powerpoint,我想为文档设置一个主题,准确地说是“离子”主题。我有以下代码:

代码语言:javascript
运行
复制
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

代码在此之后继续进行,但这是所需的。

提前谢谢。

EN

回答 1

Stack Overflow用户

回答已采纳

发布于 2020-02-28 16:54:44

pres.ApplyTheme {指向thmx文件的完整路径}

找到MS提供的主题可能很棘手。如果您创建一个基于离子主题的演示文稿,并将其保存为THMX到一个方便的位置,则会更简单,然后在上面的代码中指定路径/file.thmx。

顺便说一下,你也会想要使用

代码语言:javascript
运行
复制
Dim shp2 As PowerPoint.Shape

而不是

代码语言:javascript
运行
复制
Dim shp2 As Shape

它将其简化为Excel形状而不是PowerPoint形状;它们可能具有不同的属性。

票数 1
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/60421808

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档