灾难性故障-打开用户表单时内存不足

Question

我有一个VBA程序，可以打开一系列用户窗体。
我在笔记本电脑上设计了整个产品，并在其他一些笔记本电脑上进行了测试。在Excel 2010和2016中都可以使用。

我与使用其他样式的笔记本电脑的同事（Win7，Office 2010）共享了它。每次他们按下按钮打开用户窗体时，他们都会遇到严重错误，出现内存不足错误。

我在网上看到模块应该小于64kb。用于打开按钮的模块非常小（只需打开UserForm1）。

Userform frm文件为4 KB。
Userform frx文件为1.24 MB，该文件较大，因为此表单上有图片等。

用户表单运行的代码。

Private Sub ComboBox1_DropButtonClick()

'Determines the controller model based off selection
If ComboBox1.Text = "VHX-6000 + VHX-A60E" Then
    Controller = 6000
Else
    Controller = 950
End If

'Updates textbox1 with current pricing info
TextBox1.Text = Application.VLookup(Controller, Sheet3.Range("A37:C45"), 2, 0)   

End Sub

Private Sub Continue1_Click()

price = 0

'Determines if it should show the camera page based on the controller selection
If Controller = 6000 Then
    CameraForm.Show
Else
    Camera = 6020
    StageForm.Show
End If

End Sub

Private Sub Image6_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

Private Sub Label2_Click()

End Sub

Private Sub UserForm_Activate()

'Make Sheet 3 activate to avoid that weird error message towards the end
Worksheets("sheet3").Activate

'Sets the dropdown list
ComboBox1.List() = Sheet3.Range("C6:C7").Value

'Clears the quote information if present
Sheet3.Range("M51:O100").ClearContents

Controller = 0

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()

'Full Screen
With Me
    .Width = Application.Width
    .Height = Application.Height
End With

End Sub

Answer 1

意识到这是一个旧线程，但是我遇到了类似的问题，这使我头疼了几个小时。

我一直在使用双显示器，并设置了六个用户表单

如果我随后尝试在未连接任何显示器的情况下在笔记本电脑上打开某些用户表格，我会发现他发生了严重的灾难性故障。

我发现问题与显示设置中的屏幕比例有关。我的显示器是100％，笔记本电脑是125％。

当我将笔记本电脑更改为100％...瞧。所有工作。有点傻，说实话，但值得一提

Answer 2

谜语

没什么可继续的：

要加载表单，我在 Sheet3代码窗口中具有命令按钮OLE对象的代码：

Private Sub CommandButton1_Click()
  Load ControllerForm
  ControllerForm.Show
End Sub

请注意与您的代码有两个区别：

Sub Button1_Click()
  ControllerForm.Show
End Sub

1. 您可能需要使用Load ControllerForm吗？
2. 这些按钮之间有区别：Commandbutton1和Button1。您的Button1是 msoFormControl （8），而我的按钮是 msoOLEControlObject （12）。 看here。