VBA代码中clsSacarioSymbol类调用obLibrary.addSymbol Me报424对象必需错误

问题代码 #

Public obLibrary

Sub begin()
  Dim obLibrary As Variant
  Set obLibrary = New clsSacarioSymbols
   Call CreateSacarioSymbol
End Sub

Sub CreateSacarioSymbol()
  Dim SymbolEditor  As Worksheet
  Dim MsoShapes As Shapes
  Dim SacarioGroup As Object
  Dim SacarioGroupShapes As GroupShapes
  Dim Index As Integer
  Set SymbolEditor = Sheets("Symbol Editor")
  Set MsoShapes = SymbolEditor.Shapes

  '...This Block is for testing and replicates Engineer input to SymbolEditor
  ThisShape As Variant
  For Each ThisShape In SymbolEditor.Shapes
    ThisShape.Delete
  Next ThisShape
  SymbolEditor.Shapes.AddShape(msoShapeOval, 310.5, 30.75, 129, 99).Select
  SymbolEditor.Shapes.AddShape(msoShapeRoundedRectangle, 285.75, 99, 174, 61.5).Select
  '....End Testing Block

  MsoShapes.SelectAll
  If TypeName(Selection) = "DrawingObjects" Then
    Set SacarioGroup = Selection.Group
    Set SacarioGroupShapes = SacarioGroup.ShapeRange.GroupItems
    Dim SacarioSymbol As New clsSacarioSymbol
    obLibrary.InitalizeClass SacarioGroupShapes
  End If

End Sub

' Class SacarioSymbol Definition
Private Sub class_initialize()
  ' MsgBox "Symbol Class Here"
End Sub
Public Sub InitalizeClass(SacarioSymbol As GroupShapes)
  Dim obfrmGetSymbolName As New frmGetSymbolName
  obfrmGetSymbolName.Show    
  SymbolName = obfrmGetSymbolName.GetSymbolName
  obLibrary.addSymbol Me
End Sub
' End Class SacarioSymbol

' Class SacarioSymbols Definition
Private SacarioSymbolLibrary
Private Sub class_initialize()
  MsgBox "Sacario Library here"
  Dim SacarioSymbol As Collection
End Sub
Public Sub addSymbol(symbol As Variant)
   SacarioSymbolLibrary.add symbol
End Sub
' End Class SacarioSymbols

问题描述 #

调试代码时，所有步骤均正常运行，但执行到clsSacarioSymbol类的InitalizeClass方法最后一行obLibrary.addSymbol Me时，触发错误424"对象必需"。已确认Me指向正确的对象，需排查问题原因。

解决方向 #

1. 修复obLibrary的作用域冲突 #

全局声明的Public obLibrary与begin过程内的Dim obLibrary As Variant重名，导致局部变量覆盖了全局变量。类模块中访问的是未初始化的全局obLibrary（值为Nothing），因此调用addSymbol时触发对象错误。

• 解决：删除begin过程中的Dim obLibrary As Variant，直接使用全局变量：

  Sub begin()
    Set obLibrary = New clsSacarioSymbols
    Call CreateSacarioSymbol
  End Sub
  

  或给全局变量改名（如g_obLibrary），避免与局部变量冲突。

2. 初始化clsSacarioSymbols中的集合对象 #

clsSacarioSymbols的class_initialize方法中，仅声明了局部变量Dim SacarioSymbol As Collection，未给类级变量SacarioSymbolLibrary赋值，导致SacarioSymbolLibrary为Nothing，调用addSymbol时触发对象错误。

• 解决：修改类的初始化方法，正确初始化集合：

  Private Sub class_initialize()
    MsgBox "Sacario Library here"
    Set SacarioSymbolLibrary = New Collection
  End Sub
  

3. 避免依赖全局变量，传递对象引用 #

全局变量容易引发作用域问题，建议在创建clsSacarioSymbol实例时，主动传递obLibrary的引用，而非依赖全局访问。

• 步骤：
  1. 在clsSacarioSymbol类中添加私有变量和设置方法：

     Private m_library As clsSacarioSymbols
     Public Sub SetLibrary(library As clsSacarioSymbols)
         Set m_library = library
     End Sub
     

  2. 修改InitalizeClass方法中的调用：

     m_library.addSymbol Me
     

  3. 在CreateSacarioSymbol过程中传递引用：

     Dim SacarioSymbol As New clsSacarioSymbol
     SacarioSymbol.SetLibrary obLibrary
     SacarioSymbol.InitalizeClass SacarioGroupShapes
     

4. 启用强制变量声明 #

代码中CreateSacarioSymbol过程内的ThisShape As Variant未用Dim声明，属于隐式声明，可能引发潜在问题。建议在所有模块顶部添加Option Explicit，强制变量声明，排查未定义的变量。

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