Annonyme CSL-Instanzen, alle nenen sich "Symbol" !

[koter]

...Kennt jemand einen "Trick", daß die Instanzen im Objekt-Manager automatisch den Namen aus dem Symbol-Manager übernehmen, das würde viel Zeit und Nerven sparen.
Grüße.

Hallo Condula,

Der "Trick" könnte ein Makro sein.
Ich habe mal eins gebastelt, bei mir funktioniert's,
vielleicht ja auch bei Dir.

Der Code:

Code:

Private Sub GlobalMacroStorage_SelectionChange()
    If Application.Documents.Count > 0 Then
        If ActiveDocument.SelectionRange.Count > 0 Then
            If ActiveShape.Type = cdrSymbolShape Then
                Debug.Print Trim(ActiveShape.ObjectData("Name").Value)
                If Trim(ActiveShape.ObjectData("Name").Value) = "" Then
                    ActiveShape.ObjectData("Name").Value = _
                    ActiveShape.Symbol.Definition.Name
                Else
                    ActiveShape.ObjectData("Name").Value = _
                    ActiveShape.ObjectData("Name").Value
                End If
            End If
        End If
    End If
End Sub

Das Makro muss unter GlobalMacros in ThisMacroStorage
platziert werden.

Dann muss noch unter Optionen/Arbeitsbereich/VBA der Haken bei "VBA verzögert laden" weg.

Gruß

koter