VBA ungroup Shape (SmartArt)

[michael24B]

Does anyone know how to ungroup SmartArt element via VBA? Sub UngroupSmartArt() Dim shapeWithSmartArt As Shape Set shapeWithSmartArt = ActivePresentation.Slides(2).Shapes(2) shapeWithSmartArt.Ungroup End Sub I get an error for this code: "This member can only be accessed for a group." It doesn't make any sense to me, because it's easily possible to do it in powerpoint itself (Right click on SmartArt -> Group -> Ungroup). It's driving me nuts Can anyone help me with ungrouping SmartArt element/shape? I also took a look on similar question on stackoverflow (stackoverflow.com/questions/26977130/cannot-ungroup-a-powerpoint-smartart-shape), but it doesn't work properly, because ungrouped result is different in comparison to the one made via powerpoint itself. Please help me out. I would really appreciate any help!

[John Wilson]

Before you spend time on this it looks like a cross post and the other post has an answer (or two)

Cross Post

[Paul_Hossler]

@michael24B

@michael24B - welcome to the forums

Please read the FAQ, esp the one about multi-posting

http://www.vbaexpress.com/forum/faq...._new_faq_item3, and the link http://www.excelguru.ca/node/7


I added the [CODE] tags around your macro, so next time if your click the [#] icon, you can get the [ CODE ] ... [ \CODE ] tags to paste your macro between