Getting reference to an OLEObject from another cell?
 

I wonder if a cell can contain a property value of an OLEObject in
another cell?

Assume i have two columns,the first contains OLEObject the second
should contains

OLEObject.Object.Caption


Thanks in advance.

Getting reference to an OLEObject from another cell?
 

This works, but you should add error handling:

Public Function GetOLEProp(OLEName As String) As String
GetOLEProp = Application.Caller.Parent.OLEObjects(OLEName).Obje ct.Caption
End Function

NickHK

wrote in message
oups.com...

I wonder if a cell can contain a property value of an OLEObject in
another cell?

Assume i have two columns,the first contains OLEObject the second
should contains

OLEObject.Object.Caption


Thanks in advance.

Getting reference to an OLEObject from another cell?
 

On Apr 23, 6:18 am, "NickHK" wrote:
This works, but you should add error handling:

Public Function GetOLEProp(OLEName As String) As String
GetOLEProp = Application.Caller.Parent.OLEObjects(OLEName).Obje ct.Caption
End Function

NickHK

wrote in message

oups.com...





I wonder if a cell can contain a property value of an OLEObject in
another cell?

Assume i have two columns,the first contains OLEObject the second
should contains

OLEObject.Object.Caption

Thanks in advance.- Hide quoted text -

- Show quoted text -

Thanks it is working...almost...the cell wouldn't update when i am
changing the caption.

Can i force recalculation of a range?

Thanks in advance.

Getting reference to an OLEObject from another cell?
 

Changing the caption from the properties does not result in a recalculation.
If you are doing it in code, you can call one of the .Calculate methods and
add the .Volatile in the function

Public Function GetOLEProp(OLEName As String) As String
Application.Volatile
GetOLEProp = Application.Caller.Parent.OLEObjects(OLEName).Obje ct.Caption
End Function

NickHK

wrote in message
ups.com...
On Apr 23, 6:18 am, "NickHK" wrote:
This works, but you should add error handling:

Public Function GetOLEProp(OLEName As String) As String
GetOLEProp =
Application.Caller.Parent.OLEObjects(OLEName).Obje ct.Caption
End Function

NickHK

wrote in message

oups.com...





I wonder if a cell can contain a property value of an OLEObject in
another cell?

Assume i have two columns,the first contains OLEObject the second
should contains

OLEObject.Object.Caption

Thanks in advance.- Hide quoted text -

- Show quoted text -

Thanks it is working...almost...the cell wouldn't update when i am
changing the caption.

Can i force recalculation of a range?

Thanks in advance.