Office及VBA技术交流

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 2026|回复: 0

Excel VBA 如何调整注释comment的位置

[复制链接]
  • TA的每日心情

    2016-2-20 08:02
  • 签到天数: 1 天

    [LV.1]初来乍到

    88

    主题

    155

    帖子

    625

    积分

    高级会员

    Rank: 4

    积分
    625
    发表于 2016-2-3 11:17:02 | 显示全部楼层 |阅读模式
    以下代码可以将工作表里的所有注释调整到一个特定位置

    Sub ResetComments()
       
        Dim pComment As Comment
        For Each pComment In Application.ActiveSheet.Comments
           pComment.Shape.Top = pComment.Parent.Top + pComment.Parent.Height
           pComment.Shape.Left = pComment.Parent.Left
        Next
       
    End Sub
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    手机版|小黑屋|Office Master ( 蜀ICP备16003423号 )

    GMT+8, 2019-10-19 03:21 , Processed in 0.267881 second(s), 24 queries .

    Office Master

    快速回复 返回顶部 返回列表