VBA code to group picture to export as one

JohnWilson · #2 03-05-2012, 09:10 AM

I struggled with this for years but it is really easy (when you know how!)

Be aware that pictures in placeholders cannot be grouped.

Code:

Sub Group_Pic()
Dim osld As Slide
Dim oshp As Shape
Set osld = ActivePresentation.Slides(1)
'make sure nothing is selected at start or they will be grouped
ActiveWindow.Selection.Unselect
For Each oshp In osld.Shapes
If oshp.Type = msoPicture Then oshp.Select Replace:=False
Next oshp
With ActiveWindow.Selection.ShapeRange
If .Count > 1 Then .Group
End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Powerpoint automatically changing picture size when adding a picture (2010)	One_Life	PowerPoint	7	01-20-2012 06:57 AM
"format picture" - arrows show as no line atop picture	marbeth	Word	3	07-08-2011 02:16 PM
Code to export value from ComboBox	ilkks	Word VBA	7	05-25-2011 04:06 AM
VBA code to export individual task lists to Excel	OTPM	Excel Programming	0	05-24-2011 12:23 PM
How To Export A Picture From Word?	abrogard	Drawing and Graphics	0	08-10-2009 06:27 PM