修改批注,悬停显示不起作用,为什么啊??

cavan1002

我在工作表中添加批注,将其设置为大小,位置随单元格变化,但是在鼠标悬停显示时还是没有变,

然后用VBA修改,代码如下:

Sub myComment()

Dim mySht As Worksheet

Dim Rng As Range, myRng As Range

Set mySht = ThisWorkbook.Sheets("香辛料")

Set myRng =mySht.Range(mySht.Range("b2"),mySht.Range("b1000").End(xlUp))

For Each Rng In myRng

With Rng.Comment.Shape

   .Top = .Top - 100

End With

Next Rng

End Sub

但是鼠标悬停显示还是没有变化,但是选择显示批注时,却是修改过的结果,不知这是为什么??

请知道的老师指点一下,谢谢.

源文件,请看附件!

cavan1002

怎么没有人啊??

cavan1002

知道的老师答复一下哦..