&引用；“文本框垂直对齐”；至；“中”；对于PowerPoint中通过vba宏选定的行

我想创建一个宏，将PowerPoint表格中选定行/单元格的“垂直对齐”更改为“中间”。谁能帮我一下吗

下面附快照示例

下面是代码。我的代码可以完美地处理形状，但无法处理表格。请帮忙

ActiveWindow.Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle

---

要接近表格，不能使用形状对象，但需要使用表格。 还可以逐个单元格设置格式，因此需要在所有行和列中运行循环

-----编辑-----

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

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

---

谢谢你。但是，我们是否有其他方法仅对选定的行/单元格而不是整个表应用“顶部对齐”。