Hallo,
ich bin VBA Anfänger und versuche gerade in MS Visio 2010 ein kleines Makro zu basteln um ein Shape umzubenennen. Und zwar soll bei dem aktuell selektierten Shape der sichtbare Text kopiert werden und dem Shape als Namen zugewisen werden.
Ich hab das Gefühl, das ich schon recht nah dran bin nur bekomme ich es nicht hin, dass das selektierte Shape benutzt wird.
Für jede Hilfe bin ich sehr dankbar.
Sub Shapename()
'Enable diagram services
Dim DiagramServices As Integer
DiagramServices = ActiveDocument.DiagramServicesEnabled
ActiveDocument.DiagramServicesEnabled = visServiceVersion140
Set vsoCharacters1 = Application.ActiveWindow.Page.Shapes.ItemFromID(36).Characters
vsoCharacters1.Begin = 0
vsoCharacters1.End = 100
vsoCharacters1.Copy
Dim UndoScopeID2 As Long
UndoScopeID2 = Application.BeginUndoScope("Spezialeigenschaften")
Application.ActiveWindow.Page.Shapes.ItemFromID(36).Name = vsoCharacters1
Application.EndUndoScope UndoScopeID2, True
'Restore diagram services
ActiveDocument.DiagramServicesEnabled = DiagramServices
End Sub
|