Öffnen Sie ein Eingebettetes Objekt in Excel mit VBA

In ein ms-office Dokument, das ich habe, embedded /eingefügt ein externes Dokument (Objekt) (PDF-Datei, in meinem Fall).

Nachdem Sie das Dokument öffnen, wenn ich auf das PDF-Objekt-Symbol, Es öffnet sich die PDF-Datei eingebettet ist.

Mittels VBA /Makro möchte ich das gleiche tun, Wo ich muss ein makro ausführen und es öffnet sich die eingebettete PDF-Datei(Ohne zu klicken auf das PDF-SYMBOL).

Ist es möglich?

Dank,

InformationsquelleAutor Dev.K. | 2015-12-27

  1. 6

    Excel:

    Können Sie die OLEObject form der OLEObjects des Worksheet. Sehen OLEObjects - https://msdn.microsoft.com/en-us/library/office/ff840244.aspx, OLEObject - https://msdn.microsoft.com/en-us/library/office/ff838421.aspx, OLEObject Mitglieder - https://msdn.microsoft.com/EN-US/library/office/ff841208.aspx.

    Es ist eine Methode Verb hat ein verb für ein Objekt öffnen. Sehen https://msdn.microsoft.com/EN-US/library/office/ff838827.aspx - Verbs - https://msdn.microsoft.com/EN-US/library/office/ff820926.aspx

    Beispiel:

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

    "Objekt 1" ist der name des Objekts in der Excel-Arbeitsblatt. Das Objekt muss in das aktive Blatt.

    Wort:

    In Wort, es hängt davon ab, ob das eingebettete Objekt in ein InlineShape oder eine Shape. Und es gibt keine OLEObjects Sammlung. So müssen Sie den Griff mit Shape.OLEFormat. Sehen 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.

    Beispiel:

    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
    Danke! Was ist mit MS-Word-Dokument. Kann ich ähnliches mit MS-Word-Dokument Makro-wie auch ?
    In Wort, es hängt davon ab, ob das eingebettete Objekt in ein InlineShape oder eine Shape. Und es gibt keine OLEObjects Sammlung. So müssen Sie den Griff mit Shape.OLEFormat. Aber es gibt keine MS-Word tag in Ihrem Frage-und-nirgends-Wort erwähnt wird. Also, warum Sie Sie bitten, für Word jetzt?
    Sorry, Aber ich habe, was ich wissen wollte. Vielen Dank.

    InformationsquelleAutor Axel Richter

  2. 3

    Kurz, wenn Sie bereits wissen, welches Objekt Sie sich beziehen:

    Excel

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

    Wort

    ActiveDocument.InlineShapes(1).OLEFormat.Open
    Vielen Dank für die auf den Punkt beantworten.
    Was sollte das Objekt für MS Word. In excel hab ich die Objekt-Namen, die durch die Aufnahme der operation. aber office erlaubt mir nicht, zu erfassen die Objekt-Klick-Bedienung.?
    Es ist eine Sammlung von InlineShapes und können Sie finden angegeben objet mit der Nummer. Von dem, was ich verstehe, das zählen geht top-down und Links-rechts. Sie können Durchlaufen die Objekte, die Sie in die Datei mit dem folgenden code - Typ des Objekts, das Sie wollen, ist 1: cnt = ActiveDocument.InlineShapes.Count For i = 1 To cnt MsgBox ActiveDocument.InlineShapes(i).Type Next
    Von dem, was ich sehe, gibt es keine .Name-Eigenschaft, wie wir es in Excel mit OLEObjects-Auflistung.

    InformationsquelleAutor Andrew L.

Schreibe einen Kommentar