VBA - Ungroup a Table in PowerPoint

Question

I am looking for an automated way to ungroup a table in power point to create shapes.

I found the following tutorial:

Further, I wanted to record the macro(I am quite new to vba), however in power point 2010 the macro recorder is not available any more. Any suggestions, how to create the above tutorial in vba?

I appreciate your replies!

Steve Rindsberg · Accepted Answer · 2016-08-23 15:11:09Z

1

Here's an example to get you started. Be sure to select the table you want to work with first.

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

answered Aug 23, 2016 at 15:11

Steve Rindsberg

14.9k1 gold badge32 silver badges37 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBA - Ungroup a Table in PowerPoint

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related