1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sc_ScChartObj" script:language="StarBasic"> 4 5 6'************************************************************************* 7' 8' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 9' 10' Copyright 2000, 2010 Oracle and/or its affiliates. 11' 12' OpenOffice.org - a multi-platform office productivity suite 13' 14' This file is part of OpenOffice.org. 15' 16' OpenOffice.org is free software: you can redistribute it and/or modify 17' it under the terms of the GNU Lesser General Public License version 3 18' only, as published by the Free Software Foundation. 19' 20' OpenOffice.org is distributed in the hope that it will be useful, 21' but WITHOUT ANY WARRANTY; without even the implied warranty of 22' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 23' GNU Lesser General Public License version 3 for more details 24' (a copy is included in the LICENSE file that accompanied this code). 25' 26' You should have received a copy of the GNU Lesser General Public License 27' version 3 along with OpenOffice.org. If not, see 28' <http://www.openoffice.org/license.html> 29' for a copy of the LGPLv3 License. 30' 31'************************************************************************* 32***** 33'************************************************************************* 34 35 36 37' Be sure that all variables are dimensioned: 38option explicit 39 40 41' REQUIRED VARIABLES for interface/service tests: 42 43'Required for com.sun.star.container.XNamed 44Global cNameToSet As String ' "fixed" if name is fixed 45 46 47Sub CreateObj() 48 49'************************************************************************* 50' COMPONENT: 51' sc.ScChartObj 52'************************************************************************* 53On Error Goto ErrHndl 54 Dim oCharts As Variant 55 Dim oSheet As Object 56 Dim i,j As Integer 57 Dim tRect As New com.sun.star.awt.Rectangle 58 Dim tAddr As New com.sun.star.table.CellRangeAddress 59 Dim oRanges(0) As New com.sun.star.table.CellRangeAddress 60 61 62 oDoc = utils.createDocument("scalc", cObjectName) 63 oSheet = oDoc.Sheets(0) 64 65 ' Filling some cells with the text 66 for i = 1 to 6 67 oSheet.getCellByPosition(0, i).setString("Row" & i) 68 oSheet.getCellByPosition(i, 0).setString("Col" & i) 69 next i 70 71 for i = 1 to 6 72 for j = 1 to 6 73 oSheet.getCellByPosition(i, j).Value = (i + 1) * j 74 next j 75 next i 76 77 tRect.X = 500 78 tRect.Y = 500 79 tRect.Width = 25000 80 tRect.Height = 15000 81 82 tAddr.Sheet = 0 83 tAddr.StartRow = 0 84 tAddr.StartColumn = 0 85 tAddr.EndRow = 6 86 tAddr.EndColumn = 6 87 88 oCharts = oSheet.getCharts() 89 oRanges(0) = tAddr 90 oCharts.addNewByName("ScChartObj", tRect, oRanges(), true, true) 91 92 oObj = oCharts.getByName("ScChartObj") 93 94 cNameToSet = "fixed" 95Exit Sub 96ErrHndl: 97 Test.Exception() 98End Sub 99</script:module> 100