Dificuldades com Graficos no EXCEL e VBA

Olá pessoal, desculpem se errei no lugar de postar inicialmente, foi o mais proximo que encontrei.

Eu estou com uma planilha para fazer de Audiometria Tonar e meu problema gira em torno do seguinte problema.

Quando o Valor na planilha em Ouvido Direito Osseo for >= 80 , no grafico ele deve alterar o simbolo, e permanecer no 80(e nao nos outros valores usados para Ouvido Direito Aereo que vai ate 120), porem nao consigo fixar um value para somente um ponto, a coisa mais proxima que consegui foi:

Function OsseoMaior(indice As Integer, celula As String)
Dim excChart As Excel.Chart
Dim excChartSeries As Excel.Series
Dim excPoint As Excel.Point

Set excChart = ActiveSheet.ChartObjects(GraficoOD).Chart
Set excChartSeries = excChart.SeriesCollection(2)

If CInt(Plan1.Range(celula)) > 79 Then
excChartSeries.Points(indice).MarkerStyle = xlMarkerStylePicture
excChartSeries.Points(indice).Fill.UserPicture (D:\marcadorODossea120.png)
excChartSeries.Values = ={50;20;1;1;1}

Else
excChartSeries.Points(indice).MarkerStyle = xlMarkerStylePicture
excChartSeries.Points(indice).Fill.UserPicture (D:\marcadorODossea.png)
End If
End Function

onde na linha
excChartSeries.Values = ={50;20;1;1;1}

eu atribuo todos os novos valores, mais ainda nao é isso.
Alguem poderia me ajudar por favor?