Excel VBA Edit All Comments

由於目前不知道如何使用xlwings修改comments
所以還是得使用Excel VBA，
之後在改成用multiprocessing呼叫VBA函式來加速

Sub SetCommentsProperties()
    For Each ws In ActiveWorkbook.Worksheets
        For Each cmt In ws.Comments
            With cmt.Shape.TextFrame.Characters.Font
                .Name = "Consolas"  ' 等寬字體是一定要的
                '.ColorIndex = 3
                '.FontStyle = strFStyle2
                .Size = 10
                .Bold = False
            End With
        Next cmt
    Next ws
End Sub