Netzdiagramm Legende automatisch

[Benno]

Hallo,

habe in der Arbeit eine Excel-Vorlage bekommen (im Anhang).
Nach Eintragen von ein paar Werten in die Tabelle, werden
diese im Netzdiagramm eingezeichnet und bilden zusammen
mit dem Ursprung ein Polygon (rot umrandet). Die Ecken vom Polygon sind
die eingezeichneten Punkte.


Die radial verlaufenden Achsen stehen für einzelne Eisenteile, die wir fertigen.
(Das sind die Zeilen in der zugehörigen Tabelle). Jede Spalte in der Tabelle
repräsentiert einen Fehlertyp, den ein Eisenteil bei uns haben kann.
Die Zahl in einer Zelle bedeutet also wie viele Fehler (eines bestimmten Typs)
bei dem aktuellen Eisenteil (repräsentiert durch die Zeile) auftreten.

In der Arbeit muss ich immer folgendes machen:
Rechtsklick auf das Netzdiagramm-> Daten auswählen
->Legendeneinträge Hinzufügen->
Reihenname ist der Name des Fehlers (z.B. F70)
Reihenwerte ist die Spalte des Fehlers (also zum Beispiel die Spalte von F70)

Wenn ich jetzt ins Netzdiagramm zurückkehre erscheint rechts oben am Rand
in der Legende ein neuer Eintrag.
Als Symbol wird standardmäßig ein farbiger Strich genommen.
Die Farbe ist eine in der Legende noch nicht benutzte Farbe.

Mein Problem ist, dass standardmäßig beim Erstellen von Legendensymbolen
Striche erstellt werden.
Ich möchte aber, dass stattdessen standardmäßig die Symbole, die man unter
Datenreihen formatieren->Datenreihenoptionen->Füllung und Linien->Markierung
->Markierungsoptionen->Integriert->Typ findet, erstellt werden.
Gibt es eine Möglichkeit das einzustellen? Vielen Dank für eure Hilfe :)

Viele Grüße
Benno

[Rabe]

Hui,

schau mal, wie Dein Beitrag auf meinem Bildschirm aussieht! Warum habe ich denn dann so einen breiten Bildschirm?
   

[schauan]

Hallöchen,

eventuell brauchst Du für so einen Automatismus ein Makro in der Art. Ich habe entsprechend Deiner Ausführung die F70 verbunden, ein paar Werte eingegeben und das Format geändert.

Code:

Sub Makro1()
    With ActiveChart.FullSeriesCollection(2)
        .MarkerStyle = 1
        .MarkerSize = 15
    End With
End Sub

Alternativ kann man das auch auf die gewählte "Linie" beziehen

Code:

Sub Makro1()
    With Selection
        .MarkerStyle = 1
        .MarkerSize = 15
    End With
End Sub

[Benno]

Vielen Dank für deine Antwort.
Mit den Makros hast du mich auf die richtige Spur gebracht.
Auch wenn ich im Moment für die Aufnahme recht viel klicke,
kann ich so die Aufgabe lösen. Danke dir!