Powerpoint VBA - 均匀分布列

Question

我正在使用PowerPoint 2000，它没有2003和更新版本的均匀分布功能的分布列。有谁知道什么VBA代码将用于均匀分发选定的表格列？我知道如何通过查找表格宽度，除以列数，并将每列的宽度调整为该分割的宽度来完成整个表格。但是，我有问题只适用于例如右列7列中的5列）

Answer 1

获取要尝试分发的列的宽度总和，然后除以列数。

Answer 2

这将为你做的伎俩。只需确保在运行时选择了列。

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