Hi guys,
i copied shapes in Excel and insert them in a PowerPoint-Slide. Next i grouped the inserted Shapes on the Slide.
Now i want to resize the whole Group of shapes on my slide like Group.width = 200 or sth like that.
Dim s As Shape
Dim r As Range
For Each s In Sheet7.Shapes
If Not Intersect(Range("A1:S44"), s.TopLeftCell) Is Nothing Then 'B9:I25
's.Delete 'Copy and Paste in PowerPoint
s.Select Replace:=False
End If
Next s
Selection.Copy
PPslide.Shapes.PasteSpecial
'Adjust the positioning of the Shapes on Powerpoint Slide
PPslide.Shapes.SelectAll
ppApp.ActiveWindow.Selection.ShapeRange.Group 'know the shapes on the PowerPoint-Slide are grouped
--> Here i Need some Code from you, please
Bookmarks