Ouvrez un Objet Incorporé dans Excel à l'aide de VBA

Excel:

Vous pouvez obtenir le OLEObject forme la OLEObjects de la Worksheet. Voir OLEObjects - https://msdn.microsoft.com/en-us/library/office/ff840244.aspx, OLEObject - https://msdn.microsoft.com/en-us/library/office/ff838421.aspx, OLEObject membres - https://msdn.microsoft.com/EN-US/library/office/ff841208.aspx.

Il existe une méthode Verb qui a un verbe pour l'ouverture de l'objet. Voir https://msdn.microsoft.com/EN-US/library/office/ff838827.aspx - Verbs - https://msdn.microsoft.com/EN-US/library/office/ff820926.aspx

Exemple:

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

"Objet 1" est le nom de l'objet dans la feuille de calcul Excel. L'objet doit être dans la feuille active.

Mot:

Dans Word, il dépend de l'objet incorporé est dans un InlineShape ou un Shape. Et il n'y a pas de OLEObjects collection. Si vous devez manipuler avec Shape.OLEFormat. Voir 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.

Exemple:

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

OriginalL'auteur Axel Richter