création masque powerpoint

[sauce31]

Bonjour,

Grâce à excel, en vba, je crée un document powerpoint avec x diapos.

Sur chaque diapo, j'aimerais créer un masque qui affiche le numéro de la diapo en bas à droite ainsi qu'une image en haut à gauche.

J'ai regardé sur différents forums mais je n'ai pas réussi à la faire.

J'ai entre autre écrit ce code mais rien ne se passe.

MonPowerpoint.ActivePresentation.SlideMaster.Shapes(1).TextFrame.TextRange.Text = cpt

Merci de votre aide.

 

[mromain]

Re : création masque powerpoint

Bonjour sauce31, et bienvenue sur le forum,

N'y a-t-il pas moyen de créer un modèle de document (PowerPoint) avec le masque contenant la photo et la numérotation de page, puis dans ton code VBA, créer le document à partir de ce modèle ?

a+

 

[sauce31]

Re : création masque powerpoint

Je ne sais pas comment faire en vba.

Peux-tu m'aider?

 

[mromain]

Re : création masque powerpoint

Je peux essayer, mais il faudrait déjà que tu fournisses ton code actuel (afin de le modifier) 😉

a+

 

[sauce31]

Re : création masque powerpoint

Le voici :

  k = 7
    Nb_row = Range("E" & Rows.Count).End(xlUp).Row
    Nb_col = 5
    While (Cells(2, Nb_col + 1) <> "" And Cells(2, Nb_col + 2) <> "")
            Nb_col = Nb_col + 1
    Wend
    
    Dim MonPowerpoint As Object
    
    Do While k < Nb_col + 1
    
        i = 3
        cpt = 1
        Set ApplicationPpt = Nothing
        
        Set MonPowerpoint = CreateObject("Powerpoint.Application")
        MonPowerpoint.Visible = True
        MonPowerpoint.Activate
        Dim PptDoc As Object
        Set PptDoc = MonPowerpoint.Presentations.Add

        'traitement pour la création de mes x diapo
        'je te montre pas le code il risque de ne pas être très interessant pour toi

       'création du masque pour le numéro des pages
       
        [COLOR="Red"]MonPowerpoint.ActivePresentation.SlideMaster.Shapes(3).TextFrame.TextRange.Text = cpt[/COLOR]


       'enregistrement powerpoint
        MonPowerpoint.Activate
        chemin = ActiveWorkbook.Path & "\" & Cells(1, k) & ".ppt"
        MonPowerpoint.ActivePresentation.SaveAs chemin
        Set ApplicationPpt = Nothing
      
        k = k + 2
    Loop
    MonPowerpoint.Quit

Dis moi ci ce code te suffit

 

[sauce31]

Re : création masque powerpoint

Dis moi si ce code te suffit

 

[mromain]

Re : création masque powerpoint

re,

voici un essai (ça a l'air de fonctionner chez moi) :

  k = 7
    Nb_row = Range("E" & Rows.Count).End(xlUp).Row
    Nb_col = 5
    While (Cells(2, Nb_col + 1) <> "" And Cells(2, Nb_col + 2) <> "")
            Nb_col = Nb_col + 1
    Wend
    
    Dim MonPowerpoint As Object
    
    Do While k < Nb_col + 1
    
        i = 3
        cpt = 1
        Set ApplicationPpt = Nothing
        
        Set MonPowerpoint = CreateObject("Powerpoint.Application")
        MonPowerpoint.Visible = True
        MonPowerpoint.Activate
        Dim PptDoc As Object
[B]        Set PptDoc = MonPowerpoint.Presentations.Open("[COLOR=Red]E:\test\Présentation2.pot[/COLOR]")
        chemin = ActiveWorkbook.Path & "\" & Cells(1, k) & ".ppt"
        PptDoc.SaveAs chemin[/B]
        
        'traitement pour la création de mes x diapo
        'je te montre pas le code il risque de ne pas être très interessant pour toi

       'création du masque pour le numéro des pages
       
        MonPowerpoint.ActivePresentation.SlideMaster.Shapes(3).TextFrame.TextRange.Text = cpt


       'enregistrement powerpoint
[B]        PptDoc.Save[/B]
        Set ApplicationPpt = Nothing
      
        k = k + 2
    Loop
    MonPowerpoint.Quit

il faut biensur modifier le path du modèle .dot (en rouge).

a+

 

[sauce31]

Re : création masque powerpoint

J'ai fait toutes les modifications mais mon masque ne s'affiche pas.

Je pense que j'ai mal enregistré mon masque dans mon fichier .pot.

Peux-tu m'aider à le faire et à l'enregistrer comme il le faut?

 

[mromain]

Re : création masque powerpoint

Difficile, je ne suis pas sur ton PC.

De mon coté, j'ai créé une nouvelle présentation (vierge), j'y ai créé un masque, j'ai enregistré le tout au format .pot, et le fichier généré par macro contenait bien le masque...

Je ne vois pas quoi faire de plus...

a+

 

[sauce31]

Re : création masque powerpoint

Le problème est que quand j'ouvre mon fichier .pot, je ne vois mon masque.

Pour le créer, j'ai fait : Affichage / Masque des diapo puis Inserer un espace réservé avec mon image puis je l'enregistre en .pot.

Faut-il faire ca?

 

[mromain]

Re : création masque powerpoint

La manip a l'air d'être bonne...
Je viens de le refaire sur mon PC, et il n'y a toujours pas de soucis...
Je ne vois pas trop quoi faire.

a+

 

[sauce31]

Re : création masque powerpoint

J'ai juste une question.

Dans ton fichier .pot, quand tu l'ouvre, tu vois ton masque?

Et quand tu fais Afficher / Masque des diapositives, t'as combien de diapos (si t'en as plusieurs)?

Merci encore

 

[mromain]

Re : création masque powerpoint

Création du modèle .pot :
- ouvrir une nouvelle présentation
- ouvrir le masque des diapositives
- modifier les masques (en général, je ne modifie que le masque "de tête", celui tout en haut)
- fermer le masque des diapositives
- enregistrer le fichier au format .pot.

Ensuite, lorsque on ouvre le fichier .pot, qu'on crée une nouvelle présentation à partir de ce modèle ou qu'on exécute ton code, le masque est bien là.

a+

 

[sauce31]

Re : création masque powerpoint

Je me suis débrouillé.

Merci beaucoup pour tes réponses

 

[gabinou]

Re : création masque powerpoint

e suis actuellement en train de réaliser une macro qui génère un ppt à partir d'un Excel. Cependant j'aimerais que le ppt créé (et les slides associés) utilise un masque particulier (.pot).


As tu une solution à proposer?

J'ai essayé avec ta ligne de code mais une erreur s'affiche.

Merci d'avance !