请教如何批量设置批注属性?

chenchi0405

请教啊!!在论坛里搜了下,发现有好些人问,可好像都没有解决过,急啊!

目前有一个EXCEL表,6000多条数据,进行筛选后编辑批注时,编辑框总在最下面,要拖很远,是不是因为批注的属性问题呢?那有没有什么好办法,能够直接批量设置批注的属性格式为"大小\位置随单元格而变"??

谢谢高手指教啦!

Crazymen

我自己常用的工具之一，抛砖引玉，别见笑
Sub 设置批注属性()
Dim TTT$
TTT = InputBox("●本程序将设置本工作表批注属性为：" & Chr(13) _
    & "  【大小固定，位置随单元格而变】" & Chr(13) _
    & "●选定单一单元格时，对整个工作表" & Chr(13) _
    & "  进行处理，选定多个单元格时，只" & Chr(13) _
    & "  处理选定区域内的单元格." _
    & Chr(13) & "是否确定继续执行？", "注意", "是")
If TTT <> "是" Then Exit Sub
Application.ScreenUpdating = False
On Error GoTo 10
Dim TempRngA As Range
Dim tempRngB As Range
Set TempRngA = Selection
Set tempRngB = ActiveCell
Dim Rng As Range
Application.DisplayCommentIndicator = xlCommentAndIndicator
If Selection.Cells.Count = 1 Then Cells.Select
Selection.SpecialCells(xlCellTypeComments).Select
For Each Rng In Selection
    Rng.Activate
    ActiveCell.Comment.Shape.Select True
    Selection.Placement = xlMove
Next Rng
10 TempRngA.Select
tempRngB.Activate
Set TempRngA = Nothing
Set tempRngB = Nothing
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Application.ScreenUpdating = True
End Sub

Crazymen

顺便提提，以上代码，仅仅是设置批注的属性，位置没有改动，如果要将批注移回默认位置，需要用另一段代码

仁科-1127

非常不错的宏，解决了批注问题，还学习到不少宏语句的运用。
感谢。

daydays

百度到好多说是，设置批注格式-属性-选择大小、位置随单元格而变。一直都没找到这个属性在哪里，不会是要用宏编写吧！收藏了，有空研究下

只为成功找方法

用设置格式的方法是这样的：选中批注/或者CTRL+G定位批注---右键---设置批注格式---属性---大小、位置随单元格而变

雨后的彩虹lhl

谢谢楼上的设置方法，以前碰到时就经常一个一个的把框给拉回来

yj8363712

只为成功找方法 发表于 2013-5-27 17:46
用设置格式的方法是这样的：选中批注/或者CTRL+G定位批注---右键---设置批注格式---属性---大小、位置随单元 ...

好像设置不了哦

蜜夏凉枣ツ

Crazymen 发表于 2010-4-24 12:35
我自己常用的工具之一，抛砖引玉，别见笑
Sub 设置批注属性()
Dim TTT$

你好，想问一下仅设置【大小固定，位置随单元格而变】是哪段代码？代码看不懂的说。。。

蜜夏凉枣ツ

Crazymen 发表于 2010-4-24 12:38
顺便提提，以上代码，仅仅是设置批注的属性，位置没有改动，如果要将批注移回默认位置，需要用另一段代码

【将批注移回默认位置】是指移到单元格边上吗？需要哪段代码啊？