Arbeiten mit Symbolen

[koter]

Hallo,

ich befürchte ich habe es noch nicht richtig verstanden.

Falls es darum geht, eine zweite Symbolbiliothek in einer anderen Farbe zu erstellen,
kann man sie kopieren und per Makro umfärben:



Das Makro:

Code:

Sub SymboleFüllen()
    anz = ActiveDocument.SymbolLibrary.Symbols.Count
    For i = 1 To anz
        With ActiveDocument
            .SymbolLibrary.Symbols(i).EnterEditMode
            .SelectableShapes.All.ApplyUniformFill CreateCMYKColor(0, 100, 100, 0)
            .SymbolLibrary.Symbols(i).LeaveEditMode
        End With
    Next i
End Sub

Gruß

Koter