From fdb42c397f1d15d05a74492a233df72d832cab1c Mon Sep 17 00:00:00 2001
From: Noel Power <noel.power@suse.com>
Date: Wed, 3 Oct 2012 10:04:29 +0100
Subject: [PATCH] fix for fdo#55565 regression, failure to export vertical text
 in shape

Change-Id: If3d6413b1fb9e02dc26f930634f84712d7d08ca3
---
 oox/source/export/drawingml.cxx | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/oox/source/export/drawingml.cxx b/oox/source/export/drawingml.cxx
index ce9ff77d8026..db61ef990d06 100644
--- a/oox/source/export/drawingml.cxx
+++ b/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 );