Macro for Ungrouping Presentation
Hello,
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:
Sub UngroupTheOLEs()
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 =
msoLinkedOLEObject Then
Set oShapeRange = oShp.Ungroup
oShapeRange.Group
End If
Next oShp
Next oSld
End Sub
I ran through the Step-In process and the compiler appears to be skipping
the actual ungrouping code. Anyone have a suggestion?
|