作者:乔山办公网日期:
返回目录:excel表格制作
用VBA,按下 ALT+F11 进入VBA编辑器,新建一模块,将下列代码复制到模块中: Sub 设置批注() '设置当抄前活动工作表中所有批注的位置和大小Dim Cmt As CommentDim HW As DoubleHW = 0.6For Each Cmt In ActiveSheet.CommentsCmt.Shape.Left = Cmt.Parent.Left + Cmt.Parent.Width + 11.25If Cmt.Parent.Row = 1 ThenCmt.Shape.Top = Cmt.Parent.Top + 1.5ElseCmt.Shape.Top = Cmt.Parent.Top - 7.5End IfCmt.Shape.TextFrame.AutoSize = TrueCmt.Shape.Width = Cmt.Shape.Height + 10 / HWNextEnd Sub切换到 Excel ,按百 ALT+F8 运行上面的宏即可。注:如果要改变批度注框的大小,只需要改动代码中红色数值即可
鼠标放到边缘直接拉大就行了!
用VBA,按下 ALT+F11 进入VBA编辑器,新建一模块,将下列代码复制到模块中:
Sub 设置批注() '设置当前活636f70797a64364动工作表中所有批注的位置和大小
Dim Cmt As Comment
Dim HW As Double
HW = 0.6
For Each Cmt In ActiveSheet.Comments
Cmt.Shape.Left = Cmt.Parent.Left + Cmt.Parent.Width + 11.25
If Cmt.Parent.Row = 1 Then
Cmt.Shape.Top = Cmt.Parent.Top + 1.5
Else
Cmt.Shape.Top = Cmt.Parent.Top - 7.5
End If
Cmt.Shape.TextFrame.AutoSize = True
Cmt.Shape.Height = Sqr(Cmt.Shape.Height * Cmt.Shape.Width * HW)
Cmt.Shape.Width = Cmt.Shape.Height / HW
Next
End Sub
说明:批注大小是按自动调整大小后的面积,重新以0.6的高宽比计算。
切换到 Excel ,按 ALT+F8 运行上面的宏即可。
暂时没有出现你这种情况,
1、估计你是因为知在筛选状态下输入批注,在非筛选时编辑批注会出现这样的问题,就是批注框离单元格很远,所以道在进入非筛选状态之前,右键点批批注框,设置批注式--属性-—对象位置--大小内与位置随单元格变化;
2、如何批量选择批注:视图——批注——ctrl+G——定容位——定位对象——批注