test-data/slideshow/SimpleMacro.vba


1
2
3
4
5
6
7
8
9
10
11
12
13
14

Sub TestMacro()
'
' TestMacro Macro
' This is a test macro
'

'
    With ActivePresentation.Slides(1).Shapes(1)
        .Title.TextFrame.TextRange.Text = "This is a macro slideshow"
    End With
    With ActivePresentation.Slides(1).Shapes(2)
        .Title.TextFrame.TextRange.Text = "subtitle"
    EndWith
End Sub