用VBA，按下ALT+F11進入VBA編輯器，新建一模組，將下列程式碼複製到模組中：Sub設定批註()"設定當前活動工作表中所有批註的位置和大小DimCmtAsCommentDimHWAsDoubleHW=0.6ForEachCmtInActiveSheet.CommentsCmt.Shape.Left=Cmt.Parent.Left+Cmt.Parent.Width+11.25IfCmt.Parent.Row=1ThenCmt.Shape.Top=Cmt.Parent.Top+1.5ElseCmt.Shape.Top=Cmt.Parent.Top-7.5EndIfCmt.Shape.TextFrame.AutoSize=TrueCmt.Shape.Height=Sqr(Cmt.Shape.Height*Cmt.Shape.Width*HW)Cmt.Shape.Width=Cmt.Shape.Height/HWNextEndSub說明：批註大小是按自動調整大小後的面積，重新以0.6的高寬比計算。切換到Excel,按ALT+F8執行上面的宏即可。
用VBA，按下ALT+F11進入VBA編輯器，新建一模組，將下列程式碼複製到模組中：Sub設定批註()"設定當前活動工作表中所有批註的位置和大小DimCmtAsCommentDimHWAsDoubleHW=0.6ForEachCmtInActiveSheet.CommentsCmt.Shape.Left=Cmt.Parent.Left+Cmt.Parent.Width+11.25IfCmt.Parent.Row=1ThenCmt.Shape.Top=Cmt.Parent.Top+1.5ElseCmt.Shape.Top=Cmt.Parent.Top-7.5EndIfCmt.Shape.TextFrame.AutoSize=TrueCmt.Shape.Height=Sqr(Cmt.Shape.Height*Cmt.Shape.Width*HW)Cmt.Shape.Width=Cmt.Shape.Height/HWNextEndSub說明：批註大小是按自動調整大小後的面積，重新以0.6的高寬比計算。切換到Excel,按ALT+F8執行上面的宏即可。