I am trying to write a macro that would take all the images in a
presentation and ungroup them. However, I cannot get it to work correctly.
Here is the code:
Dim oSlides As Slides
Dim oSld As Slide
Dim oShapes As Shapes
Dim oShp As Shape
Dim oShapeRange As ShapeRange
Set oSlides = ActiveWindow.Presentation.Slides
For Each oSld In oSlides
Set oShapes = oSld.Shapes
For Each oShp In oShapes
If oShp.Type = msoEmbeddedOLEObject Or oShp.Type =
Set oShapeRange = oShp.Ungroup
I ran through the Step-In process and the compiler appears to be skipping
the actual ungrouping code. Anyone have a suggestion?