Sign in
apache
/
poi
/
66e08f08d31442e0f6d4ff79c9a6c2f74b732e66
/
.
/
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