fix for fdo#55565 regression, failure to export vertical text in shape

Change-Id: If3d6413b1fb9e02dc26f930634f84712d7d08ca3

oox/source/export/drawingml.cxx

@@ -1241,6 +1241,27 @@ void DrawingML::WriteText( Reference< XInterface > rXIface  )
         }
     }
 
+    if ( GETA( CustomShapeGeometry ) )
+    {
+        Sequence< PropertyValue > aProps;
+        if ( mAny >>= aProps )
+        {
+            for ( sal_Int32 i = 0, nElems = aProps.getLength(); i < nElems; ++i )
+            {
+                sal_Int32 nTextRotateAngle = 0;
+                if ( aProps[ i ].Name.equals( "TextPreRotateAngle" ) && ( aProps[ i ].Value >>= nTextRotateAngle ) )
+                {
+                    if ( nTextRotateAngle == -90 )
+                    {
+                        sWritingMode = "vert";
+                        bVertical = sal_True;
+                    }
+                    break;
+                }
+            }
+        }
+    }
+
     TextHorizontalAdjust eHorizontalAlignment( TextHorizontalAdjust_CENTER );
     bool bHorizontalCenter = false;
     GET( eHorizontalAlignment, TextHorizontalAdjust );