Como eu selecionaria e agruparia várias imagens da planilha do Excel?

Question

Estou tendo um problema com Selection.ShapeRange.Group.Select; se ele for removido, ficarei com apenas a seleção de todas as minhas imagens na planilha ativa. Eu gostaria de agrupar as imagens em cada planilha em uma única pasta de trabalho. Neste caso, tenho 6 imagens por planilha.

O que eu preciso adicionar / modificar para essa macro para agrupar as imagens em um objeto? Estou usando o Excel 2010.

  Sub GroupShapes()

     Dim Current As Worksheet

     ' Loop through all of the worksheets in the active workbook.
     For Each Current In Worksheets

            Current.Shapes.SelectAll
            Selection.ShapeRange.Group.Select

     Next

  End Sub

    

Answer 1

Tente este:

Sub GroupShapes()

   Dim Current As Worksheet

   ' Loop through all of the worksheets in the active workbook.
   On Error Resume Next
   For Each Current In Worksheets
      Current.DrawingObjects.ShapeRange.Group
   Next

End Sub

Você não precisa realmente selecionar as formas primeiro. Você pode agir diretamente sobre eles. Ele lança um erro se não houver formas, por isso dizemos a ele para continuar assim mesmo com On Error Resume Next