API/Samples/StarBasic/Impress/Insert a Chart

Snippet:	InsertChart.BAS
Description:	Create a new Chart object on a slide of a presentation.
Programming Language:	StarBasic
Author:	Björn Milcke, 2007
License:	Public Domain

[starbasic] Sub Main

   Set oPage = ThisComponent.getDrawPages().getByIndex(0)
   Set oOLEShape = ThisComponent.createInstance( "com.sun.star.drawing.OLE2Shape" )

   ' important: first add the shape
   oPage.add( oOLEShape )

   ' make the OLE object a chart
   oOLEShape.CLSID = "12dcae26-281f-416f-a234-c3086127382e"

   Set oChartModel = oOLEShape.Model
   If Not IsNull( oChartModel ) Then
       oChartModel.HasMainTitle = True
       oChartModel.Title.String = "Created via UNO API"
   EndIf

End Sub