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

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

　　介紹一個(gè)excel批量修改批注的案例：比如將SHEET1工作表中所有的批注文字批量更改為為：楷體、14號(hào)、顏色為紅色。如何實(shí)現(xiàn)批量修改批注呢？

　　方法是按下ALT+F11，打開(kāi)VBE編輯器，插入——模塊，輸入下面的代碼，按F5鍵運(yùn)行，即可實(shí)現(xiàn)將SHEET1工作表的批注進(jìn)行批量修改。下面是代碼：

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批量修改批注部分文字

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

　　在Excel2010中批量修改批注部分文字內(nèi)容的方法是：

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

　　通過(guò)上面三步就可以實(shí)現(xiàn)批量修改批注部分文字。

案例三：excel批量修改批注框大小，統(tǒng)一尺寸

　　按照案例一的方法，使用下面的代碼實(shí)現(xiàn)，其中的Width = 200，根據(jù)需要自己更改批注框?qū)挾取?/p>

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