[Libreoffice-commits] core.git: Branch 'distro/collabora/cp-6.0' - oovbaapi/ooo sc/source

Tor Lillqvist (via logerrit) logerrit at kemper.freedesktop.org
Mon Apr 1 19:10:44 UTC 2019


 oovbaapi/ooo/vba/excel/XApplication.idl |    1 +
 sc/source/ui/vba/vbaapplication.cxx     |    9 +++++++++
 sc/source/ui/vba/vbaapplication.hxx     |    1 +
 3 files changed, 11 insertions(+)

New commits:
commit 948578cadd2acda5b1b0e43138c5155c9dc6a05a
Author:     Tor Lillqvist <tml at collabora.com>
AuthorDate: Mon Apr 1 22:09:21 2019 +0300
Commit:     Tor Lillqvist <tml at collabora.com>
CommitDate: Mon Apr 1 22:09:21 2019 +0300

    Add Rows() method to ooo.vba.excel.XApplication
    
    Change-Id: I7e1d83539153eede300b2b24f2fa6796859d299c

diff --git a/oovbaapi/ooo/vba/excel/XApplication.idl b/oovbaapi/ooo/vba/excel/XApplication.idl
index ceceaf777d97..89a19197116f 100644
--- a/oovbaapi/ooo/vba/excel/XApplication.idl
+++ b/oovbaapi/ooo/vba/excel/XApplication.idl
@@ -87,6 +87,7 @@ interface XApplication
     void Volatile([in] any Volatile);
     any Caller( [in] any Index );
     any MenuBars( [in] any aIndex );
+    any Rows( [in] any aIndex );
     void Undo();
 };
 
diff --git a/sc/source/ui/vba/vbaapplication.cxx b/sc/source/ui/vba/vbaapplication.cxx
index 52eafc594ff1..eb7395f49940 100644
--- a/sc/source/ui/vba/vbaapplication.cxx
+++ b/sc/source/ui/vba/vbaapplication.cxx
@@ -1375,6 +1375,15 @@ ScVbaApplication::MenuBars( const uno::Any& aIndex )
     return uno::Any( xMenuBars );
 }
 
+uno::Any SAL_CALL
+ScVbaApplication::Rows( const uno::Any& aIndex )
+{
+    uno::Reference< excel::XWorksheet > xWorksheet( getActiveSheet(), uno::UNO_QUERY );
+    if ( xWorksheet.is() )
+        return uno::Any( xWorksheet->Rows( aIndex ) );
+    return uno::Any();
+}
+
 void SAL_CALL ScVbaApplication::OnKey( const OUString& Key, const uno::Any& Procedure )
 {
     try
diff --git a/sc/source/ui/vba/vbaapplication.hxx b/sc/source/ui/vba/vbaapplication.hxx
index 6c9c58588ada..2fa7e005e400 100644
--- a/sc/source/ui/vba/vbaapplication.hxx
+++ b/sc/source/ui/vba/vbaapplication.hxx
@@ -143,6 +143,7 @@ public:
     virtual double SAL_CALL InchesToPoints( double InchesToPoints ) override;
     virtual void SAL_CALL Volatile( const css::uno::Any& Volatile ) override;
     virtual css::uno::Any SAL_CALL MenuBars( const css::uno::Any& aIndex ) override;
+    virtual css::uno::Any SAL_CALL Rows( const css::uno::Any& aIndex ) override;
     virtual css::uno::Any SAL_CALL Caller( const css::uno::Any& aIndex ) override;
     virtual void SAL_CALL Undo() override;
 


More information about the Libreoffice-commits mailing list