8b27d78b4a
Done with a perl regex: s/OUString\s*\(\s*RTL_CONSTASCII_USTRINGPARAM\s*\((\s*"[^")]*?"\s*)\)\s*\)/OUString\($1\)/gms Change-Id: Idf28320817cdcbea6d0f7ec06a9bf51bd2c3b3ec Reviewed-on: https://gerrit.libreoffice.org/2832 Reviewed-by: Thomas Arnhold <thomas@arnhold.org> Tested-by: Thomas Arnhold <thomas@arnhold.org>
187 lines
8.2 KiB
C++
187 lines
8.2 KiB
C++
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
|
|
/*
|
|
* This file is part of the LibreOffice project.
|
|
*
|
|
* This Source Code Form is subject to the terms of the Mozilla Public
|
|
* License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
*
|
|
* This file incorporates work covered by the following license notice:
|
|
*
|
|
* Licensed to the Apache Software Foundation (ASF) under one or more
|
|
* contributor license agreements. See the NOTICE file distributed
|
|
* with this work for additional information regarding copyright
|
|
* ownership. The ASF licenses this file to you under the Apache
|
|
* License, Version 2.0 (the "License"); you may not use this file
|
|
* except in compliance with the License. You may obtain a copy of
|
|
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
|
|
*/
|
|
#include "vbachart.hxx"
|
|
#include <com/sun/star/beans/XPropertySet.hpp>
|
|
#include <com/sun/star/document/XEmbeddedObjectSupplier.hpp>
|
|
#include <com/sun/star/table/XTableChartsSupplier.hpp>
|
|
#include <com/sun/star/table/XTableChart.hpp>
|
|
#include <com/sun/star/sheet/XSpreadsheetDocument.hpp>
|
|
#include <ooo/vba/excel/XlChartType.hpp>
|
|
|
|
|
|
#include "vbachartobjects.hxx"
|
|
#include "vbachartobject.hxx"
|
|
#include "vbaglobals.hxx"
|
|
#include "cellsuno.hxx"
|
|
#include <vector>
|
|
#include <basic/sberrors.hxx>
|
|
|
|
using namespace ::com::sun::star;
|
|
using namespace ::ooo::vba;
|
|
|
|
|
|
class ChartObjectEnumerationImpl : public EnumerationHelperImpl
|
|
{
|
|
uno::Reference< drawing::XDrawPageSupplier > xDrawPageSupplier;
|
|
|
|
public:
|
|
|
|
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 ) {}
|
|
virtual uno::Any SAL_CALL nextElement( ) throw (container::NoSuchElementException, lang::WrappedTargetException, uno::RuntimeException)
|
|
{
|
|
uno::Reference< table::XTableChart > xTableChart( m_xEnumeration->nextElement(), uno::UNO_QUERY_THROW );
|
|
// parent Object is sheet
|
|
return uno::makeAny( uno::Reference< excel::XChartObject > ( new ScVbaChartObject( m_xParent, m_xContext, xTableChart, xDrawPageSupplier ) ) );
|
|
}
|
|
};
|
|
|
|
|
|
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 )
|
|
{
|
|
|
|
}
|
|
|
|
void
|
|
ScVbaChartObjects::removeByName(const rtl::OUString& _sChartName)
|
|
{
|
|
xTableCharts->removeByName( _sChartName );
|
|
}
|
|
|
|
uno::Sequence< rtl::OUString >
|
|
ScVbaChartObjects::getChartObjectNames() throw( css::script::BasicErrorException )
|
|
{
|
|
uno::Sequence< rtl::OUString > sChartNames;
|
|
try
|
|
{
|
|
// c++ hackery
|
|
uno::Reference< uno::XInterface > xIf( xDrawPageSupplier, uno::UNO_QUERY_THROW );
|
|
ScCellRangesBase* pUno= dynamic_cast< ScCellRangesBase* >( xIf.get() );
|
|
ScDocShell* pDocShell = NULL;
|
|
if ( !pUno )
|
|
throw uno::RuntimeException( rtl::OUString("Failed to obtain the impl class from the drawpage"), uno::Reference< uno::XInterface >() );
|
|
pDocShell = pUno->GetDocShell();
|
|
if ( !pDocShell )
|
|
throw uno::RuntimeException( rtl::OUString("Failed to obtain the docshell implclass"), uno::Reference< uno::XInterface >() );
|
|
|
|
uno::Reference< sheet::XSpreadsheetDocument > xSpreadsheetDocument( pDocShell->GetModel(), uno::UNO_QUERY_THROW );
|
|
uno::Reference< sheet::XSpreadsheets > xSpreadsheets = xSpreadsheetDocument->getSheets();
|
|
std::vector< rtl::OUString > aChartNamesVector;
|
|
|
|
uno::Sequence< rtl::OUString > sSheetNames = xSpreadsheets->getElementNames();
|
|
sal_Int32 nItems = sSheetNames.getLength();
|
|
for (sal_Int32 i = 0; i < nItems; i++)
|
|
{
|
|
uno::Reference< table::XTableChartsSupplier > xLocTableChartsSupplier( xSpreadsheets->getByName(sSheetNames[i]), uno::UNO_QUERY_THROW );
|
|
uno::Sequence< rtl::OUString > scurchartnames = xLocTableChartsSupplier->getCharts()->getElementNames();
|
|
sal_Int32 nChartNames = scurchartnames.getLength();
|
|
for (sal_Int32 n = 0; n < nChartNames; n++ )
|
|
aChartNamesVector.push_back(scurchartnames[n]);
|
|
}
|
|
sChartNames.realloc( aChartNamesVector.size() );
|
|
std::vector< rtl::OUString > ::const_iterator it = aChartNamesVector.begin();
|
|
std::vector< rtl::OUString > ::const_iterator it_end = aChartNamesVector.end();
|
|
for ( sal_Int32 index = 0 ; it != it_end; ++it, ++index )
|
|
sChartNames[index] = *it;
|
|
}
|
|
catch (uno::Exception& )
|
|
{
|
|
throw script::BasicErrorException( rtl::OUString(), uno::Reference< uno::XInterface >(), SbERR_METHOD_FAILED, rtl::OUString() );
|
|
}
|
|
return sChartNames;
|
|
}
|
|
|
|
// XChartObjects
|
|
uno::Any SAL_CALL
|
|
ScVbaChartObjects::Add( double _nX, double _nY, double _nWidth, double _nHeight ) throw (script::BasicErrorException)
|
|
{
|
|
try
|
|
{
|
|
uno::Sequence< table::CellRangeAddress > aCellRangeAddress( 1 );
|
|
awt::Rectangle aRectangle;
|
|
aRectangle.X = Millimeter::getInHundredthsOfOneMillimeter(_nX);
|
|
aRectangle.Y = Millimeter::getInHundredthsOfOneMillimeter(_nY);
|
|
aRectangle.Width = Millimeter::getInHundredthsOfOneMillimeter(_nWidth);
|
|
aRectangle.Height = Millimeter::getInHundredthsOfOneMillimeter(_nHeight);
|
|
// Note the space at the end of the stem ("Chart "). In ChartSheets only "Chart" is the stem
|
|
rtl::OUString sPersistChartName = ContainerUtilities::getUniqueName( getChartObjectNames(), rtl::OUString( "Chart " ) , rtl::OUString(), 1);
|
|
xTableCharts->addNewByName(sPersistChartName, aRectangle, aCellRangeAddress, true, false );
|
|
uno::Reference< excel::XChartObject > xChartObject( getItemByStringIndex( sPersistChartName ), uno::UNO_QUERY_THROW );
|
|
xChartObject->getChart()->setChartType(excel::XlChartType::xlColumnClustered);
|
|
return uno::makeAny( xChartObject );
|
|
}
|
|
catch (const uno::Exception& ex)
|
|
{
|
|
OSL_TRACE("AddItem caught exception ->%s", rtl::OUStringToOString( ex.Message, RTL_TEXTENCODING_UTF8 ).getStr() );
|
|
}
|
|
return aNULL();
|
|
}
|
|
void SAL_CALL ScVbaChartObjects::Delete( ) throw (script::BasicErrorException)
|
|
{
|
|
uno::Sequence< rtl::OUString > sChartNames = xTableCharts->getElementNames();
|
|
sal_Int32 ncount = sChartNames.getLength();
|
|
for (sal_Int32 i = 0; i < ncount ; i++)
|
|
removeByName(sChartNames[i]);
|
|
}
|
|
|
|
// XEnumerationAccess
|
|
|
|
uno::Reference< container::XEnumeration >
|
|
ScVbaChartObjects::createEnumeration() throw (uno::RuntimeException)
|
|
{
|
|
css::uno::Reference< container::XEnumerationAccess > xEnumAccess( xTableCharts, uno::UNO_QUERY_THROW );
|
|
return new ChartObjectEnumerationImpl( mxContext, xEnumAccess->createEnumeration(), xDrawPageSupplier, getParent() /* sheet */);
|
|
}
|
|
|
|
// XElementAccess
|
|
|
|
uno::Type
|
|
ScVbaChartObjects::getElementType() throw (uno::RuntimeException)
|
|
{
|
|
return excel::XChartObject::static_type(0);
|
|
}
|
|
|
|
// ScVbaCollectionBaseImpl
|
|
uno::Any
|
|
ScVbaChartObjects::createCollectionObject( const css::uno::Any& aSource )
|
|
{
|
|
uno::Reference< table::XTableChart > xTableChart( aSource, uno::UNO_QUERY_THROW );
|
|
// correct parent object is sheet
|
|
return uno::makeAny( uno::Reference< excel::XChartObject > ( new ScVbaChartObject( getParent(), mxContext, xTableChart, xDrawPageSupplier ) ) );
|
|
}
|
|
|
|
rtl::OUString
|
|
ScVbaChartObjects::getServiceImplName()
|
|
{
|
|
return rtl::OUString("ScVbaChartObjects");
|
|
}
|
|
|
|
css::uno::Sequence<rtl::OUString>
|
|
ScVbaChartObjects::getServiceNames()
|
|
{
|
|
static uno::Sequence< rtl::OUString > sNames;
|
|
if ( sNames.getLength() == 0 )
|
|
{
|
|
sNames.realloc( 1 );
|
|
sNames[0] = rtl::OUString("ooo.vba.excel.ChartObjects");
|
|
}
|
|
return sNames;
|
|
}
|
|
|
|
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|