如何使PowerPoint表中选定的列具有相同的宽度?

我以前在某个地方回答过这个问题,似乎找不到参考资料。下面是您需要的代码,只需确保您选择了要均匀分布的列

Sub DistributeSelectedColumnsEvenly() 
Dim sel As Selection 
Set sel = ActiveWindow.Selection 
Dim fColumn As Integer 
fColumn = 0 
Dim lColumn As Integer 
Dim columnsWidth As Integer 

With sel 
    If .Type = ppSelectionShapes Then 
        If .ShapeRange.Type = msoTable Then 
            Dim tbl As Table 
            Set tbl = .ShapeRange.Table 
            Dim tblColumnCount As Integer 
            tblColumnCount = tbl.Columns.Count 
            For colNum = 1 To tblColumnCount 
                If tbl.Cell(1, colNum).Selected Then 
                columnsWidth = columnsWidth + tbl.Cell(1, colNum).Parent.Columns(colNum).Width 
                    If fColumn = 0 Then 
                        fColumn = colNum 
                    End If 
                    lColumn = colNum 
                End If 
            Next 
            Dim columnCount As Integer 
            columnCount = (lColumn - fColumn) + 1 
            Dim columnWidth As Integer 
            columnWidth = columnsWidth / columnCount 
            For columnIndex = fColumn To lColumn 
                tbl.Columns(columnIndex).Width = columnWidth 
            Next 
        End If 
    End If 
End With 
End Sub