[Libreoffice-commits] core.git: sc/source
Tamas Bunth
tamas.bunth at collabora.co.uk
Wed Aug 16 07:04:01 UTC 2017
sc/source/ui/vba/vbarange.cxx | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
New commits:
commit fd64103319a28fedb44cdc0438887914dba396cb
Author: Tamas Bunth <tamas.bunth at collabora.co.uk>
Date: Tue Aug 15 15:52:36 2017 +0200
oovbaapi: Allow copying of multiple selections
Change-Id: If098b44d2627d86795cea4e4211d357d1a562dba
Reviewed-on: https://gerrit.libreoffice.org/41176
Tested-by: Jenkins <ci at libreoffice.org>
Reviewed-by: Tamás Bunth <btomi96 at gmail.com>
diff --git a/sc/source/ui/vba/vbarange.cxx b/sc/source/ui/vba/vbarange.cxx
index 29944d78dccb..216e158729ee 100644
--- a/sc/source/ui/vba/vbarange.cxx
+++ b/sc/source/ui/vba/vbarange.cxx
@@ -2491,10 +2491,11 @@ ScVbaRange::getMergeCells()
void
ScVbaRange::Copy(const ::uno::Any& Destination)
{
- if ( m_Areas->getCount() > 1 )
- throw uno::RuntimeException("That command cannot be used on multiple selections" );
if ( Destination.hasValue() )
{
+ // TODO copy with multiple selections should work here too
+ if ( m_Areas->getCount() > 1 )
+ throw uno::RuntimeException("That command cannot be used on multiple selections" );
uno::Reference< excel::XRange > xRange( Destination, uno::UNO_QUERY_THROW );
uno::Any aRange = xRange->getCellRange();
uno::Reference< table::XCellRange > xCellRange;
@@ -2512,9 +2513,7 @@ ScVbaRange::Copy(const ::uno::Any& Destination)
}
else
{
- uno::Reference< frame::XModel > xModel = getModelFromRange( mxRange );
- Select();
- excel::implnCopy( xModel );
+ excel::implnCopy( getUnoModel() );
}
}
More information about the Libreoffice-commits
mailing list