filter/source/msfilter/svdfppt.cxx | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
New commits:
commit 7abce44fbd7385d6c67c74db10dc0d25a7093abb
Author: Noel Power <noel.po...@suse.com>
Date: Thu Jun 27 10:32:15 2013 +0100
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
diff --git a/filter/source/msfilter/svdfppt.cxx
b/filter/source/msfilter/svdfppt.cxx
index 2e37372..1f1e3a6 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();
}
}
}
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
