我想对 Powerpoint 2013 中的演示文稿做几件事:
- 将字体更改为所有文本为“Times New Roman”,大小为 53,粗体
- 将段落间距更改为 0
- 将幻灯片尺寸更改为 27.508 x 19.05 厘米
这就是我所拥有的:
Sub use()
Dim oSl As Slide
Dim osh As Shape
For Each oSl In ActivePresentation.Slides
For Each osh In oSl.Shapes
If osh.HasTextFrame Then
With osh.TextFrame.TextRange
.ParagraphFormat.Alignment = ppAlignCenter
.ParagraphFormat.SpaceBefore = 0
End With
With osh.TextFrame.TextRange
With .Font
.Name = "Times New Roman"
.Italic = False
.Size = "53"
End With
End With
With ActivePresentation.PageSetup
.SlideHeight = 19.05
.SlideWidth = 27.508
End If
Next
Next ' slide
End Sub