mirror of
https://github.com/apache/poi.git
synced 2026-02-27 20:40:08 +08:00
15 lines
330 B
Plaintext
15 lines
330 B
Plaintext
|
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
|