sc/source/ui/vba/vbacharts.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: vbacharts.cxx,v $
  10  * $Revision: 1.3 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30 #include "vbacharts.hxx"
  31 #include <basic/sberrors.hxx>
  32 #include <com/sun/star/table/XTableChartsSupplier.hpp>
  33
  34 using namespace ::com::sun::star;
  35 using namespace ::ooo::vba;
  36
  37
  38 ScVbaCharts::ScVbaCharts( const css::uno::Reference< ov::XHelperInterface >& _xParent, const css::uno::Reference< css::uno::XComponentContext >& _xContext, const uno::Reference< frame::XModel >& xModel ) : Charts_BASE(_xParent, _xContext, uno::Reference< container::XIndexAccess >())
  39 {
  40         xComponent.set( xModel, uno::UNO_QUERY_THROW );
  41     xSpreadsheetDocument.set( xComponent, uno::UNO_QUERY_THROW );
  42 }
  43
  44 uno::Any SAL_CALL
  45 ScVbaCharts::Add() throw (css::script::BasicErrorException, css::uno::RuntimeException)
  46 {
  47     // Not implemented in the helperapi ( see ChartsImpl.java )
  48     if ( true )
  49         throw script::BasicErrorException( rtl::OUString(), uno::Reference< uno::XInterface >(), SbERR_BAD_METHOD, rtl::OUString() );
  50     return aNULL();
  51 }
  52
  53 uno::Reference< excel::XChart > SAL_CALL
  54 ScVbaCharts::getActiveChart() throw (script::BasicErrorException, uno::RuntimeException)
  55 {
  56     return xActiveChart;
  57 }
  58
  59 uno::Reference< container::XEnumeration > SAL_CALL
  60 ScVbaCharts::createEnumeration() throw (uno::RuntimeException)
  61 {
  62     // #FIXME not implemented
  63     if ( true )
  64         throw script::BasicErrorException( rtl::OUString(), uno::Reference< uno::XInterface >(), SbERR_BAD_METHOD, rtl::OUString() );
  65     return uno::Reference< container::XEnumeration >();
  66 }
  67
  68 // #FIXME #TODO this method shouldn't appear in this class directly
  69 // a XIndexAccess/XNameAccess wrapper should be passed to the base class instead
  70 ::sal_Int32 SAL_CALL
  71 ScVbaCharts::getCount() throw (uno::RuntimeException)
  72 {
  73     sal_Int32 ncount = 0;
  74     try
  75     {
  76         uno::Reference< sheet::XSpreadsheets > xSpreadsheets( xSpreadsheetDocument->getSheets() );
  77         uno::Sequence< rtl::OUString > SheetNames = xSpreadsheets->getElementNames();
  78         sal_Int32 nLen = SheetNames.getLength();
  79         for (sal_Int32 i = 0; i < nLen; i++)
  80         {
  81             uno::Reference< table::XTableChartsSupplier > xTableChartsSupplier( xSpreadsheets->getByName(SheetNames[i]), uno::UNO_QUERY);
  82             if ( xTableChartsSupplier.is() )
  83             {
  84                 uno::Reference< table::XTableCharts > xTableCharts = xTableChartsSupplier->getCharts();
  85                 ncount =+ xTableCharts->getElementNames().getLength();
  86             }
  87         }
  88     }
  89     catch (uno::Exception& )
  90     {
  91         throw script::BasicErrorException( rtl::OUString(), uno::Reference< uno::XInterface >(), SbERR_METHOD_FAILED, rtl::OUString() );
  92     }
  93     return ncount;
  94 }
  95
  96 uno::Any
  97 ScVbaCharts::createCollectionObject( const uno::Any& aSource )
  98 {
  99     if ( true )
 100         throw script::BasicErrorException( rtl::OUString(), uno::Reference< uno::XInterface >(), SbERR_BAD_METHOD, rtl::OUString() );
 101     // #TODO implementation please
 102     return aSource;
 103 }
 104
 105 rtl::OUString&
 106 ScVbaCharts::getServiceImplName()
 107 {
 108     static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaCharts") );
 109     return sImplName;
 110 }
 111
 112 css::uno::Sequence<rtl::OUString>
 113 ScVbaCharts::getServiceNames()
 114 {
 115     static uno::Sequence< rtl::OUString > sNames;
 116     if ( sNames.getLength() == 0 )
 117     {
 118         sNames.realloc( 1 );
 119         sNames[0] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.Charts") );
 120     }
 121     return sNames;
 122 }
 123