excel 大局部更改批注 大局部更改批注文字、批注框大小、批注內容格式的辦法

案例一：excel批量修改批注文字格式

　　介紹一個excel批量修改批注的案例：比如將SHEET1工作表中所有的批注文字批量更改為為：楷體、14號、顏色為紅色。如何實現批量修改批注呢？

　　方法是按下ALT+F11，打開VBE編輯器，插入——模塊，輸入下面的代碼，按F5鍵運行，即可實現將SHEET1工作表的批注進行批量修改。下面是代碼：

Sub 批量修改批注()
??? Dim cm As Comment
??? For Each cm In Sheet1.Comments 'sheet1是我們要批量修改批注的工作表，可以按需改變。
??????? With cm.Shape.TextFrame.Characters.Font
??????????? .Name = "楷體"
??????????? .Size = 14
??????????? .ColorIndex = 3
??????? End With
??? Next
End Sub

案例二：excel批量修改批注部分文字

　　如下圖所示的，要實現將excel工作表批注文字中的“blwbbs”，全部更改為“IT部落窩”。?

　　在Excel2010中批量修改批注部分文字內容的方法是：

　　1、將Excel文件的擴展名修改為.zip
　　2、雙擊打開zip壓縮包，找到xl文件夾下的comments1.xml文件，并雙擊打開（一般用IE打開），在頁面上點擊右鍵->選擇“查看源文件”，會彈出源代碼窗口（通常是以記事本打開），然后查找需要修改的內容(如：Excel2010），替換為新的內容（如：Office），保存關閉記事本，解壓包這里還會提示“文件***已經被修改。你希望在壓縮文件中更新它嗎？”，選擇“是”；
　　3、最后把zip文件擴展名再改回原來的擴展名，即.xlsx。

　　通過上面三步就可以實現批量修改批注部分文字。

案例三：excel批量修改批注框大小，統一尺寸

　　按照案例一的方法，使用下面的代碼實現，其中的Width = 200，根據需要自己更改批注框寬度。

Sub 批量修改批注框大小()?
Dim Cmt As Comment?
For Each Cmt In ActiveSheet.Comments?
??? Cmt.Parent.Comment.Shape.Width = 200?
Next Cmt?
End Sub