VBA - PowerPointでテーブルのグループを解除する

Question

私は、PowerPointでテーブルをグループ化してシェイプを作成する自動化された方法を探しています。私は次のチュートリアル見つけ

：さらに

Tutorial

を、私はマクロを記録したかった（私はVBAにはかなり新しいです）、しかし、2010年のパワー・ポイントにマクロレコーダーはもはや利用できません。任意の提案、どのようにVBAの上のチュートリアルを作成するには？

返信いただきありがとうございます。

Answer 1

ここでは、開始するための例を示します。まず作業するテーブルを選択してください。

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