Wie man alle ShapeRange-Sammlung in VBA zyklisch macht

Question

Hier ist ein Bild zu erklären, was ich brauche. 1

ich harte Zeit habe herauszufinden, wie for each aShpRg in ActiveSheet Dinge zu tun .. wo aShpRg ist ein Shaperange-Objekt

Letztlich möchte ich die Ration von vielen Bildern innerhalb Kommentare sperren, damit sie nicht von Excel verzerrt beim Einfügen, Verschieben und Löschen von Spalten ...

Ihre Hilfe wird viel

Dieses geschätzt werden gibt mir Fehler:

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

Answer 1

bearbeitet: nach echter Bedarf

des OP Verständnis

Option Explicit 

Sub main() 
    Dim com As Comment 

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