ADD vertical alos need horz sometimes

ADD vertical alos need horz sometimes

Author: devX2712

src/PhpPresentation/Writer/PowerPoint2007/AbstractSlide.php

@@ -258,6 +258,9 @@ protected function writeShapeText(XMLWriter $objWriter, RichText $shape, int $sh
             if ($shape->isVertical()) {
                 $objWriter->writeAttribute('vert', 'vert');
             }
+            else {
+                $objWriter->writeAttribute('vert', 'horz');
+            }
             $objWriter->writeAttribute('bIns', CommonDrawing::pixelsToEmu($shape->getInsetBottom()));
             $objWriter->writeAttribute('lIns', CommonDrawing::pixelsToEmu($shape->getInsetLeft()));
             $objWriter->writeAttribute('rIns', CommonDrawing::pixelsToEmu($shape->getInsetRight()));