VBA "With object"语法 - 你能引用对象本身吗？

Question

当我用一个对象做一堆不同的事情时，我经常使用 With 对象语法。这是调用对象的属性/方法的有用简写，而不必因重复使用对象的名称而弄乱代码。但是有时我想调用一个函数，该函数将对象本身作为参数。在这种情况下，有没有办法引用对象？

' Class Module
' Class1

' Code Module
Sub f(byref obj as Class1)
End Sub

Sub test()
  Dim obj as Class1: set obj = new Class1
  With obj
    f Me ' Doesn't work - can you refer to obj in this context?
    f obj ' Works but I don't like it when the object has a long name
  End With
End Sub

Answer 1

不，那里没有。您只需要使用对象本身，就像您在代码中所做的那样。