Shapes.AddOLEObject, méthode (PowerPoint)

Article
04/07/2023

Crée un objet OLE. Renvoie un objet Shape qui représente le nouvel objet OLE.

Syntaxe

expression. AddOLEObject( _Left_, _Top_, _Width_, _Height_, _ClassName_, _FileName_, _DisplayAsIcon_, _IconFileName_, _IconIndex_, _IconLabel_, _Link_ )

expression Variable qui représente un objet Shapes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Left	Facultatif	Unique	Position (en points) de l’angle supérieur gauche du nouvel objet par rapport à l’angle supérieur gauche de la diapositive. La valeur par défaut est 0 (zéro).
Top	Facultatif	Unique	Position (en points) de l’angle supérieur gauche du nouvel objet par rapport à l’angle supérieur gauche de la diapositive. La valeur par défaut est 0 (zéro).
Width	Facultatif	Unique	Largeur initiale de l’objet OLE, exprimée en points.
Height	Facultatif	Unique	Hauteur initiale de l’objet OLE, exprimée en points.
ClassName	Facultatif	String	Nom de classe OLE ou ProgID de l’objet à créer. Vous devez spécifier l’argument NomClasse ou NomFichier de l’objet, mais pas les deux.
FileName	Facultatif	String	Fichier à partir duquel l’objet doit être créé. Si le chemin d’accès n’est pas spécifié, le dossier de travail actif est utilisé. Vous devez spécifier l’argument NomClasse ou NomFichier de l’objet, mais pas les deux.
DisplayAsIcon	Facultatif	MsoTriState	Détermine si l’objet OLE sera affiché sous forme d’icône.
IconFileName	Facultatif	String	Fichier contenant l'icône à afficher.
IconIndex	Facultatif	Long	Index de l'icône dans l'argument NomFichierIcône. La première icône dans le fichier porte le numéro d'index 0 (zéro). Si une icône avec le numéro d'index donné n'existe pas dans IconFileName, l'icône avec le numéro d'index 1 (la deuxième icône dans le fichier) est utilisée. La valeur par défaut est 0 (zéro).
IconLabel	Facultatif	String	Légende à afficher sous l'icône.
Link	Facultatif	MsoTriState	Détermine si l’objet OLE sera lié au fichier à partir duquel il a été créé. Si vous avez spécifié une valeur pour ClassName, cet argument doit être msoFalse.

Valeur renvoyée

Shape

Exemple

Cet exemple ajoute un document Word lié à myDocument.

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=200, Height:=300, _ 
    FileName:="c:\my documents\testing.doc", Link:=msoTrue

Cet exemple ajoute une nouvelle feuille de calcul Microsoft Excel à myDocument. Cette feuille de calcul s’affichera sous la forme d’une icône.

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=200, Height:=300, _ 
    ClassName:="Excel.Sheet", DisplayAsIcon:=True

Cet exemple ajoute un bouton de commande à myDocument.

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=150, Height:=50, ClassName:="Forms.CommandButton.1"

Voir aussi

Objet Shapes

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.