我目前正在使用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
代码在此之后继续进行,但这是所需的。
提前谢谢。
发布于 2020-02-28 16:54:44
pres.ApplyTheme {指向thmx文件的完整路径}
找到MS提供的主题可能很棘手。如果您创建一个基于离子主题的演示文稿,并将其保存为THMX到一个方便的位置,则会更简单,然后在上面的代码中指定路径/file.thmx。
顺便说一下,你也会想要使用
Dim shp2 As PowerPoint.Shape
而不是
Dim shp2 As Shape
它将其简化为Excel形状而不是PowerPoint形状;它们可能具有不同的属性。
https://stackoverflow.com/questions/60421808
复制相似问题