#42 : Fix "BUG: Repair Error / Wrong anchor if you don't set vertical alignment different to VERTICAL_BASE"

Author: Progi1984

CHANGELOG.md

@@ -9,6 +9,7 @@
 
 ### Bugfix
 - PowerPoint2007 Writer : Powerpoint Repair Error in Office 2010 - @Progi1984 GH-39
+- PowerPoint2007 Writer : BUG: Repair Error / Wrong anchor if you don't set vertical alignment different to VERTICAL_BASE - @fregge GH-42
 
 ### Miscellaneous
 - QA : Move AbstractType for Chart - @Progi1984

src/PhpPowerpoint/Writer/PowerPoint2007/Slide.php

@@ -419,7 +419,10 @@ private function writeShapeText(XMLWriter $objWriter, RichText $shape, $shapeId)
 
         // a:bodyPr
         $objWriter->startElement('a:bodyPr');
-        $objWriter->writeAttribute('anchor', $shape->getActiveParagraph()->getAlignment()->getVertical());
+        $verticalAlign = $shape->getActiveParagraph()->getAlignment()->getVertical();
+        if ($verticalAlign != Alignment::VERTICAL_BASE && $verticalAlign != Alignment::VERTICAL_AUTO) {
+            $objWriter->writeAttribute('anchor', $verticalAlign);
+        }
         $objWriter->writeAttribute('wrap', $shape->getWrap());
         $objWriter->writeAttribute('rtlCol', '0');
 
@@ -624,9 +627,9 @@ private function writeShapeTable(XMLWriter $objWriter, Table $shape, $shapeId)
                 $objWriter->startElement('a:tcPr');
                 // Alignment (horizontal)
                 $firstParagraph  = $currentCell->getParagraph(0);
-                $horizontalAlign = $firstParagraph->getAlignment()->getVertical();
-                if ($horizontalAlign != Alignment::VERTICAL_BASE && $horizontalAlign != Alignment::VERTICAL_AUTO) {
-                    $objWriter->writeAttribute('anchor', $horizontalAlign);
+                $verticalAlign = $firstParagraph->getAlignment()->getVertical();
+                if ($verticalAlign != Alignment::VERTICAL_BASE && $verticalAlign != Alignment::VERTICAL_AUTO) {
+                    $objWriter->writeAttribute('anchor', $verticalAlign);
                 }
 
                 // Determine borders

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

@@ -53,6 +53,40 @@ public function testConstructException()
         $oSlide = new Slide();
         $oSlide->writeSlide();
     }
+
+    /**
+     * @link https://github.com/PHPOffice/PHPPowerPoint/issues/42
+     */
+    public function testAlignmentShapeAuto()
+    {
+        $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_AUTO);
+    
+        $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->assertFalse($pres->attributeElementExists($element, 'anchor', 'ppt/slides/slide1.xml'));
+    }
+    
+    /**
+     * @link https://github.com/PHPOffice/PHPPowerPoint/issues/42
+     */
+    public function testAlignmentShapeBase()
+    {
+        $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_BASE);
+    
+        $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->assertFalse($pres->attributeElementExists($element, 'anchor', 'ppt/slides/slide1.xml'));
+    }
 
     /**
      * @link https://github.com/PHPOffice/PHPPowerPoint/issues/35