Изменение клонированного объекта без изменения исходного объекта

Question

Возможно ли скопировать объект в VBA, чтобы изменения объекта clone не влияли на исходный объект?

Например:

Dim clone_object As Variant 
Set clone_object = some_object 
some_object.Left = 0 
clone_object.Left = 666 
'I want it to show 0 instead of 666 
Debug.print some_object.Left 

Answer 1

Вам нужно создать такие методы, как это в вашем модуле класса (здесь Config) или сделать то же самое в обычном модуле, если это не пользовательский объект:

Friend Sub SetConfig(SrcConfig As Config) 
    Set Cfg = SrcConfig 
End Sub 

Public Function Copy() As Config 
    Dim Result As Config 
    Set Result = New Config 
    Call Result.SetConfig(Cfg) 
    Set Copy = Result 
End Function