Insértion objet sous forme d'image
Arthur
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
Dans powerpoint, je souhaite insérer un objet (en l’occurrence un fichier PDF qui puisse s'ouvrir directement à partir du PPT sans que l'on ne dispose du fichier source sur son disque).
Jusque là aucun problème. Simplement, au lieu que l'objet ne se présente sous la forme d'une icone PDF sur ma slide, je voudrais qu'il se présente sous la forme d'une image que je peux choisir / télécharger moi-même, sans que l'icone PDF n'apparaisse. et la je bloque...
Auriez vous une solution??
Un grand merci,
Arthur
Dans powerpoint, je souhaite insérer un objet (en l’occurrence un fichier PDF qui puisse s'ouvrir directement à partir du PPT sans que l'on ne dispose du fichier source sur son disque).
Jusque là aucun problème. Simplement, au lieu que l'objet ne se présente sous la forme d'une icone PDF sur ma slide, je voudrais qu'il se présente sous la forme d'une image que je peux choisir / télécharger moi-même, sans que l'icone PDF n'apparaisse. et la je bloque...
Auriez vous une solution??
Un grand merci,
Arthur
A voir également:
- Insértion objet sous forme d'image
- Mise en forme conditionnelle excel - Guide
- Mise en forme tableau word - Guide
- Image iso - Guide
- Insertion sommaire word - Guide
- Insertion filigrane word - Guide
1 réponse
Bonjour,
C'est pour Excel, mais je pense adaptable sur PowerPoint:
https://excel.developpez.com/faq/?page=Shape#ImageFormeAutomatique
C'est pour Excel, mais je pense adaptable sur PowerPoint:
https://excel.developpez.com/faq/?page=Shape#ImageFormeAutomatique
Chemin = Application.GetOpenFilename("Tout fichiers (*.*), *.*") If Chemin = False Then Exit Sub Application.ScreenUpdating = False Set Emplacement = ActiveCell With ActiveSheet Set Obj = .OLEObjects.Add(Filename:=Chemin, _ Link:=False, DisplayAsIcon:=True, iconIndex:=0, iconLabel:=Chemin) End With With Obj.ShapeRange .LockAspectRatio = msoFalse .Left = Emplacement.Left .Top = Emplacement.Top .Height = Emplacement.Height .Width = Emplacement.Width .Name = "mashape" End With Application.ScreenUpdating = True@+
Désolé je ne peux pas t'aider