☰

如何从 Excel 工作表中选择并分组多幅图像？

tag-icon • tag-icon microsoft-excel microsoft-excel-2010
如何从 Excel 工作表中选择并分组多幅图像？

我遇到了 Selection.ShapeRange.Group.Select 问题，如果删除它，我就只能选择活动工作表上的所有图像。我想将每个工作表上的图像分组到一个工作簿中。在这种情况下，每个工作表有 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

答案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

相关内容