VBAですべてのShapeRangeコレクションを循環させる方法

Question

ここに私が必要とするものを説明するイメージがあります。 1

私はaShpRgがShapeRangeオブジェクト結局

あるfor each aShpRg in ActiveSheetものを...行う方法を考え出す苦労しています、私は、彼らはエクセルによって歪めませんので、コメント内の多くの画像のアスペクト比をロックしたいです...

を挿入、移動、および列を削除する際にあなたの助けがはるかに

を理解されるであろうこれは私にエラーを与えている：

Dim aShpRg As ShapeRange 
For Each aShpRg In ActiveSheet.ShapeRange 
aShpRg.LockAspectRatio = msoTrue 
Next aShpRg 

Answer 1

、編集：コードサンプルのコードを置いたOPの本当の必要性

Option Explicit 

Sub main() 
    Dim com As Comment 

    For Each com In ActiveSheet.Comments 
     com.Shape.Placement = xlFreeFloating 
    Next com 
End Sub