presentation: support vertical text anchoring

This commit is contained in:
Todd 2017-11-20 19:11:18 -06:00
parent adffc05b78
commit 320ce7148f

View File

@ -32,3 +32,9 @@ func (t TextBox) Properties() drawing.ShapeProperties {
}
return drawing.MakeShapeProperties(t.x.SpPr)
}
// SetTextAnchor controls the text anchoring
func (t TextBox) SetTextAnchor(a dml.ST_TextAnchoringType) {
t.x.TxBody.BodyPr = dml.NewCT_TextBodyProperties()
t.x.TxBody.BodyPr.AnchorAttr = a
}