implement Application.Undo

Change-Id: Ibba3c5e2c617daea70fb75b3235636620a46f9ff
2013-05-03 15:32:29 +01:00
parent 894a0348dc
commit c087feeefb
3 changed files with 11 additions and 0 deletions
--- a/sc/source/ui/vba/vbaapplication.cxx
+++ b/sc/source/ui/vba/vbaapplication.cxx
@@ -1309,6 +1309,15 @@ void SAL_CALL ScVbaApplication::OnKey( const OUString& Key, const uno::Any& Proc
    }
 }

+void SAL_CALL ScVbaApplication::Undo() throw (uno::RuntimeException)
+{
+    uno::Reference< frame::XModel > xModel( getThisExcelDoc( mxContext ), uno::UNO_SET_THROW );
+
+    ScTabViewShell* pViewShell = excel::getBestViewShell( xModel );
+    if ( pViewShell )
+        dispatchExecute( pViewShell, SID_UNDO );
+}
+
 OUString
 ScVbaApplication::getServiceImplName()
 {