ppt使用vba组合框 (ppt通过vba显示时间)

遍历全部幻灯片及每一个幻灯片的形状对象：

Dim oPres As Presentation
Set oPres = Application.ActivePresentation
Dim oSlide As Slide
Dim oShape As Shape
For Each oSlide In oPres.Slides……Next
For Each oShape In oSlide.Shapes……Next

当然，如果你只想设置其中的某一张幻灯片，或其中的第j个对象，可以把上面代码的两个循环去掉，具体指定幻灯片索引号和第j个对象即可：

 i = oPres.Slides.Count
 j = 0
'设置最后一个幻灯片或指定幻灯片的第一个对象的字体和段落格式
 Set oSlide = oPres.Slides.Item(i)
 Set oShape = oSlide.Shapes.Item(1)

如果只想获取当前幻灯片并设置其全部对象的属性和段落格式，PPT VBA并没有提供ActiveSlide对象，但通过以下对象层次及属性可以获得当前幻灯片的索引号：

Application.ActiveWindow.View.Slide.SlideNumber

获取当前幻灯片并设置其全部对象的属性和段落格式的代码：

Sub oneSlideAllShapes()
'On Error Resume Next
'对象和变量声明
Dim oPres As Presentation
Set oPres = Application.ActivePresentation
Dim oSlide As Slide
Dim oShape As Shape
Dim tr As TextRange
Dim i As Long, j As Long

Dim k As Integer '当前幻灯片索引号
k = Application.ActiveWindow.View.Slide.SlideNumber

For Each oShape In oPres.Slides(k).Shapes
If oShape.TextFrame.HasText = msoTrue Then
 Set tr = oShape.TextFrame.TextRange
 With tr.Font
 .NameAscii = "宋体"
 .NameFarEast = "宋体"
 .Size = 20
 '.Color.SchemeColor = ppBackground
 ' .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0)
 .Bold = msoFalse
 End With
 tr.ParagraphFormat.SpaceWithin = 1.1 '设置行距
 Set tr = Nothing
End If
'oShape.Fill.Background '文本框背景色用幻灯片背景填充
'oShape.TextFrame.TextRange.IndentLevel = 1

Next
'对象删除
Set oShape = Nothing
Set tr = Nothing
Set oSlide = Nothing
Set oPres = Nothing
End Sub

－End－