Shapes.AddOLEObject-Methode (Publisher)

Artikel
04/07/2023

Fügt der angegebenen Shapes-Auflistung ein neues Shape-Objekt hinzu, das ein OLE-Objekt darstellt.

Syntax

Ausdruck. AddOLEObject (Left, Top, Width, Height, ClassName, FileName, Link)

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Left	Erforderlich	Variant	Die Position der linken Begrenzung der Form, die das OLE-Objekt darstellt.
Top	Erforderlich	Variant	Die Position der oberen Begrenzung der Form, die das OLE-Objekt darstellt.
Width	Optional	Variant	The width of the shape representing the OLE object. Default is -1, meaning that the width of the shape is automatically set based on the object's data.
Height	Optional	Variant	The height of the shape representing the OLE object. Der Standardwert ist -1, was bedeutet, dass die Höhe der Form automatisch basierend auf den Daten des Objekts festgelegt wird.
ClassName	Optional	String	Der Klassenname des OLE-Objekts, das hinzugefügt werden soll.
FileName	Optional	String	Der Dateiname des OLE-Objekts, das hinzugefügt werden soll. Wenn kein Pfad angegeben ist, wird der aktuelle Arbeitsordner verwendet.
Link	Optional	MsoTriState	Bestimmt, ob das OLE-Objekt mit der Publikation verknüpft oder in sie eingebettet ist.

Rückgabewert

Form

Bemerkungen

Für die Argumente Left, Top, Width und Height werden numerische Werte in Punkt ausgewertet. Zeichenfolgen können in beliebigen Einheiten enthalten sein, die von Microsoft Publisher unterstützt werden (z. B. "2,5 zoll").

Sie müssen entweder einen ClassName oder einen FileName angeben. Wenn kein Argument angegeben ist oder beide Argumente angegeben sind, tritt ein Fehler auf.

Der Link-Parameter kann eine der msoTriState-Konstanten sein, die in der Microsoft Office-Typbibliothek deklariert und in der folgenden Tabelle angezeigt werden.

Konstante	Beschreibung
msoFalse	Das OLE-Objekt ist eingebettet.
msoTrue	Das OLE-Objekt ist verknüpft. Standardwert.

Beispiel

Im folgenden Beispiel wird der ersten Seite der aktiven Publikation ein Microsoft Office Excel-Arbeitsblatt hinzugefügt und das Arbeitsblatt zum Bearbeiten aktiviert.

Dim shpSheet As Shape 
 
Set shpSheet = ActiveDocument.Pages(1).Shapes.AddOLEObject _ 
 (Left:=72, Top:=72, ClassName:="Excel.Sheet") 
 
shpSheet.OLEFormat.Activate

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.