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