[已解决]添加批注后，再进行编辑时批注框变位

jonyzhou520

如何调节多种状况，请教各位大侠，谢谢！

最佳答案

月排行榜 / 总排行榜

zyouong

2012-10-17 10:11

Sub yy()
Dim pz, aa
For Each pz In ActiveSheet.Comments
   aa = pz.Parent.Address
   pz.Visible = True
   pz.Shape.Left = Range(aa).Offset(1, 1).Left
  pz.Shape.Top = Range(aa).Offset(1, 1).Top
  pz.Shape.Height = 50
pz.Shape.Width = 80
Next
End Sub

跳转到最佳答案楼层

lisachen

没看明白楼主的意思

zyouong

根据需要，自己调节。

jonyzhou520

lisachen 发表于 2012-10-16 16:37
没看明白楼主的意思

补充：在EXCEL档案中对于多栏中插入批注，在下次需要编辑时，出现批注框上移或者下移状况，需一个一个去编辑，请问有没有一致性可调整的办法。

zyouong

在创建的时候可以设置大小位置，这种批量修改大小位置没做过，期待高手.....

zyouong

Sub yy()
Dim pz, aa
For Each pz In ActiveSheet.Comments
   aa = pz.Parent.Address
   pz.Visible = True
   pz.Shape.Left = Range(aa).Offset(1, 1).Left
  pz.Shape.Top = Range(aa).Offset(1, 1).Top
  pz.Shape.Height = 50
pz.Shape.Width = 80
Next
End Sub

jonyzhou520

zyouong 发表于 2012-10-17 10:11
Sub yy()
Dim pz, aa
For Each pz In ActiveSheet.Comments

非常感谢，已OK！{:1612:}

dx0023846

zyouong 发表于 2012-10-17 10:11
Sub yy()
Dim pz, aa
For Each pz In ActiveSheet.Comments

求解,看不明白啊