重新定位评论框

Question

我的评论框的宽度和高度有效，但奇怪的是它的定位不起作用。我已经尝试了许多其他代码来定位评论框，但在所有方面代码都不起作用。我的代码是：

 With Range("C" & i)

.ClearComments
.AddComment
 .Comment.Text Text:=strComment
 .Comment.Visible = True
 .Comment.Shape.Width = 400
.Comment.Shape.Height = 100
.Comment.Shape.Top = 255   'This line doesn't work
.Comment.Visible = False

 End With