【VBA】通过按钮控制虚线框

最新推荐文章于 2024-10-05 13:44:14 发布

weixin_52388105

最新推荐文章于 2024-10-05 13:44:14 发布

阅读量190

点赞数

分类专栏： VBA 文章标签： microsoft

本文链接：https://blog.csdn.net/weixin_52388105/article/details/129651534

版权

通过按钮切换虚线框的隐藏显示，通过按钮修改虚线框的宽高。


Public ws As Worksheet
Public boundingBox As Shape
Public isBoundingBoxVisible As Boolean
Public conversionFactor As Double
Public buttonLeft As Double
Public buttonTop As Double


Sub main()

    Set ws = Sheets("Sheet1") '修改成所需的工作表名称
    conversionFactor = 28.3464567 ' 1 cm = 28.3464567 points
    buttonLeft = Application.ActiveWindow.VisibleRange.Left + Application.ActiveWindow.VisibleRange.Width - 100 ' 各个按钮左边的基准值
    buttonTop = Application.ActiveWindow.VisibleRange.Top + 10 ' 各个按钮top的基准值，各按钮互相间隔50
    
    DisplayBoundingBox '新建红色虚线框
    
    CreateHideBoundingBoxButton '创建切换虚线框显示与否的按钮
    
    CreateChangeBoundingBoxWidthButton '创建修改虚线框宽度的按钮
    
    CreateChangeBoundingBoxHeightButton '创建修改虚线框高度的按钮

End Sub



Sub DisplayBoundingBox()

    
    '设置方框大小和位置
    Dim boxWidth As Double
    Dim boxHeight As Double
    boxWidth