vba - 选择多个同名对象

Question

所以我有一张带有一些图片的表格。所有这些只是原始图片的复制粘贴，因此它们都具有相同的名称“花”。

我想选择所有这些并翻转它们。但它只会选择原件，我该如何克服呢？我也尝试合并一个循环，但没有运气。

Sub Test()
    ActiveSheet.Shapes.Range(Array("Flower")).Select
    Selection.ShapeRange.Flip msoFlipHorizontal
End Sub

我知道我可以简单地将它们重命名为 Flower1、Flower2 等，但计划是将其用于很多图片，因此手动更改需要很长时间。如果这一切都可以通过一个循环来完成，那很好，但是我仍然会遇到与上面相同的问题。

Answer 1

您可以遍历集合 Shapes寻找具有给定名称的形状。尝试这个。

Sub Test()
    Dim Pic As Shape
    For Each Pic In ActiveSheet.Shapes
        If Pic.Name = "Flower" Then Pic.Flip msoFlipHorizontal
    Next Pic
End Sub

此外，您可以在不选择它的情况下对其进行编码。更快、更可靠。