如何在VBA中修复某个位置的复选框

Question

我正在尝试将复选框修复到某个单元格，因为，我认为这是一个错误不断移动它。

我已经尝试选择“不要移动并使用单元格调整大小”，它会随机移动到其他位置，而不会重新调整任何单元格大小。

其他人似乎有同样的问题，但没有人有任何答案

任何帮助将不胜感激。

Answer 1

您需要确定适当的事件。我选择了BeforeSave事件，以便在保存之前始终重新定位控件。您可能希望更频繁地触发事件。

在这种情况下，您可以将Top和Left属性设置为您想要的任何属性，包括单元格的Top和Left属性。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    With Sheet1.Shapes("Check Box 1")
        .Top = Sheet1.Range("J3").Top
        .Left = Sheet1.Range("J3").Left
    End With

End Sub