«Вертикальное выравнивание текстового поля» до «Посередине» для выбранных строк в PowerPoint с помощью макроса vba

Question

введите описание изображения здесь Я хотел бы создать макрос, который изменит «Вертикальное выравнивание» на «Середину» выбранных строк / ячеек в таблице PowerPoint. Может ли кто-нибудь помочь мне с этим.

Ниже прилагается пример снимка.

Ниже приведен код. Мой код отлично работает с формой, но не может работать с таблицами. Пожалуйста, помогите.

ActiveWindow.Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle

Answer 1

Чтобы приблизиться к таблице, вы не можете использовать объект формы, но вам нужно использовать таблицы. Вы также можете форматировать только ячейку за ячейкой, поэтому вам нужно запустить al oop через все строки и столбцы

----- отредактировано -----

Чтобы использовать выбранные ячейки вам нужно перебрать все ячейки и посмотреть, выбраны ли они

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