VBA类模块向用户窗体传递ScreenShotCap变量到Initialize事件求助

你在类模块中定义的ScreenShotCap是类实例的成员变量，作用域仅局限于该类实例内部，用户窗体的代码无法直接访问这个变量，因此在UserForm_Initialize事件中无法获取到对应值。
下面提供两种可行的解决方法：

1. 插入一个标准模块（Module），在模块顶部声明全局公共变量：

Option Explicit
' 全局变量，所有模块均可访问
Public g_ScreenShotCap As String

2. 修改类模块的点击事件代码，改为给全局变量赋值：

Private Sub CmdBtn_Click()
    ' 给全局变量赋值被点击的按钮名称
    g_ScreenShotCap = CmdBtn.Name
    ' 弹出用户窗体
    ufScreenshot.Show
End Sub

3. 修改用户窗体的UserForm_Initialize事件，将所有用到ScreenShotCap的位置替换为g_ScreenShotCap即可。

该方案不需要定义全局变量，避免全局作用域污染，是VBA窗体传值的推荐写法：

1. 修改用户窗体代码，新增公共属性和自定义初始化方法：

Option Explicit
' 窗体级公共属性，供外部赋值
Public ScreenShotCap As String

Private Sub UserForm_Initialize()
    ' 此处不要放置依赖ScreenShotCap的逻辑，因为窗体加载时该属性还未完成赋值
End Sub

' 自定义初始化方法，属性赋值完成后调用
Public Sub InitForm()
    Dim btnNo As Variant
    ' 注意：原写法仅imNo3为Integer类型，imNo1、imNo2默认是Variant，此处修正声明
    Dim imNo1 As Integer, imNo2 As Integer, imNo3 As Integer

    btnNo = Right(Me.ScreenShotCap, 1)
    imNo1 = Int(btnNo + 2)
    imNo2 = Int(btnNo + 3)
    imNo3 = Int(btnNo + 4)
    
    If Me.ScreenShotCap = Worksheets("SW_TEST").OLEObjects("CommandButton1").Name Then
        Application.ScreenUpdating = False
            Me.Image1.Picture = Worksheets("SW_TEST").OLEObjects("Image1").Object.Picture
            Me.Image2.Picture = Worksheets("SW_TEST").OLEObjects("Image2").Object.Picture
            Me.Image3.Picture = Worksheets("SW_TEST").OLEObjects("Image3").Object.Picture
        Application.ScreenUpdating = True
    Else
        Application.ScreenUpdating = False
            Me.Image1.Picture = Worksheets("SW_TEST").OLEObjects("Image" & imNo1).Object.Picture
            Me.Image2.Picture = Worksheets("SW_TEST").OLEObjects("Image" & imNo2).Object.Picture
            Me.Image3.Picture = Worksheets("SW_TEST").OLEObjects("Image" & imNo3).Object.Picture
            Me.Repaint
        Application.ScreenUpdating = True
    End If
End Sub

2. 修改类模块的点击事件代码，按「实例化窗体→赋值属性→调用初始化→显示窗体」的顺序执行：

Private Sub CmdBtn_Click()
    ' 显式实例化窗体，避免默认实例的潜在问题
    Dim frm As ufScreenshot
    Set frm = New ufScreenshot
    
    ' 给窗体属性赋值被点击的按钮名称
    frm.ScreenShotCap = CmdBtn.Name
    ' 调用自定义初始化方法加载图片
    frm.InitForm
    ' 显示窗体
    frm.Show
    
    Set frm = Nothing
End Sub

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