i#119870: Line transparency value is lost after saving as another ppt by AOO

fix: export linetransparency attribute

Patch By: Lei Debin
Found By: phoenix wanglf
Review By: jsc

Change-Id: I56a589036d1e4e2399f5a1a94283ebd4ce2126f0
(cherry picked from commit b82ed78c)
Reviewed-on: https://gerrit.libreoffice.org/2727Reviewed-by: Fridrich Strba <fridrich@documentfoundation.org>
Tested-by: Fridrich Strba <fridrich@documentfoundation.org>

filter/source/msfilter/escherex.cxx

@@ -978,6 +978,15 @@ void EscherPropertyContainer::CreateLineProperties(
     }
     AddOpt( ESCHER_Prop_lineJoinStyle, eLineJoin );
 
+    if ( EscherPropertyValueHelper::GetPropertyValue(
+        aAny, rXPropSet, String( RTL_CONSTASCII_USTRINGPARAM( "LineTransparence" ) ), sal_True ) )
+    {
+        sal_Int16 nTransparency = 0;
+        if ( aAny >>= nTransparency )
+            AddOpt( ESCHER_Prop_lineOpacity, ( ( 100 - nTransparency ) << 16 ) / 100 );
+    }
+
+
     if ( bEdge == sal_False )
     {
         AddOpt( ESCHER_Prop_fFillOK, 0x1001 );