#35 : Fix Vertical Alignment for RichText Shapes in PowerPoint2007

Author: Progi1984

src/PhpPowerpoint/Writer/PowerPoint2007/Slide.php

@@ -419,6 +419,7 @@ private function writeShapeText(XMLWriter $objWriter, RichText $shape, $shapeId)
 
         // a:bodyPr
         $objWriter->startElement('a:bodyPr');
+    	$objWriter->writeAttribute('anchor', $shape->getActiveParagraph()->getAlignment()->getVertical());
         $objWriter->writeAttribute('wrap', $shape->getWrap());
         $objWriter->writeAttribute('rtlCol', '0');
 

tests/PhpPowerpoint/Tests/Writer/PowerPoint2007/SlideTest.php

@@ -54,6 +54,57 @@ public function testConstructException()
         $oSlide->writeSlide();
     }
 
+    /**
+     * @link https://github.com/PHPOffice/PHPPowerPoint/issues/35
+     */
+    public function testAlignmentShapeBottom()
+    {
+        $phpPowerPoint = new PhpPowerpoint();
+        $oSlide = $phpPowerPoint->getActiveSlide();
+        $oShape = $oSlide->createRichTextShape()->setWidth(400)->setHeight(400)->setOffsetX(100)->setOffsetY(100);
+        $oShape->createTextRun('this text should be vertically aligned');
+        $oShape->getActiveParagraph()->getAlignment()->setVertical(Alignment::VERTICAL_BOTTOM);
+        
+        $pres = TestHelperDOCX::getDocument($phpPowerPoint, 'PowerPoint2007');
+        $element = '/p:sld/p:cSld/p:spTree/p:sp/p:txBody/a:bodyPr';
+        $this->assertTrue($pres->elementExists($element, 'ppt/slides/slide1.xml'));
+        $this->assertEquals(Alignment::VERTICAL_BOTTOM, $pres->getElementAttribute($element, 'anchor', 'ppt/slides/slide1.xml'));
+    }
+    
+    /**
+     * @link https://github.com/PHPOffice/PHPPowerPoint/issues/35
+     */
+    public function testAlignmentShapeCenter()
+    {
+        $phpPowerPoint = new PhpPowerpoint();
+        $oSlide = $phpPowerPoint->getActiveSlide();
+        $oShape = $oSlide->createRichTextShape()->setWidth(400)->setHeight(400)->setOffsetX(100)->setOffsetY(100);
+        $oShape->createTextRun('this text should be vertically aligned');
+        $oShape->getActiveParagraph()->getAlignment()->setVertical(Alignment::VERTICAL_CENTER);
+        
+        $pres = TestHelperDOCX::getDocument($phpPowerPoint, 'PowerPoint2007');
+        $element = '/p:sld/p:cSld/p:spTree/p:sp/p:txBody/a:bodyPr';
+        $this->assertTrue($pres->elementExists($element, 'ppt/slides/slide1.xml'));
+        $this->assertEquals(Alignment::VERTICAL_CENTER, $pres->getElementAttribute($element, 'anchor', 'ppt/slides/slide1.xml'));
+    }
+    
+    /**
+     * @link https://github.com/PHPOffice/PHPPowerPoint/issues/35
+     */
+    public function testAlignmentShapeTop()
+    {
+        $phpPowerPoint = new PhpPowerpoint();
+        $oSlide = $phpPowerPoint->getActiveSlide();
+        $oShape = $oSlide->createRichTextShape()->setWidth(400)->setHeight(400)->setOffsetX(100)->setOffsetY(100);
+        $oShape->createTextRun('this text should be vertically aligned');
+        $oShape->getActiveParagraph()->getAlignment()->setVertical(Alignment::VERTICAL_TOP);
+        
+        $pres = TestHelperDOCX::getDocument($phpPowerPoint, 'PowerPoint2007');
+        $element = '/p:sld/p:cSld/p:spTree/p:sp/p:txBody/a:bodyPr';
+        $this->assertTrue($pres->elementExists($element, 'ppt/slides/slide1.xml'));
+        $this->assertEquals(Alignment::VERTICAL_TOP, $pres->getElementAttribute($element, 'anchor', 'ppt/slides/slide1.xml'));
+    }
+    
     public function testDrawingShapeBorder()
     {
         $phpPowerPoint = new PhpPowerpoint();