批量修改批注大小
Option Explicit
Sub 标签大小自适应()
Dim i As Long, j As Long
On Error Resume Next
For i = 1 To 1000 '1000行
For j = 1 To 26 'Z列
Cells(i, j).Comment.Shape.TextFrame.AutoSize = True
Next
Next
End Sub
Sub 标签大小自适应()
Dim i As Long, j As Long
On Error Resume Next
For i = 1 To 1000 '1000行
For j = 1 To 26 'Z列
Cells(i, j).Comment.Shape.TextFrame.AutoSize = True
Next
Next
End Sub
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
excel2007中如何打印批注
bjogs2008
2018-09-11 08:37:24
Office基础操作:如何去掉Word参考文献编号后的空格
Dr.诺
2020-07-08 03:47:07
Office基础操作:Word 使用交叉引用的超链接后,如何一步操作返回至引用处
Dr.诺
2020-07-08 03:47:07
Python 二次开发 Excel 简介
Hulunbuir
2020-07-06 13:30:29
OfficeWord转pdf时带目录书签
一、word另存爲pdf word另存爲pdf時,配置“選項”,勾選“創建書籤時使用—>標題”即可。 一、pdf書籤顯示不全(暫未解決)
HaleyTiger
2020-07-08 03:31:50
word(wps)编号
1、右鍵隨便一個樣式,選擇修改樣式 2、格式中選擇編號 3、選擇自定義 4、選擇高級 4、選擇級別1將級別連接到樣式選擇已有的樣式
seaant1
2020-07-07 20:27:50
VC利用WORD替换功能打印发票
tiana2009
2020-07-07 12:35:10
Word 其实可以很强大!
windtailljj
2020-07-07 08:49:25
老友记台词学习笔记 SE01EP02(四)
下面是老友記第一季第二集的後半部分的臺詞。紅色的部分是我的註釋。 Joey: Your folks are really that bad, hu
wings_king
2020-07-07 05:26:19
word.interop
novodexx
2020-07-06 21:33:33
visio中对形状的操作
booksyhay
2020-07-06 19:58:36
重新审视Visio的本质
booksyhay
2020-07-06 19:58:26
【关于每个一个小时就黑屏一次情况的解决方案】
南山养鹿人
2020-07-06 16:06:56