通过vba宏将PowerPoint中选定行的“文本框垂直对齐”到“中间”

【问题标题】："Text Box Vertical Alignment" to "Middle" for a selected rows in PowerPoint through vba macro通过vba宏将PowerPoint中选定行的“文本框垂直对齐”到“中间”
【发布时间】：2020-08-08 14:07:20
【问题描述】：

我想创建一个宏，它将 PowerPoint 表格中所选行/单元格的“垂直对齐”更改为“中间”。谁能帮我解决这个问题。

下面附上示例快照。

下面是代码。我的代码完全适用于形状，但不适用于表格。请帮忙。

ActiveWindow.Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle

【问题讨论】：

标签： vba powerpoint

【解决方案1】：

要接近表格，您不能使用形状对象，但需要使用表格。您也可以仅按单元格设置格式，因此您需要循环遍历所有行和列

-----已编辑-----

要使用选定的单元格，您必须遍历所有单元格并查看它们是否被选中

Sub SelectedCells()
Dim oTbl As table
Dim iIdx As Integer
Dim iIdy As Integer
Set oTbl = ActiveWindow.Selection.ShapeRange(1).table
For iIdx = 1 To oTbl.Rows.Count
    For iIdy = 1 To oTbl.Columns.Count
        If oTbl.Cell(iIdx, iIdy).Selected Then
            With oTbl.Cell(iIdx, iIdy).Shape
            .TextFrame.VerticalAnchor = msoAnchorTop
            End With
        End If
    Next
Next
End Sub

【讨论】：

谢谢。但是我们是否可以通过其他方式将“顶部对齐”仅应用于选定的行/单元格，而不是整个表格。