Sub VaryColors

'	Get handles to sheet, chart, and data series    
      oSheets = ThisComponent.getSheets()
      oObj_1 = oSheets.getByIndex(0)
      oCharts = oObj_1.getCharts()
     
      oObj_2 = oCharts.getByIndex(0)
      oEmbeddedObject = oObj_2.getEmbeddedObject()
     
      oFirstDiagram = oEmbeddedObject.getFirstDiagram()
      oCoordinateSystems = oFirstDiagram.getCoordinateSystems()
      oObj_3 = oCoordinateSystems(0)
     
      oChartTypes = oObj_3.getChartTypes()
      oObj_4 = oChartTypes(0)
      oDataSeries = oObj_4.getDataSeries()
     
      oObj_5 = oDataSeries(0)
     
     
'	Switch VaryColorsbyPoint flag
      oObj_5.VaryColorsbyPoint = True
      
      
       
End Sub