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

案例2:excel批量修改批注部份文字

以下图所示的,要实现将excel工作表批注文字中的“blwbbs”,全部更改成“IT部落窝”。

在Excel2010中批量修改批注部份文字内容的方法是:

1、将Excel文件的扩大名修改成.zip 2、双击打开zip紧缩包,找到xl文件夹下的comments1.xml文件,并双击打开(一般用IE打开),在页面上点击右键->选择“查看源文件”,会弹出源代码窗口(通常是以记事本打开),然后查找需要修改的内容(如:Excel2010),替换为新的内容(如:Office),保存关闭记事本,解压包这里还会提示“文件***已被修改。你希望在紧缩文件中更新它吗,我们将继续深入。”,选择“是”;

3、最后把zip文件扩大名再改回原来的扩大名,即.xlsx。

经过上面3步就能够实现批量修改批注部份文字。

案例3:excel批量修改批注框大小,一致尺寸

依照案例一的方法,使用下面的代码实现,其中的Width = 200,针对需要自己更改批注框宽度。

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

End Sub

友情链接: