ActiveX控件已通过代码固定仍在工作表移位，求解决方案

方法1：通过控件属性直接固定位置 #

• 右键点击目标按钮（CalculateMe），选择设置控件格式
• 切换到属性选项卡，勾选大小和位置均固定，点击确定
  这个设置会让控件完全脱离单元格的影响，不会因为行高列宽变化或单元格操作而移动。

方法2：在代码中锁定控件的位置属性 #

控件位置偏移常因默认的Placement属性（随单元格移动/调整）导致，在代码中强制设置固定属性即可：

Private Sub CalculateMe_Click()
    Dim btn As Shape
    Set btn = ActiveSheet.Shapes("CalculateMe")
    
    ' 设置控件为完全固定，不随单元格移动/调整
    btn.Placement = xlFreeFloating
    
    ' 固定尺寸和位置
    btn.Height = 30: btn.Width = 75
    btn.Top = 151.2: btn.Left = 422.4
    
    ' 你的其他代码
    
    ' 再次确认锁定，防止其他操作意外修改
    btn.Placement = xlFreeFloating
End Sub

Placement参数说明：

• xlFreeFloating：控件独立存在，不受单元格操作影响（推荐）
• xlMoveButDon'tSize：仅随单元格移动，不改变大小
• xlMoveAndSize：随单元格移动且调整大小（默认值，易导致偏移）

方法3：排查其他影响控件的代码 #

检查工作表的其他事件宏（如Worksheet_Change、Worksheet_SelectionChange），确认没有其他代码修改了该控件的Top/Left属性或Placement属性。

内容的提问来源于stack exchange，提问作者Florin Home