sc/source/ui/vba/vbachartobject.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: vbachartobject.cxx,v $
  10  * $Revision: 1.4 $
  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 "vbachart.hxx"
  31 #include <com/sun/star/beans/XPropertySet.hpp>
  32 #include <com/sun/star/document/XEmbeddedObjectSupplier.hpp>
  33 #include <com/sun/star/container/XNamed.hpp>
  34 #include <com/sun/star/script/BasicErrorException.hpp>
  35 #include <basic/sberrors.hxx>
  36 #include "vbachartobject.hxx"
  37 #include "vbachartobjects.hxx"
  38
  39 using namespace ::com::sun::star;
  40 using namespace ::ooo::vba;
  41
  42 const rtl::OUString CHART_NAME( RTL_CONSTASCII_USTRINGPARAM("Name") );
  43 const rtl::OUString PERSIST_NAME( RTL_CONSTASCII_USTRINGPARAM("PersistName") );
  44
  45 ScVbaChartObject::ScVbaChartObject( const css::uno::Reference< ov::XHelperInterface >& _xParent, const css::uno::Reference< css::uno::XComponentContext >& _xContext, const css::uno::Reference< css::table::XTableChart >& _xTableChart, const css::uno::Reference< css::drawing::XDrawPageSupplier >& _xDrawPageSupplier ) : ChartObjectImpl_BASE( _xParent, _xContext ), xTableChart( _xTableChart ), xDrawPageSupplier( _xDrawPageSupplier )
  46 {
  47         xDrawPage = xDrawPageSupplier->getDrawPage();
  48         xEmbeddedObjectSupplier.set( xTableChart, uno::UNO_QUERY_THROW );
  49         xNamed.set( xTableChart, uno::UNO_QUERY_THROW );
  50         sPersistName = getPersistName();
  51         xShape = setShape();
  52         setName(sPersistName);
  53         oShapeHelper.reset(new ShapeHelper(xShape));
  54 }
  55
  56 rtl::OUString ScVbaChartObject::getPersistName()
  57 {
  58     if ( !sPersistName.getLength() )
  59         sPersistName = xNamed->getName();
  60     return sPersistName;
  61 }
  62
  63 uno::Reference< drawing::XShape >
  64 ScVbaChartObject::setShape() throw ( script::BasicErrorException )
  65 {
  66     try
  67     {
  68         sal_Int32 nItems = xDrawPage->getCount();
  69         for (int i = 0; i < nItems; i++)
  70         {
  71             xShape.set( xDrawPage->getByIndex(i), uno::UNO_QUERY_THROW );
  72             if (xShape->getShapeType().compareToAscii("com.sun.star.drawing.OLE2Shape") == 0 )
  73             {
  74                 uno::Reference< beans::XPropertySet > xShapePropertySet(xShape, uno::UNO_QUERY_THROW );
  75                 rtl::OUString sName;
  76                 xShapePropertySet->getPropertyValue(PERSIST_NAME ) >>=sName;
  77                 if ( sName.equals(sPersistName))
  78                 {
  79                     xNamedShape.set( xShape, uno::UNO_QUERY_THROW );
  80                     return xShape;
  81                 }
  82             }
  83         }
  84     }
  85     catch (uno::Exception& )
  86     {
  87         throw script::BasicErrorException( rtl::OUString(), uno::Reference< uno::XInterface >(), SbERR_METHOD_FAILED, rtl::OUString() );
  88     }
  89     return NULL;
  90 }
  91
  92 void SAL_CALL
  93 ScVbaChartObject::setName( const rtl::OUString& sName ) throw (css::uno::RuntimeException)
  94 {
  95     xNamedShape->setName(sName);
  96 }
  97
  98
  99 ::rtl::OUString SAL_CALL
 100 ScVbaChartObject::getName() throw (css::uno::RuntimeException)
 101 {
 102     return xNamedShape->getName();
 103 }
 104
 105 void SAL_CALL
 106 ScVbaChartObject::Delete() throw ( css::script::BasicErrorException )
 107 {
 108     // parent of this object is sheet
 109     uno::Reference< excel::XWorksheet > xParent( getParent(), uno::UNO_QUERY_THROW );
 110     uno::Reference< excel::XChartObjects > xColl( xParent->ChartObjects( uno::Any() ), uno::UNO_QUERY_THROW );
 111     ScVbaChartObjects* pChartObjectsImpl = static_cast< ScVbaChartObjects* >( xColl.get() );
 112     if (pChartObjectsImpl)
 113         pChartObjectsImpl->removeByName( getPersistName() );
 114     else
 115         throw script::BasicErrorException( rtl::OUString(), uno::Reference< uno::XInterface >(), SbERR_METHOD_FAILED, rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Parent is not ChartObjects" ) ) );
 116 }
 117
 118 void
 119 ScVbaChartObject::Activate() throw ( script::BasicErrorException )
 120 {
 121     try
 122     {
 123                 // #TODO #FIXME should be ThisWorkbook or equivelant, or in
 124                 // fact probably the chart object should be created with
 125                 // the XModel owner
 126         //uno::Reference< view::XSelectionSupplier > xSelectionSupplier( getXModel().getCurrentController());
 127                 uno::Reference< view::XSelectionSupplier > xSelectionSupplier( getCurrentExcelDoc(mxContext)->getCurrentController(), uno::UNO_QUERY_THROW );
 128         xSelectionSupplier->select(uno::makeAny(xShape));
 129     }
 130     catch (uno::Exception& )
 131     {
 132         throw script::BasicErrorException( rtl::OUString(), uno::Reference< uno::XInterface >(), SbERR_METHOD_FAILED, rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ChartObject Activate internal error" ) ) );
 133     }
 134 }
 135
 136 uno::Reference< excel::XChart > SAL_CALL
 137 ScVbaChartObject::getChart() throw (css::uno::RuntimeException)
 138 {
 139     return new ScVbaChart( this, mxContext, xEmbeddedObjectSupplier->getEmbeddedObject(), xTableChart );
 140 }
 141
 142 rtl::OUString&
 143 ScVbaChartObject::getServiceImplName()
 144 {
 145     static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaChartObject") );
 146     return sImplName;
 147 }
 148
 149 uno::Sequence< rtl::OUString >
 150 ScVbaChartObject::getServiceNames()
 151 {
 152     static uno::Sequence< rtl::OUString > aServiceNames;
 153     if ( aServiceNames.getLength() == 0 )
 154     {
 155         aServiceNames.realloc( 1 );
 156         aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.ChartObject" ) );
 157     }
 158     return aServiceNames;
 159 }
 160
 161 double
 162 ScVbaChartObject::getHeight()
 163 {
 164     return oShapeHelper->getHeight();
 165 }
 166
 167 void
 168 ScVbaChartObject::setHeight(double _fheight) throw ( script::BasicErrorException )
 169 {
 170     oShapeHelper->setHeight(_fheight);
 171 }
 172
 173 double
 174 ScVbaChartObject::getWidth()
 175 {
 176         return oShapeHelper->getWidth();
 177 }
 178
 179 void
 180 ScVbaChartObject::setWidth(double _fWidth) throw ( script::BasicErrorException )
 181 {
 182     oShapeHelper->setWidth(_fWidth);
 183 }
 184
 185 double
 186 ScVbaChartObject::getLeft()
 187 {
 188         return oShapeHelper->getLeft();
 189 }
 190
 191 void
 192 ScVbaChartObject::setLeft(double _fLeft)
 193 {
 194     oShapeHelper->setLeft(_fLeft);
 195 }
 196
 197 double
 198 ScVbaChartObject::getTop()
 199 {
 200         return oShapeHelper->getTop();
 201 }
 202
 203 void
 204 ScVbaChartObject::setTop(double _fTop)
 205 {
 206     oShapeHelper->setTop(_fTop);
 207 }
 208
 209 uno::Reference< uno::XInterface >
 210 ScVbaChartObject::getUnoObject() throw (script::BasicErrorException)
 211 {
 212     return uno::Reference< uno::XInterface >( xShape, uno::UNO_QUERY );
 213 }