VBA

Question

我正在寻找一种自动方法来取消 table 在 power point 中的组合以创建形状。

我找到了以下教程：

Tutorial

此外，我想录制宏（我对 vba 很陌生），但是在 power point 2010 中，宏录制器不再可用。任何建议，如何在 vba?

中创建上述教程

感谢您的回复！

Answer 1

这是一个让您入门的示例。请务必先 select 您要使用的 table。

Sub PasteAndUngroup()
    Dim oSh As Shape
    Dim oSl As Slide

    Set oSh = ActiveWindow.Selection.ShapeRange(1)
    Set oSl = oSh.Parent

    oSh.Copy

    Set oSh = oSl.Shapes.PasteSpecial(ppPasteEnhancedMetafile)(1)

    oSh.Ungroup

End Sub

VBA - 在 PowerPoint 中取消组合 Table

VBA - Ungroup a Table in PowerPoint

powerpoint