sc/source/ui/vba/vbarange.cxx | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-)
New commits: commit fd64103319a28fedb44cdc0438887914dba396cb Author: Tamas Bunth <[email protected]> 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 <[email protected]> Reviewed-by: Tamás Bunth <[email protected]> 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() ); } }
_______________________________________________ Libreoffice-commits mailing list [email protected] https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
