vba可以按列而不是行或单个单元格格式化表格

Question

我在Excel 2010工作簿中有vba，它创建了Powerpoint 2010幻灯片。这些幻灯片包含从Excel工作簿中的相同表填充的表。

我想将对齐，数字格式和边距（至少对于初学者）应用于PP幻灯片表中的单元格。

我找到了通过遍历行格式化表格单元格并一次格式化该行中每个单元格的解决方案，但是我的表格通常是列导向的，这使得行解决方案不合需要（而且速度慢）。 p>

这是我当前的面向行的代码：

Set shapetable = activeSlide.Shapes.AddTable(numRows, 8)
With shapetable
    With .Table
       For iRow = 1 To .Rows.Count
          For Each cl In .Rows(iRow).Cells
             With cl.Shape.TextFrame
                .TextRange.Font.Size = "8"
                .TextRange.ParagraphFormat.Alignment = msoTextEffectAlignmentCentered
             End With
          Next cl
       Next iRow
    End With
End With

是不是可以简单地遍历表格的列并“按列”设置这些格式？