Как выбрать и сгруппировать несколько изображений из таблицы Excel?

Question

У меня проблема с выбором.ShapeRange.Группа.Выберите, если он удален, мне остается только выбрать все мои изображения на активном листе. Я хотел бы сгруппировать изображения на каждом листе в одну книгу. В этом случае у меня есть 6 изображений на листе.

Что мне нужно добавить / изменить для этого макроса, чтобы сгруппировать изображения в один объект? Я использую 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

Попробуй это:

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

Вам не нужно сначала выбирать формы. Вы можете действовать на них напрямую. Он выдает ошибку, если фигур нет, поэтому мы советуем продолжать в любом случае с On Error Resume Next