excel 批注框的内容没有了,只显示一条线了。是什么原因,如何操作,谢! 30
4个回答
展开全部
把下面的宏拷到VBA模块里,运行即可解决,如果只是一个工作表,去掉for循环,Worksheets(i)改为sheets("你工作表的名字")即可。
Sub 修改批注字体及批注框大小()
Dim Cmt As Comment
Dim ShtCount As Integer, i As Integer
Application.EnableEvents = False
ShtCount = ActiveWorkbook.Sheets.Count
For i = 1 To ShtCount
For Each Cmt In Worksheets(i).Comments
With Cmt.Shape.TextFrame.Characters.Font
.Bold = msoFalse
.Size = 8 '字体大小设置,可改
End With
With Cmt
.Shape.TextFrame.AutoSize = True
.Shape.Left = Cells(.Parent.Row, .Parent.Column + 1).Left
.Shape.Top = .Parent.Top
End With
Next
Next i
Application.EnableEvents = True
End Sub
Sub 修改批注字体及批注框大小()
Dim Cmt As Comment
Dim ShtCount As Integer, i As Integer
Application.EnableEvents = False
ShtCount = ActiveWorkbook.Sheets.Count
For i = 1 To ShtCount
For Each Cmt In Worksheets(i).Comments
With Cmt.Shape.TextFrame.Characters.Font
.Bold = msoFalse
.Size = 8 '字体大小设置,可改
End With
With Cmt
.Shape.TextFrame.AutoSize = True
.Shape.Left = Cells(.Parent.Row, .Parent.Column + 1).Left
.Shape.Top = .Parent.Top
End With
Next
Next i
Application.EnableEvents = True
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可能是行或列被隐藏了。看看有没有隐藏的行列
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
是不是不小心给缩小了,拉大看看
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
筛选了吧~~
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询