excel - 将所有对象移回excel VBA用户表单中的原始位置

Question

关闭。这个问题需要debugging details .它目前不接受答案。












编辑问题以包含 desired behavior, a specific problem or error, and the shortest code necessary to reproduce the problem .这将帮助其他人回答问题。


1年前关闭。







Improve this question




场景

我有一个 excel VBA 用户表单，其中有许多组合框、文本框、标签、复选框和按钮。当我单击某个按钮时，这些对象会将其位置更改为新位置。

我需要什么

在不使用我之前使用的定位技术的情况下单击按钮时，我需要将所有这些移回原始位置。有没有什么方法可以让我用一些单一的命令将所有对象移回原始位置？

我试过的

我试过userform_initialize但它不工作

Answer 1

正如杰弗里·威尔指出的那样；将原始位置放在 Tag 属性中

Private Sub UserForm_Initialize()
Dim ctrl As MSForms.Control
    For Each ctrl In Me.Controls
        ctrl.Tag = ctrl.Top & "|" & ctrl.Left
    Next
End Sub

并回到原来的位置:

Private Sub CommandButton1_Click()
'button to go back, adjust name to your button
Dim ctrl As MSForms.Control
    For Each ctrl In Me.Controls
        ctrl.Top = Split(ctrl.Tag, "|")(0)
        ctrl.Left = Split(ctrl.Tag, "|")(1)
    Next
End Sub