選択した図形をループする

Question

ワークシート上で選択した図形をループする必要があります。私はそれがこのような何かを見てする必要があります：のみ選択形状は、あなたが以下のループを使用することができますがループに

Answer 1

..

Dim VmyApp As Excel.Application = Globals.ThisAddIn.Application 
    Dim VmySel As Excel.ShapeRange = TryCast(VmyApp.Selection, Excel.ShapeRange) 

    For Each VmyShape In VmySel 
    ... 
    Next 

は、事前にどうもありがとうございます

For Each VmyShape In Selection.ShapeRange 
... 
Next 

とすべての図形をループしたい場合は、以下のループを実行します。

For Each VmyShape In ActiveSheet.Shapes 
... 
Next