If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
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? |
Thread Tools | |
Display Modes | |
|
|