Установить тему офиса для PowerPoint VBA - PullRequest
Новая
       52

Установить тему офиса для PowerPoint VBA

0 голосов
/ 26 февраля 2020

В настоящее время я делаю автомат c Powerpoint из Excel, используя vba, и я хотел бы установить тему для документа, а именно, тему «Ион». У меня есть следующий код: 

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 Ответ

1 голос
/ 28 февраля 2020

pres.ApplyTheme {полный путь к файлу thmx}

Найти темы, поставляемые MS, может быть непросто. Будет проще, если вы создадите презентацию на основе темы Ion, сохраните ее как THMX в удобном месте, а затем укажите этот путь / file.thmx в приведенном выше коде.

Кстати, вы Также вы захотите использовать 

Dim shp2 As PowerPoint.Shape

вместо 

Dim shp2 As Shape

, который затемняет его как форму Excel, а не как форму PowerPoint; они могут иметь разные свойства.

...