group objects

[jasman]

Hi. I have the following code but i get erro 438 : Object doesnt support this property/method.

I have multiple pictures in the worksheet which on clicking the button i need to select all and group them. However the number of pictures changes all the time so i need to select all and cant specify an array.

Private Sub CommandButton2_Click()
Sheet2.Shapes.SelectAll
Selection.ShapeRange.Group.Select
End Sub

 

[Andrew Poulsom]

It's the Select that causes the error. Try:

Private Sub CommandButton2_Click()
    Sheet2.Shapes.SelectAll
    Selection.ShapeRange.Group
    Sheet2.Shapes(1).Select
End Sub

 

[jasman]

thanks but i still get the same message

 

[Andrew Poulsom]

I tested the code before posting it. Which line is causing the error?

 

[jasman]

Selection.ShapesRange.Group
this line gets highlighted in yellow

 

[Andrew Poulsom]

It's ShapeRange not ShapesRange.

 

[jasman]

its still the same even with ShapeRange

 

[Andrew Poulsom]

Sorry, I can't reproduce your error. Can you group all the shapes manually?

Edit:

When I did it manually the macro recorder gave me:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 25/02/2011 by Andrew
'
'
    ActiveSheet.DrawingObjects.Select
    Selection.ShapeRange.Group.Select
End Sub

 

[jasman]

i got it to work with this:
Sheets("Sheet2").Select
ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.Group.Select

thanks 4 help thou