VBA - PowerPoint에서 테이블 그룹 해제

Question

나는 파워 포인트에서 테이블을 그룹화하여 모양을 만드는 자동화 된 방법을 찾고 있습니다. 매크로 레코더는 더 이상 사용할 수 없습니다 그러나 파워 포인트 2010,

Tutorial

는 또한, 내가 매크로를 (내가 VBA를 아주 새로운 오전)를 기록하고 싶었 :

나는 다음 자습서를 발견했다. 어떤 제안, 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