电子表格：

您可以从Worksheet的OLEObjects取得OLEObject。请参阅OLEObjects-https://msdn.microsoft.com/en-us/library/office/ff840244.aspx、OLEObject-https://msdn.microsoft.com/en-us/library/office/ff838421.aspx、OLEObject成员-https://msdn.microsoft.com/EN-US/library/office/ff841208.aspx。
有一个方法Verb，它有一个打开对象的动词。参见https://msdn.microsoft.com/EN-US/library/office/ff838827.aspx-Verb s -https://msdn.microsoft.com/EN-US/library/office/ff820926.aspx
示例：

Sub test()
 With ActiveSheet
  Set o = .OLEObjects("Objekt 1")
  o.Verb xlVerbOpen
 End With
End Sub

“Objekt 1”是Excel工作表中对象的名称。该对象必须位于活动工作表中。

关键字：

在Word中，这取决于嵌入对象是在InlineShape还是Shape中。并且没有OLEObjects集合。因此必须使用Shape.OLEFormat进行处理。请参阅InlineShapes-https://msdn.microsoft.com/en-us/library/office/ff822592.aspx、Shapes-https://msdn.microsoft.com/en-us/library/office/ff845240.aspx、Shape-https://msdn.microsoft.com/en-us/library/office/ff196943.aspx、OLEFormat-https://msdn.microsoft.com/EN-US/library/office/ff197153.aspx。
示例：

Sub test()

 With ActiveDocument
  Set oShape = .InlineShapes(1) 'The embedded object is the first InlineShape.
  'Set oShape = .Shapes(1) 'The embedded object is the first Shape.
  Set oOLEFormat = oShape.OLEFormat
  oOLEFormat.Open
 End With

End Sub

简而言之，当您已经知道所指的对象时：

电子表格

Sheets("Sheet1").OLEObjects("Object 1").Activate

单词

ActiveDocument.InlineShapes(1).OLEFormat.Open

试试看：

Sub test()
    With ActiveSheet
        Set o = .OLEObjects("Objekt 1")
        o.Verb xlPrimary
    End With
End Sub