Guten Tag,
ich habe Liniendiagramm mit 87 Linien. Eigentlich brauche ich davon nur die Punkte ohne die Linien. Diese werden aber in einem Punktediagramm falsch dargestellt da ein Punktediagramm für meinen Wunsch auch nicht geeignet ist.
Nun möchte ich gerne alle Linien gleichzeitig formatieren können und nicht jede einzeln. Geht das irgendwie? (Beim Formatieren würde ich die Linienfarbe auf „keine Linien“ stellen)
Danke für jede Antwort
Hallo,
ich habe zwar nur mäßige Erfahrungen im Umgang mit Diagrammen über VBA, aber versuche mal folgenden Code:
Sub TestDia()
For a = 1 To ActiveChart.SeriesCollection.Count
ActiveChart.SeriesCollection(a).Select
With Selection.Border
.LineStyle = xlNone
End With
Next
End Sub
Hallo Dave,
manuell geht es meines Wissens nicht.
Probiere mal das folgende Makro.
Gruß
Franz
Sub LinienDiagramm\_nur\_Punkte()
'Erstellt unter Excel 2007
' LinienDiagramm\_nur\_Punkte
Dim objChart As Chart, Reihe As Series
If ActiveSheet.Type = xlWorksheet Then
Set objChart = ActiveSheet.ChartObjects(1).Chart 'Eingebettes Diagramm
Else
Set objChart = ActiveSheet 'Diagramm auf separatem Blatt
End If
For Each Reihe In objChart.SeriesCollection
Reihe.Format.Line.Visible = msoFalse
Next
End Sub