Overwrite Object Property with Another Object

I am working in VBA, and I need to set the .Interior property of a Range object, to the value of its own .DisplayFormat.Interior. Unfortunately, I can't find a way to mutate an objective property like .Interior.

More generally: let x and y be two objects, each with the objective property my_obj of the same class obj; where obj has n scalar properties {scal_1, scal_2, ..., scal_n}. I want to mutate x.my_obj such that it is identical to y.my_obj.

Obviously, this can be done "manually" by

x.my_obj.scal_1 = y.my_obj.scal_1 
x.my_obj.scal_2 = y.my_obj.scal_2
'       ⋮        ⋮         ⋮
x.my_obj.scal_n = y.my_obj.scal_n 

but this manual approach is obviously untenable for objects of arbitrary structure. Problems would especially arise for self-referential objects like Application, which have properties of their own class: Application.Application.

I had considered a recursive algorithm that iterates over an object's properties, and either performs normal assignment on scalar properties or recurses on objective properties. However, this would run forever (until crashing) on self-referential objects. To top it off, I can't even find a way to iterate over the properties of an arbitrary VBA object.

Is there ultimately any way to implement the following psuedocode in VBA? Unfortunately, this code seems to be invalid for anything but scalar assignments.

' General case.
x.my_obj = y.my_obj

' Use case.
MyRange.Interior = MyRange.DisplayFormat.Interior
How many English words
do you know?
Test your English vocabulary size, and measure
how many words do you know
Online Test
Powered by Examplum