Scatter-Diagramm Punkt ein/ausblend
22.03.2023 22:07:16
Peter Welbers
In einem Scatter-Diagramm möchte ich einzelne Punkte (= Datenserie) ein- oder ausblenden. Statt des Excel-zeichen benutze ich ein Bild für den Punkt. Das Ausblenden funktioniert, nur das Einblenden nicht. Kann mir jemand einen Tipp geben, was ich falsch mache.
Sub MittelLöschen()
ActiveSheet.ChartObjects("Statistik").Activate
'zum Test true oder false aktivieren
MittelAnzeigen = True
'MittelAnzeigen = False
' wenn MittelAnzeigen = False werden die Daten FullSeriesCollection(xy) ausgeblendet, funktioniert
If MittelAnzeigen = False Then
ActiveChart.FullSeriesCollection(2).Select
With Selection.Format.Fill
.Visible = msoFalse
End With
Else
ActiveChart.FullSeriesCollection(2).Select
'Selection.MarkerStyle = 1 'funktioniert, Punkt wird angezeigt
Selection.MarkerStyle = -4147 'funktioniert nicht kein Punkt und kein Bild
With Selection.Format.Fill
.Visible = msoTrue
.UserPicture "D:\Eigene Dateien\Krankheit\Parkinson\Bilder\Tablette1klein.png"
End With
End If
End Sub
Dank an den möglichen Helfer.
Grüße
Peter