0d40050e20
git-svn-id: https://svn.apache.org/repos/asf/poi/trunk@1738502 13f79535-47bb-0310-9956-ffa450edef68
13 lines
199 B
Plaintext
13 lines
199 B
Plaintext
Sub TestMacro()
|
|
'
|
|
' TestMacro Macro
|
|
' This is a test macro
|
|
'
|
|
|
|
'
|
|
With ActiveDocument.Pages(1).Shapes(1)
|
|
.Text = "This is a macro vector graphics drawing"
|
|
End With
|
|
End Sub
|
|
|