API/Samples/StarBasic/Impress/Insert a Chart
From Apache OpenOffice Wiki
Description: | Create a new Chart object on a slide of a presentation or the page of a draw document. | Programming Language: | StarBasic | Author: | Björn Milcke, 2007 |
Sub Main ' get the first slide Set oPage = ThisComponent.getDrawPages().getByIndex(0) ' create an OLE2Shape Set oOLEShape = ThisComponent.createInstance( "com.sun.star.drawing.OLE2Shape" ) ' important: first add the shape oPage.add( oOLEShape ) Dim oPos As New com.sun.star.awt.Point Dim oSize As New com.sun.star.awt.Size oPos.X = 0 oPos.Y = 0 oSize.Width = 8000 oSize.Height = 7000 oOLEShape.Size = oSize oOLEShape.Position = oPos ' then make the OLE object a chart. The class-id is for charts, use exactly this one oOLEShape.CLSID = "12dcae26-281f-416f-a234-c3086127382e" ' get the chart's model for modification Set oChartModel = oOLEShape.Model If Not IsNull( oChartModel ) Then ' e.g., Set a main title oChartModel.HasMainTitle = True oChartModel.Title.String = "Created via UNO API" EndIf End Sub