Opening an embedded file through VBA

[yussi1870]

I have a number of embedded files in my worksheet including word doc's and ppt doc's. I have embedded them using the following method:

Insert > Object > Create From File > [File] > Display as Icon > OK

I will be sending this spreadsheet out to others whose only access to these files will be through the macro on this spreadsheet. Depending on what command buttons the user clicks I want the corresponding embedded file to open. Any ideas on how to write this in VBA?

 

[yussi1870]

Is it even possible to do this?

 

[Ivan F Moala]

On 2002-05-30 04:38, yussi1870 wrote:
I have a number of embedded files in my worksheet including word doc's and ppt doc's. I have embedded them using the following method:

Insert > Object > Create From File > [File] > Display as Icon > OK

I will be sending this spreadsheet out to others whose only access to these files will be through the macro on this spreadsheet. Depending on what command buttons the user clicks I want the corresponding embedded file to open. Any ideas on how to write this in VBA?

Yes this is possible.
All you need do is make a note of the Objects
index OR just rename it in the Names box and
then reference it....key here being the Action Verb....see below for ideas.

<pre/>
Sub ActivateObj()
'// Opens object
Dim oEmbFile As Object
Application.DisplayAlerts = False

'// Either reference the OLEObject by index
'// or by name if you Name the Object
'// Note:
'// Sheets(2) substitute with your Sheet
Set oEmbFile = ThisWorkbook.Sheets(2).OLEObjects(2)
oEmbFile.Verb Verb:=xlPrimary
Set oEmbFile = Nothing

Application.DisplayAlerts = True

End Sub
</pre>

 

[Quest]

Hi Ivan,
i seem to be stuck with a similar problem...

have sent you an email for the same. Please can you help me.
thanks,
Quest