Powerpoint VBA - 自动调整列

Question

我真的是vba的初学者，但我一直在困惑如何让它发挥作用。我正在使用Excel vba创建一个powerpoint演示文稿，基于Excel工作表中的数据，在新创建的powerpoint演示文稿中的幻灯片上创建一个表。我已经完成了表格格式化，这是一个真正的麻烦，通过遍历每个单独的单元格并格式化它们（循环，但仍然）....

唯一缺少的是单个列宽。根据输入数据，某些列的宽度可能会发生变化，

由于这个原因，我希望只对列进行自动调整。行应保持1行高。但是列宽应该适应于将行高保持在1行所需的任何内容。

Dim PPTtable1 As PowerPoint.Shape
With PPTtable1
    .Left = 350
    .Top = 150
    .Width = 758
    .table.Columns(1).Width = Auto
    .table.Columns(2).Width = Auto
    .table.Columns(3).Width = Auto
End With

这会通过拉伸单元格的高度来使列尽可能小。基本上我需要的是双击柱子侧边的功能，它会自动适合正确的宽度。

编辑： 也许知道代码的顺序会很有趣也很重要：

1. 创建表
2. 单个单元格的格式（粗体，斜体，大小，字体等）
3. 数据从Excel工作表中填写
4. 尝试自动调整列