[Tasos]

Καλησπέρα!

Μπορούμε να αποκρύψουμε σημεία με VBA αλλάζοντας τους την ιδιότητα "MarkerStyle".

Παράδειγμα:

Option Explicit

'Excel 2010 Developer Reference > Excel Object Model Reference > Enumerations
'XlMarkerStyle Enumeration
'******************************************************
'xlMarkerStyleAutomatic -4105 Automatic markers
'xlMarkerStyleCircle 8 Circular markers
'xlMarkerStyleDash -4115 Long bar markers
'xlMarkerStyleDiamond 2 Diamond-shaped markers
'xlMarkerStyleDot -4118 Short bar markers
'xlMarkerStyleNone -4142 No markers
'xlMarkerStylePicture -4147 Picture markers
'xlMarkerStylePlus 9 Square 'markers with a plus sign
'xlMarkerStyleSquare 1 Square markers
'xlMarkerStyleStar 5 Square markers with an asterisk
'xlMarkerStyleTriangle 3 Triangular markers
'xlMarkerStyleX -4168 Square markers with an X
'******************************************************

Sub SetPointVisibility(oPoint As Excel.Point, MarkerStyle As Long)
    oPoint.MarkerStyle = MarkerStyle
    oPoint.DataLabel.ShowSeriesName = MarkerStyle <> xlMarkerStyleNone
End Sub

Sub HidePoint()
    SetPointVisibility oPoint:=Sheet2.ChartObjects(1).Chart.SeriesCollection("CE").Points(1), _
            MarkerStyle:=xlMarkerStyleNone
End Sub

Sub ShowPoint()
    SetPointVisibility oPoint:=Sheet2.ChartObjects(1).Chart.SeriesCollection("CE").Points(1), _
            MarkerStyle:=xlMarkerStyleCircle
End Sub