如何使用 VBA 在 PowerPoint 中的 table 中设置单元格垂直对齐?

How to set a cells vertical alignment in a table in PowerPoint with VBA?

在 PowerPoint 中使用 VBA 我试图将一个单元格(在 table 内)设置为垂直对齐方式 属性。在 PowerPoint 中,可以通过“布局”访问此 属性(当焦点位于单元格上时),单击单元格边距,单击自定义边距。你会在那里看到垂直对齐。

我已经知道如何更改内部边距了:

With objTable.Rows(the_row).Cells(the_col).Shape.TextFrame.MarginLeft = ' value in points.

谢谢

您可以通过以下方式访问和更改它:

objTable.Rows(the_row).Cells(the_col).Shape.TextFrame.VerticalAnchor = msoAnchorMiddle

https://docs.microsoft.com/en-us/office/vba/api/powerpoint.textframe.verticalanchor