同じ名前の複数のオブジェクトを選択する

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 

さらに、これを選択せず​​にコードすることもできます。より迅速で信頼性の高い

Answer 2

有用なVBAには、Shapesという名前のシェイプコレクションとShapeという2つのオブジェクトがあります。したがって、次のようにコレクションをループすることができます：

Sub Test() 

    Dim shShape   As Shape 
    Dim shCollection As Shapes 

    Set shCollection = ActiveSheet.Shapes 

    For Each shShape In shCollection 
     shShape.Flip msoFlipHorizontal 
    Next shShape 

End Sub