恢复VBE窗口布局为默认状态

Excel技巧

2023-11-13 11:06:50

本文将介绍在Microsoft Visual Basic Editor（VBE）中恢复窗口布局为默认状态的方法。

问题

在使用VBE时，用户可能会调整窗口布局，以适应自己的工作流。然而，如果不小心，用户可能会弄乱布局，导致VBE难以使用。

恢复默认布局的方法

要恢复VBE的默认窗口布局，用户可以按照以下步骤操作：

方法一：手动调整

在VBE中，依次单击【工具】→【选项】命令调出的【选项】对话。
在【选项】对话框中，单击【常规】选项卡。
在【常规】选项卡中，单击【重置所有设置】按钮。
单击【确定】按钮，关闭【选项】对话框。

方法二：使用VBA

在VBE中，按F11键打开VBA编辑器。
在VBA编辑器中，单击【插入】→【模块】菜单项，插入一个新的模块。
在新模块中，输入以下代码：

Public Sub ResetVBEWindowLayout()
    Call ExecuteINIFileSetKey "Hkey_Current_User\Software\Microsoft\VBA\", _
        "window_placement", "0", vbBinary, , "VBE.exe"
End Sub

Private Sub ExecuteINIFileSetKey(ByVal sIniFilePath As String, _
                               ByVal sSection As String, _
                               ByVal sKey As String, _
                               Optional ByVal vValue As Variant, _
                               Optional ByVal vDataType As Long, _
                               Optional ByVal sExecFilePath As String)
    On Error GoTo Err_ExecuteINIFileSetKey
    Declare Function WritePrivateProfileString Lib "kernel32" ( _
        ByVal sIniFilePath As String, ByVal sSection As String, _
        ByVal sKey As String, ByVal vValue As Any) As Long
    If IsMissing(sExecFilePath) Then sExecFilePath = Application.Path & Application.Name
    WritePrivateProfileString sIniFilePath, sSection, sKey, vValue, sExecFilePath
Exit_ExecuteINIFileSetKey:
    Exit Sub
Err_ExecuteINIFileSetKey:
    MsgBox Err.Description & " INI File I/O Error", vbCritical
Resume Exit_ExecuteINIFileSetKey
End Sub