diff options
author | Noel Power <noel.power@suse.com> | 2013-06-27 10:32:15 +0100 |
---|---|---|
committer | Noel Power <noel.power@suse.com> | 2013-06-27 10:36:07 +0100 |
commit | 7abce44fbd7385d6c67c74db10dc0d25a7093abb (patch) | |
tree | 621df1bf29e1ddb08972bb8d327b001173c4f5ca /filter/source/msfilter | |
parent | 11eb95f74088ff830f6aa994250ef18335ca70c2 (diff) |
roundtrip VBA project blob for ppt
Need to save out the VBA project storage to ensure we don't get any
nasty warnings trying to open ppt files containing old controls
Change-Id: Ic2ff3ac5863ee3b901b1ee48f7d45e82dcb27ff9
Diffstat (limited to 'filter/source/msfilter')
-rw-r--r-- | filter/source/msfilter/svdfppt.cxx | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/filter/source/msfilter/svdfppt.cxx b/filter/source/msfilter/svdfppt.cxx index 2e37372e7438..1f1e3a66ca36 100644 --- a/filter/source/msfilter/svdfppt.cxx +++ b/filter/source/msfilter/svdfppt.cxx @@ -2008,12 +2008,10 @@ void SdrPowerPointImport::SeekOle( SfxObjectShell* pShell, sal_uInt32 nFilterOpt } if ( i && bCopied ) { - SvxImportMSVBasic aMSVBas( *pShell, *xDest ); - uno::Reference < embed::XStorage > xDoc( pShell->GetStorage() ); if ( xDoc.is() ) { - SotStorageRef xVBA = SotStorage::OpenOLEStorage( xDoc, String( RTL_CONSTASCII_USTRINGPARAM( "_MS_VBA_Macros" ) ) ); + SotStorageRef xVBA = SotStorage::OpenOLEStorage( xDoc, SvxImportMSVBasic::GetMSBasicStorageName() ); if ( xVBA.Is() && ( xVBA->GetError() == SVSTREAM_OK ) ) { SotStorageRef xSubVBA = xVBA->OpenSotStorage( String( RTL_CONSTASCII_USTRINGPARAM( "_MS_VBA_Overhead" ) ) ); @@ -2048,6 +2046,7 @@ void SdrPowerPointImport::SeekOle( SfxObjectShell* pShell, sal_uInt32 nFilterOpt } } } + xVBA->Commit(); } } } |