1
我想要做的几件事情到演示文稿在PowerPoint 2013:更改字体/段落间距/更改幻灯片大小VBA简报2013
- 改变字体的所有文字为“宋体”大小53,粗体
- 变化段落间距之前为0
- 改变幻灯片大小,以27.508 X19.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
什么不起作用? – 2013-03-06 11:09:55
它没有做它应该做的事情....我可以想出它 – 2013-03-06 11:17:14
你必须描述什么没有工作... – 2013-03-06 11:22:04