如何循环VBA中的所有ShapeRange集合

Question

这是一张图片来解释我需要什么。1

我很难弄明白如何做for each aShpRg in ActiveSheet的事。其中aShpRg是ShapeRange对象

最终，我想锁定注释中许多图像的方面比例，这样它们在插入、移动和删除列时不会被Excel扭曲。

你的帮助将不胜感激。

这让我犯了错误：

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