oox: drawingML import/export of <wps:bodyPr vert="vert270"> for textboxes

As in, for shapes which have textboxes. CppunitTest_sw_ooxmlsdrexport's
testFdo69636 is a reproducer for this problem.

Change-Id: I6575d21b0802ada7f334ca9fbbea796605708ddd

oox/source/export/drawingml.cxx

@@ -1717,6 +1717,11 @@ void DrawingML::WriteText( Reference< XInterface > rXIface, bool bBodyPr, bool b
                         sWritingMode = "vert";
                         bVertical = true;
                     }
+                    else if ( nTextRotateAngle == -270 )
+                    {
+                        sWritingMode = "vert270";
+                        bVertical = true;
+                    }
                     break;
                 }
             }

oox/source/shape/WpsContext.cxx

@@ -56,8 +56,12 @@ oox::core::ContextHandlerRef WpsContext::onCreateContext(sal_Int32 nElementToken
     case XML_bodyPr:
         if (mxShape.is())
         {
+            uno::Reference<lang::XServiceInfo> xServiceInfo(mxShape, uno::UNO_QUERY);
+            uno::Reference<beans::XPropertySet> xPropertySet(mxShape, uno::UNO_QUERY);
             OptValue<OUString> oVert = rAttribs.getString(XML_vert);
             if (oVert.has() && oVert.get() == "vert270")
+            {
+                if (xServiceInfo->supportsService("com.sun.star.text.TextFrame"))
                 {
                     // No support for this in core, work around by char rotation, as we do so for table cells already.
                     uno::Reference<text::XText> xText(mxShape, uno::UNO_QUERY);
@@ -68,13 +72,18 @@ oox::core::ContextHandlerRef WpsContext::onCreateContext(sal_Int32 nElementToken
                     beans::PropertyState aState = xPropertyState->getPropertyState("CharRotation");
                     if (aState == beans::PropertyState_DEFAULT_VALUE)
                     {
-                    uno::Reference<beans::XPropertySet> xPropertySet(xTextCursor, uno::UNO_QUERY);
-                    xPropertySet->setPropertyValue("CharRotation", uno::makeAny(sal_Int16(900)));
+                        uno::Reference<beans::XPropertySet> xTextCursorPropertySet(xTextCursor, uno::UNO_QUERY);
+                        xTextCursorPropertySet->setPropertyValue("CharRotation", uno::makeAny(sal_Int16(900)));
+                    }
+                }
+                else
+                {
+                    comphelper::SequenceAsHashMap aCustomShapeGeometry(xPropertySet->getPropertyValue("CustomShapeGeometry"));
+                    aCustomShapeGeometry["TextPreRotateAngle"] = uno::makeAny(sal_Int32(-270));
+                    xPropertySet->setPropertyValue("CustomShapeGeometry", uno::makeAny(aCustomShapeGeometry.getAsConstPropertyValueList()));
                 }
             }
 
-            uno::Reference<lang::XServiceInfo> xServiceInfo(mxShape, uno::UNO_QUERY);
-            uno::Reference<beans::XPropertySet> xPropertySet(mxShape, uno::UNO_QUERY);
             if (xServiceInfo.is())
             {
                 bool bTextFrame = xServiceInfo->supportsService("com.sun.star.text.TextFrame");