Button to launch embedded object

[Legacy 32120]

Hello folks,

How can I create a single click button to launch an embedded Word document please?

I know how to insert an embedded object but activating it requires double clicking the shape.

With thanks,

Max Kramer

 

[Leith Ross]

Hello Max,

This macro will launch any embedded Word object on the active sheet.

Sub LaunchIt()

  Dim Obj As Object
  
    For Each Obj In ActiveSheet.OLEObjects
      If Obj.progID Like "Word*" Then Obj.Activate
    Next Obj
  
End Sub

 

[Legacy 32120]

Hi Leith,

Thanks muchly for the macro. It works with a (single-click) CommandButton, and launches all the Word objects in the sheet.

However, I should have mentioned that I've multiple Word objects in the sheet and need to launch them only one at a time. Can the code be altered accordingly?

Max

 

[Leith Ross]

Hello Max,

If you want to open a single embedded object with a single command button, you can use either the object's name or the collection index number to reference it.

Referencing the Embedded Object by Name

Sub CommandButton1_Click()
   ActiveSheet.OLEObjects("Object 1").Activate
End Sub

Referencing the Embedded Object by the Collection Index Value

Sub CommandButon1_Click()
  ActiveSheet.OLEObjects(1).Activate
End Sub

If you want to do something else, let me know.

Sincerely,
Leith Ross

 

[Legacy 32120]

Hello Leith,

Thanks again....

Cheers for now,

Max

 

[Legacy 32120]

Hello Leith,

Thanks again....

Cheers for now,

Max

 

[bontemps]

This is great information - Would you mind providing the info on how to activate a document that is on a different sheet?