diff -urN ooo_DEV300_m84_src.orig/vbahelper/source/vbahelper/vbahelper.cxx ooo_DEV300_m84_src/vbahelper/source/vbahelper/vbahelper.cxx
--- ooo_DEV300_m84_src.orig/vbahelper/source/vbahelper/vbahelper.cxx	2010-07-01 07:47:40.000000000 +0200
+++ ooo_DEV300_m84_src/vbahelper/source/vbahelper/vbahelper.cxx	2010-07-01 07:47:51.000000000 +0200
@@ -835,7 +835,7 @@
 double PixelsToPoints( css::uno::Reference< css::awt::XDevice >& xDevice, double fPixels, sal_Bool bVertical)
 {
 	double fConvertFactor = getPixelTo100thMillimeterConversionFactor( xDevice, bVertical );
-	return HmmToPoints( fPixels/fConvertFactor );
+	return HmmToPoints( static_cast<sal_Int32>(fPixels/fConvertFactor) );
 }
 
 sal_Int32 PointsToHmm( double fPoints )
@@ -1065,7 +1065,7 @@
     {
         mxModel->setPropertyValue(
                 rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( VBA_LEFT ) ),
-                uno::makeAny( ConvertPixelToLogic( nLeft,
+                uno::makeAny( ConvertPixelToLogic( static_cast<sal_Int32>(nLeft),
                                                    sal_True, // Point
                                                    sal_True, // X
                                                    util::MeasureUnit::APPFONT ) ) );
@@ -1117,7 +1117,7 @@
     {
         mxModel->setPropertyValue(
                 rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( VBA_TOP ) ),
-                uno::makeAny( ConvertPixelToLogic( nTop,
+                uno::makeAny( ConvertPixelToLogic( static_cast<sal_Int32>(nTop),
                                                    sal_True, // Point
                                                    sal_False, // Y
                                                    util::MeasureUnit::APPFONT ) ) );
@@ -1169,7 +1169,7 @@
     {
         mxModel->setPropertyValue(
                 rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( VBA_WIDTH ) ),
-                uno::makeAny( ConvertPixelToLogic( nWidth,
+                uno::makeAny( ConvertPixelToLogic( static_cast<sal_Int32>(nWidth),
                                                    sal_False, // Size
                                                    sal_True, // X
                                                    util::MeasureUnit::APPFONT ) ) );
@@ -1221,7 +1221,7 @@
     {
         mxModel->setPropertyValue(
                 rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( VBA_HEIGHT ) ),
-                uno::makeAny( ConvertPixelToLogic( nHeight,
+                uno::makeAny( ConvertPixelToLogic( static_cast<sal_Int32>(nHeight),
                                                    sal_False, // Size
                                                    sal_False, // Y
                                                    util::MeasureUnit::APPFONT ) ) );