Difference between revisions of "API/Samples/StarBasic/Impress/Insert a Chart"
From Apache OpenOffice Wiki
(Basic Code for creating a chart on a slide) |
|||
Line 11: | Line 11: | ||
|} | |} | ||
− | <code>[ | + | <code>[starbasic] |
Sub Main | Sub Main | ||
Set oPage = ThisComponent.getDrawPages().getByIndex(0) | Set oPage = ThisComponent.getDrawPages().getByIndex(0) |
Revision as of 18:36, 24 August 2007
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