Visual Basic - Graficos .. me contesto a mi misma

Estuve averifuando la generacion de graficos en excel hice vasrias preguntas aqui y nadie supo com contestarme por eso me contesto a mi misma por si alguien alguna vez necesitara saber como hacerlo
Bueno necesitaba generar un grafico de barras horizontales q llevaba calificaciones de materias y segun la nota de cada una cambiaba el color de la barra.
Que hice para solucionarlo:
1. Cree en exel tablas y graficos dinàmicos que obtenian la informacion que tenia en mi base .. ok entonces alli pude generar mis graficos mis tablas con filtros para escoger solo la informaciòn del estudiante requerido.
2. Luego cree una macro para las asignaciones de color con el sgte codigo..
Private Sub Chart_Activate()

' Worksheets(1).ChartObjects(1).Activate
If Worksheets(1).Cells(6, 4).Value = 9 Then
ActiveChart.SeriesCollection(1).Points(3).Interior.ColorIndex = 3
Else
ActiveChart.SeriesCollection(1).Points(3).Interior.ColorIndex = 5
End If
End Sub
3. Y por ultimo en mi proyecto de Visual Basic genere un vinculo hacia excel donde estaba mi proyecto agregzndo primero la referencia a excel uy luego utilizando el sgte codigo

Dim objExcel As Excel.Application

Set objExcel = New Excel.Application

With objExcel
.Workbooks.Open "mi proyecto

.Visible = True
End With
y asi pude realizar los graficos que deseaba