Sign in
apache
/
poi
/
refs/heads/trunk
/
.
/
test-data
/
diagram
/
SimpleMacro.vba
blob: 7fcf1fdb4fae8a9289e5ac5454fbae011d988480 [
file
] [
log
] [
blame
]
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