ODFstudio/odfstudio
2
0
Fork 0
Code Issues Packages Activity

Add Rows() method to ooo.vba.excel.XApplication

Browse Source 
Change-Id: I7e1d83539153eede300b2b24f2fa6796859d299c
This commit is contained in:
Tor Lillqvist
2019-04-01 22:11:37 +03:00
parent 9634f5ee73
commit d4202e3ecd
3 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
oovbaapi/ooo/vba/excel/XApplication.idl
+1
View File
@@ -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();
};
sc/source/ui/vba/vbaapplication.cxx
+9
View File
@@ -1372,6 +1372,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
sc/source/ui/vba/vbaapplication.hxx
+1
View File
@@ -142,6 +142,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;