ppt dosyasında resimleri ungruop yapma

[Kemal Demir]

Günaydın arkadaslar,

ppt dosyamdaki ( 158 adet slide var ) slidelara tek tek bakarak varsa içerisinde resim objeleri(gruop yapılmıs halde )

nasıl UnGruop yapabiliriz?

Bir kod yazılabilir mi acaba?

Teşekkurler.

 

[Kemal Demir]

Arkadaslar çözüme kavustum.

Paylaşmak istedim.

Sub Makro1()
On Error Resume Next
Application.WindowState = ppWindowMinimized
For Each myDocument In ActivePresentation.Slides
   myDocument.Select
   For Each s In myDocument.Shapes
       s.Ungroup
       DoEvents
   Next
Next
Application.WindowState = ppWindowNormal
MsgBox "Bitti"
End Sub