巨集｜批次修改EXCEL工作表的註解格式

這篇是記錄，為方便以後使用。
個人不是非常了解巨集，這是查來的。
　
以下這個EXCEL巨集，
是想要將工作表中所有的註解
批次修改為：
1.大小位置不隨儲存格改變（註1）
2.註解格自動調整大小（註3）
3.字型全為"新細明體"，字級12。（註2）
　
A.允許巨集運行。
B.編輯巨集：
「Alt+F8」或「檢視→巨集→檢視巨集」，
填入巨集名稱(任意)，
然後點「編輯」，
將下列文字複製貼上即可。
再在編輯框下按儲存，關掉編輯窗。
C.執行巨集：
「Alt+F8」或「檢視→巨集→檢視巨集」，
選剛才編輯的巨集→執行。
D.查看結果：
應該所有註解都變成上面要求的格式了。
　
　
Sub modifycomment()
'整批修改現有工作表中註解的字型
Dim rng As Range
Dim ComRange As Range
'取得工作表中有註解的儲存格的集合
Set ComRange = ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
For Each rng In ComRange
'註解格位置跟隨儲存格不變
With rng.Comment.Shape
.Placement = xlFreeFloating
'修改註解位置，自動大小
With rng.Comment.Shape
.Left = rng.Left + rng.Width + 20
.Top = rng.Top + 10
With .TextFrame
.AutoSize = True
With rng.Comment.Shape.TextFrame.Characters.Font
.Name = "新細明體"
.Size = 12
End With
End With
End With
End With
Next rng
End Sub
　
　
　
註1：
這點不是太直觀，但「大小位置不隨儲存格改變」，意指：不管你怎麼插入新的行列，這個註解的大小和位置永遠保持和原儲存格相同。
而一般會覺得「大小位置隨儲存格而改」會使得註解格跟著儲存格走，實際實驗後卻剛好相反！使用此選項，插越多行註解格就會跑起遠...XD！
註2：
字型部分，可以比較不用擔心的替換成自己喜歡的字型和大小。
註3：
個人實驗的狀況，在自動大小功能的狀況，當輸入導致註解框大小改變時不會立刻顯示變形後大小，要點一下註解輸入區才會真的改變。不要去拉它，不然自動大小的功能對該註解格可能消失。
　
...