API/Samples/StarBasic/Impress/Insert a Chart

From Apache OpenOffice Wiki
< API‎ | Samples‎ | StarBasic
Revision as of 16:40, 24 August 2007 by Bm@openoffice.org (Talk | contribs)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
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

[basic] 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"

End Sub

Personal tools