Entire Site
Free Trial
Safari Books Online is a digital library providing on-demand subscription access to thousands of learning resources.
- Create BookmarkCreate Bookmark
- Create Note or TagCreate Note or Tag
- PrintPrint
15. Zugriff auf die Visio-Objekte – Einf... > Shapes beschriften und formatieren
Beachten Sie, dass der Text eines Shapes nicht im ShapeSheet steht. Dies wirkt sich auf VBA aus – Text ist eine Eigenschaft des Shapes und kann – anders als die Formatierung – direkt über das Shape geändert werden.
Über die Eigenschaft Text können Sie ein Shape beschriften.
Sub Shape_Aus_Schablone02()
Dim stnObj As Document
Dim mastObj As Master
Dim shpObj As Shape
If SchabloneOffen("BASFLO_M.vss") = False Then
Documents.OpenEx "BASFLO_M.VSS", visOpenDocked
End If
Set stnObj = _
Documents("BASFLO_M.VSS")
Set mastObj = stnObj.Masters("Ende")
Set shpObj = ActivePage.Drop(mastObj, 2, 3.5)
shpObj.Text = "Ich bin der Terminator!"
End Sub
Listing 15.34 Ein neues Shape erhält einen Text mit der Eigenschaft Text