Création automatique d'une photo sous PPS

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
Avatar du membre
clyver
Membre fidèle
Membre fidèle
Messages : 268
Inscrit le : 20 mars 2008

Message par clyver » 5 octobre 2017, 18:10

Bonsoir le forum,

Encore une requête VBA

Je m'explique sous PowerPoint j'aimerai que lors de l'enregistrement du fichier
  • Ctrl S
le code créer une image format .jpg (taille 700*500 en gros) de la première diapositive de la présentation et la copie dans la racine ou dans un emplacement défini..


Merci de l'entraide :)
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 413
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 5 octobre 2017, 18:49

Bonjour,

Dans un premier temps ... une fois dans ton PowerPoint ... je te conseille de mettre en marche ton enregistreur de macros ... et de suivre ton processus une fois ... tu auras une première version VBA de tes actions ...

Ensuite, il sera toujours temps d'améliorer cette macro ...
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
clyver
Membre fidèle
Membre fidèle
Messages : 268
Inscrit le : 20 mars 2008

Message par clyver » 5 octobre 2017, 19:49

Bonsoir James007,

Sous PowerPoint, pas de bouton (Enregistrer une macro) même dans le menu Développeur.

Merci
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 413
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 5 octobre 2017, 19:52

OOPS ... Ma mémoire vacille ... :wink:

Tu as raison ... je me souviens qu'il fallait se farcir des kilos tonnes de tests ... :roll:
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
clyver
Membre fidèle
Membre fidèle
Messages : 268
Inscrit le : 20 mars 2008

Message par clyver » 11 octobre 2017, 13:41

Bonjour à tous,

J'ai encore besoin de vous,
Sub exportimage()
Dim chemin_nom
chemin_nom = "c:\chemin d'accès"
ActiveWindow.Selection.SlideRange(1).Export chemin_nom, "png", 2540, 1429
End Sub
ok pour ma macro mais cependant j'aimerai quel s'exécute automatiquement lors de la fermeture de mon fichier.


Merci
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 413
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 11 octobre 2017, 14:13

Bonjour,

Dans le module ThisWorkbook ... il te suffit d'ajouter:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.Run ("exportimage")
End Sub
En espèrant que cela t'aide ...
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
clyver
Membre fidèle
Membre fidèle
Messages : 268
Inscrit le : 20 mars 2008

Message par clyver » 11 octobre 2017, 14:29

Bonjour James007,

sous PowerPoint je n'ai pas le module "ThisWorkbook" :shock:
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 413
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 11 octobre 2017, 15:41

Re,

Désolé ... mais je ne connais pas les spécificités de VBA pour PowerPoint ... :oops:
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 8'828
Appréciations reçues : 315
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 11 octobre 2017, 16:14

En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message