Shapes.AddOLEObject, méthode (Publisher)

Article
04/07/2023

Ajoute un nouvel objet Shape représentant un objet OLE à la collection Shapes spécifiée.

Syntaxe

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

expression Variable qui représente un objet Shapes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Left	Obligatoire	Variant	Position du bord gauche de la forme représentant l'objet OLE.
Top	Obligatoire	Variant	Position du bord supérieur de la forme représentant l'objet OLE.
Width	Facultatif	Variant	Largeur de la forme représentant l'objet OLE. La valeur par défaut est -1, ce qui signifie que la largeur de la forme est automatiquement définie en fonction des données de l'objet.
Height	Facultatif	Variant	Hauteur de la forme représentant l'objet OLE. La valeur par défaut est -1, ce qui signifie que la hauteur de la forme est automatiquement définie en fonction des données de l’objet.
ClassName	Facultatif	String	Nom de classe de l'objet OLE à ajouter.
FileName	Facultatif	String	Nom de fichier de l'objet OLE à ajouter. Si le chemin d'accès n'est pas indiqué, le dossier de travail actif est utilisé.
Link	Facultatif	MsoTriState	Détermine si l'objet OLE est lié ou incorporé à la composition.

Valeur renvoyée

Shape

Remarques

Pour les arguments Left, Top, Width et Height , les valeurs numériques sont évaluées en points ; les chaînes peuvent être dans n’importe quelle unité prise en charge par Microsoft Publisher (par exemple, « 2,5 pouces »).

Vous devez spécifier un ClassName ou un FileName. Si aucun de ces arguments n'est spécifié ou que les deux le sont, une erreur se produit.

Le paramètre Link peut être l’une des constantes MsoTriState déclarées dans la bibliothèque de type Microsoft Office et affichées dans le tableau suivant.

Constante	Description
msoFaux	L'objet OLE est incorporé.
msoVrai	L'objet OLE est lié. Valeur par défaut.

Exemple

L’exemple ci-après ajoute une feuille de calcul Microsoft Office Excel à la première page de la composition active et active la feuille de calcul en vue de sa modification.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via