#i119559# fix vertical text in *ppt export

Patch by: Lei Debin, Wang Zhe
Found by: Li Feng Wang
Review by: Herbert Duerr

filter/source/msfilter/escherex.cxx

@@ -30,6 +30,7 @@
 #include <svx/svdoashp.hxx>
 #include <svx/svdoole2.hxx>
 #include <svx/svdmodel.hxx>
+#include <editeng/outlobj.hxx>
 #include <vcl/gradient.hxx>
 #include <vcl/graph.hxx>
 #include <vcl/cvtgrf.hxx>
@@ -3113,6 +3114,12 @@ void EscherPropertyContainer::CreateCustomShapeProperties( const MSO_SPT eShapeT
                                 }
                             }
                         }
+                        if((nTextPathFlags & 0x4000) != 0)  //Is Font work
+                        {
+                            OutlinerParaObject* pOutlinerParaObject = pCustoShape->GetOutlinerParaObject();
+                            if ( pOutlinerParaObject && pOutlinerParaObject->IsVertical() )
+                                nTextPathFlags |= 0x2000;
+                        }
                         if ( nTextPathFlags != nTextPathFlagsOrg )
                             AddOpt( DFF_Prop_gtextFStrikethrough, nTextPathFlags );
                     }