请教下“excel2013批注根据批注内容改变大小”此问题

Question

您的回答是，
Sub aa()

For Each i In ActiveSheet.Comments

i.Shape.TextFrame.AutoSize = True

Next

End Sub
但是如果我一个工作簿有50几个sheets,每个sheet里都有批注，需要所有sheet里的批注都自动根据批注内容改变批注大小，要如果实现呢？

Answer 1

加一个循环就行了

Sub aa()
For Each st In Sheets
    For Each i In ActiveSheet.Comments
    i.Shape.TextFrame.AutoSize = True
    Next
Next
End Sub

追问

周老师，我试了一下，只有活动的工作表里的批注是自动改变了，其他的没有变化。

追答

哈哈 不好意思 疏忽了

Sub aa()
For Each st In Sheets
    For Each i In st.Comments
    i.Shape.TextFrame.AutoSize = True
    Next
Next
End Sub来自：求助得到的回答