1 /**************************************************************
2 *
3 * Licensed to the Apache Software Foundation (ASF) under one
4 * or more contributor license agreements. See the NOTICE file
5 * distributed with this work for additional information
6 * regarding copyright ownership. The ASF licenses this file
7 * to you under the Apache License, Version 2.0 (the
8 * "License"); you may not use this file except in compliance
9 * with the License. You may obtain a copy of the License at
10 *
11 * http://www.apache.org/licenses/LICENSE-2.0
12 *
13 * Unless required by applicable law or agreed to in writing,
14 * software distributed under the License is distributed on an
15 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16 * KIND, either express or implied. See the License for the
17 * specific language governing permissions and limitations
18 * under the License.
19 *
20 *************************************************************/
21
22
23 #include "vbachart.hxx"
24 #include <com/sun/star/beans/XPropertySet.hpp>
25 #include <com/sun/star/document/XEmbeddedObjectSupplier.hpp>
26 #include <com/sun/star/table/XTableChartsSupplier.hpp>
27 #include <com/sun/star/table/XTableChart.hpp>
28 #include <com/sun/star/sheet/XSpreadsheetDocument.hpp>
29 #include <ooo/vba/excel/XlChartType.hpp>
30
31
32 #include "vbachartobjects.hxx"
33 #include "vbachartobject.hxx"
34 #include "vbaglobals.hxx"
35 #include "cellsuno.hxx"
36 #include <vector>
37 #include <basic/sberrors.hxx>
38
39 using namespace ::com::sun::star;
40 using namespace ::ooo::vba;
41
42
43 class ChartObjectEnumerationImpl : public EnumerationHelperImpl
44 {
45 uno::Reference< drawing::XDrawPageSupplier > xDrawPageSupplier;
46
47 public:
48
ChartObjectEnumerationImpl(const uno::Reference<uno::XComponentContext> & xContext,const uno::Reference<container::XEnumeration> & xEnumeration,const uno::Reference<drawing::XDrawPageSupplier> & _xDrawPageSupplier,const uno::Reference<XHelperInterface> & _xParent)49 ChartObjectEnumerationImpl( const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< container::XEnumeration >& xEnumeration, const uno::Reference< drawing::XDrawPageSupplier >& _xDrawPageSupplier, const uno::Reference< XHelperInterface >& _xParent ) throw ( uno::RuntimeException ) : EnumerationHelperImpl( _xParent, xContext, xEnumeration ), xDrawPageSupplier( _xDrawPageSupplier ) {}
nextElement()50 virtual uno::Any SAL_CALL nextElement( ) throw (container::NoSuchElementException, lang::WrappedTargetException, uno::RuntimeException)
51 {
52 uno::Reference< table::XTableChart > xTableChart( m_xEnumeration->nextElement(), uno::UNO_QUERY_THROW );
53 // parent Object is sheet
54 return uno::makeAny( uno::Reference< excel::XChartObject > ( new ScVbaChartObject( m_xParent, m_xContext, xTableChart, xDrawPageSupplier ) ) );
55 }
56 };
57
58
ScVbaChartObjects(const css::uno::Reference<ov::XHelperInterface> & _xParent,const css::uno::Reference<css::uno::XComponentContext> & _xContext,const css::uno::Reference<css::table::XTableCharts> & _xTableCharts,const uno::Reference<drawing::XDrawPageSupplier> & _xDrawPageSupplier)59 ScVbaChartObjects::ScVbaChartObjects( const css::uno::Reference< ov::XHelperInterface >& _xParent, const css::uno::Reference< css::uno::XComponentContext >& _xContext, const css::uno::Reference< css::table::XTableCharts >& _xTableCharts, const uno::Reference< drawing::XDrawPageSupplier >& _xDrawPageSupplier ) : ChartObjects_BASE(_xParent, _xContext, css::uno::Reference< css::container::XIndexAccess >( _xTableCharts, css::uno::UNO_QUERY ) ), xTableCharts( _xTableCharts ) , xDrawPageSupplier( _xDrawPageSupplier )
60 {
61
62 }
63
64 void
removeByName(const rtl::OUString & _sChartName)65 ScVbaChartObjects::removeByName(const rtl::OUString& _sChartName)
66 {
67 xTableCharts->removeByName( _sChartName );
68 }
69
70 uno::Sequence< rtl::OUString >
getChartObjectNames()71 ScVbaChartObjects::getChartObjectNames() throw( css::script::BasicErrorException )
72 {
73 uno::Sequence< rtl::OUString > sChartNames;
74 try
75 {
76 // c++ hackery
77 uno::Reference< uno::XInterface > xIf( xDrawPageSupplier, uno::UNO_QUERY_THROW );
78 ScCellRangesBase* pUno= dynamic_cast< ScCellRangesBase* >( xIf.get() );
79 ScDocShell* pDocShell = NULL;
80 if ( !pUno )
81 throw uno::RuntimeException( rtl::OUString::createFromAscii("Failed to obtain the impl class from the drawpage"), uno::Reference< uno::XInterface >() );
82 pDocShell = pUno->GetDocShell();
83 if ( !pDocShell )
84 throw uno::RuntimeException( rtl::OUString::createFromAscii("Failed to obtain the docshell implclass"), uno::Reference< uno::XInterface >() );
85
86 uno::Reference< sheet::XSpreadsheetDocument > xSpreadsheetDocument( pDocShell->GetModel(), uno::UNO_QUERY_THROW );
87 uno::Reference< sheet::XSpreadsheets > xSpreadsheets = xSpreadsheetDocument->getSheets();
88 std::vector< rtl::OUString > aChartNamesVector;
89
90 uno::Sequence< rtl::OUString > sSheetNames = xSpreadsheets->getElementNames();
91 sal_Int32 nItems = sSheetNames.getLength();
92 for (sal_Int32 i = 0; i < nItems; i++)
93 {
94 uno::Reference< table::XTableChartsSupplier > xLocTableChartsSupplier( xSpreadsheets->getByName(sSheetNames[i]), uno::UNO_QUERY_THROW );
95 uno::Sequence< rtl::OUString > scurchartnames = xLocTableChartsSupplier->getCharts()->getElementNames();
96 sal_Int32 nChartNames = scurchartnames.getLength();
97 for (sal_Int32 n = 0; n < nChartNames; n++ )
98 aChartNamesVector.push_back(scurchartnames[n]);
99 }
100 sChartNames.realloc( aChartNamesVector.size() );
101 std::vector< rtl::OUString > ::const_iterator it = aChartNamesVector.begin();
102 std::vector< rtl::OUString > ::const_iterator it_end = aChartNamesVector.end();
103 for ( sal_Int32 index = 0 ; it != it_end; ++it, ++index )
104 sChartNames[index] = *it;
105 }
106 catch (uno::Exception& )
107 {
108 throw script::BasicErrorException( rtl::OUString(), uno::Reference< uno::XInterface >(), SbERR_METHOD_FAILED, rtl::OUString() );
109 }
110 return sChartNames;
111 }
112
113 // XChartObjects
114 uno::Any SAL_CALL
Add(double _nX,double _nY,double _nWidth,double _nHeight)115 ScVbaChartObjects::Add( double _nX, double _nY, double _nWidth, double _nHeight ) throw (script::BasicErrorException)
116 {
117 try
118 {
119 uno::Sequence< table::CellRangeAddress > aCellRangeAddress( 1 );
120 awt::Rectangle aRectangle;
121 aRectangle.X = Millimeter::getInHundredthsOfOneMillimeter(_nX);
122 aRectangle.Y = Millimeter::getInHundredthsOfOneMillimeter(_nY);
123 aRectangle.Width = Millimeter::getInHundredthsOfOneMillimeter(_nWidth);
124 aRectangle.Height = Millimeter::getInHundredthsOfOneMillimeter(_nHeight);
125 // Note the space at the end of the stem ("Chart "). In ChartSheets only "Chart" is the stem
126 rtl::OUString sPersistChartName = ContainerUtilities::getUniqueName( getChartObjectNames(), rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Chart " ) ) , rtl::OUString(), 1);
127 xTableCharts->addNewByName(sPersistChartName, aRectangle, aCellRangeAddress, true, false );
128 uno::Reference< excel::XChartObject > xChartObject( getItemByStringIndex( sPersistChartName ), uno::UNO_QUERY_THROW );
129 xChartObject->getChart()->setChartType(excel::XlChartType::xlColumnClustered);
130 return uno::makeAny( xChartObject );
131 }
132 catch ( uno::Exception& ex)
133 {
134 OSL_TRACE("AddItem caught exception ->%s", rtl::OUStringToOString( ex.Message, RTL_TEXTENCODING_UTF8 ).getStr() );
135 }
136 return aNULL();
137 }
Delete()138 void SAL_CALL ScVbaChartObjects::Delete( ) throw (script::BasicErrorException)
139 {
140 uno::Sequence< rtl::OUString > sChartNames = xTableCharts->getElementNames();
141 sal_Int32 ncount = sChartNames.getLength();
142 for (sal_Int32 i = 0; i < ncount ; i++)
143 removeByName(sChartNames[i]);
144 }
145
146 // XEnumerationAccess
147
148 uno::Reference< container::XEnumeration >
createEnumeration()149 ScVbaChartObjects::createEnumeration() throw (uno::RuntimeException)
150 {
151 css::uno::Reference< container::XEnumerationAccess > xEnumAccess( xTableCharts, uno::UNO_QUERY_THROW );
152 return new ChartObjectEnumerationImpl( mxContext, xEnumAccess->createEnumeration(), xDrawPageSupplier, getParent() /* sheet */);
153 }
154
155 // XElementAccess
156
157 uno::Type
getElementType()158 ScVbaChartObjects::getElementType() throw (uno::RuntimeException)
159 {
160 return excel::XChartObject::static_type(0);
161 }
162
163 // ScVbaCollectionBaseImpl
164 uno::Any
createCollectionObject(const css::uno::Any & aSource)165 ScVbaChartObjects::createCollectionObject( const css::uno::Any& aSource )
166 {
167 uno::Reference< table::XTableChart > xTableChart( aSource, uno::UNO_QUERY_THROW );
168 // correct parent object is sheet
169 return uno::makeAny( uno::Reference< excel::XChartObject > ( new ScVbaChartObject( getParent(), mxContext, xTableChart, xDrawPageSupplier ) ) );
170 }
171
172 rtl::OUString&
getServiceImplName()173 ScVbaChartObjects::getServiceImplName()
174 {
175 static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaChartObjects") );
176 return sImplName;
177 }
178
179 css::uno::Sequence<rtl::OUString>
getServiceNames()180 ScVbaChartObjects::getServiceNames()
181 {
182 static uno::Sequence< rtl::OUString > sNames;
183 if ( sNames.getLength() == 0 )
184 {
185 sNames.realloc( 1 );
186 sNames[0] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.excel.ChartObjects") );
187 }
188 return sNames;
189 }
190
191