Discussion :

[easygoing17]

Bonjour,

Disposant de quelques notions en VBA côté Excel, je m'attaque maintenant au VBA sur Powerpoint.

Au quotidien, je dois réaliser des présentations avec une trame type :
- un nom de projet en premier slide
- le nom de mon entreprise sur chacun des slides + logo
- la date sur tous les slides

Dans un premier, par le code, j'ai commencé par ajouter des textbox auxquelles je fixe des valeurs. Je suis obligé de définir les slides malheureusement ...
Toujours est-il, je souhaite rendre cela un peu plus dynamique mtn, en intégrant un formulaire.

Je n'arrive toutefois pas à lier la valeur inscrite dans le champ du formulaire, à la valeur de la textbox. (Un plus serait de pouvoir à tout moment faire appel à ce formulaire pour modifier à tout moment ces données).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim sld As Slide
    Dim shp As Shape
 
    ' affectation à l'objet slide la première diapositive de la présentation en cours.
    Set sld = ActivePresentation.Slides(1)
 
    ' création de la zone de texte
    Set shp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 300, 50)
 
    ' ajout du texte
    With shp.TextFrame.TextRange
        ' ajout du texte
        .Text = "Bonjour et bienvenue sur DVP"
        ' modification de la police
        .Font.Name = "Helvetica 75 Bold"
        ' modification de quelques attributs
        .Font.Bold = msoFalse
        .Font.Italic = msoFalse
        .Font.Size = 18
    End With

Merci d'avance pour votre aide

[jerome.vaussenat]

Salut,

Je te propose d'utiliser la notion de modèle 'comme dans Word et Excel) pour faire ce que tu veux.

Bien sûr, pour être le plus efficace, bien penser à travailler en utilisant le masque des diapositives.

Donc, tu fais une présentation avec tout ce que tu veux à l'intérieur.
Tu applique un thème si tu veux.
Pour la date, Insertion / En tête et pied de page.
Pour le logo sur toutes les diapos, Tu vas dans le masque des diapo (affichage / Masque des diapositives) et tu insères l'image à l'endroit qui va bien. Du coup, elle s'affichera sur toutes les diapo utilisant la masque.

Quand tout est nickel, tu enregistres sous. Et dans la zone Type, choisis Modèle PowerPoint.

Chaque fois que tu veux utiliser ton modèle.
Fichier Nouveau. Tu trouves (si tu a enregistré ton modèle une option Proposés et surtout Personnel (tes modèles)
Et là ton modèle est dispo.

Tu n'as qu'a remplir. Si tu as des modifs à faire, De nouveau le masque est ton ami ...

[easygoing17]

Bonjour Jérôme,

Effectivement, je me sers déjà des masques diapo qui me permettent d'obtenir les champs indiqués.

Pour moi, aucun soucis d'aller modifier à chaque fois l'objet de la présentation, le logo, etc. Seulement, pour un utilisateur moins expert, je veux lui rendre la tâche plus facile en lui proposant une interface le faisant automatiquement pour lui.

D'où la nécessité d'un peu de code VBA (sinon je pensais aux propriétés avancées comme sur Word, mais non disponibles sur PPT)

[m@rina]

Bonjour,

Comme Jérôme, je ne vois pas l'intérêt du formulaire avec VBA ! Si ton entreprises utilisent plusieurs types de modèles PowerPoint, il suffit de les créer.
Par contre, puisque je suppose que tu as une version récente, il est préférable d'utiliser les thèmes (extension thmx) plutôt que des modèles. EN effet, un thème est disponible directement via le ruban, et un clic sur un thème modifie directement la présentation en cours si cette dernière a été correctement faite.
Pour créer un thème : clic sur le bouton déroulante des thèmes => Enregistrer le thème actif.

Il suffit de distribuer ces thèmes pour que tous les utilisateurs les retrouvent sur leur ruban.
Tu peux utiliser du VBA pour des personnalisations plus pointues, mais franchement ce que tu veux personnaliser c'est du basique qui, non seulement ne requiert pas le VBA, mais complique la vie de l'utilisateur qui va passer par un formulaire juste pour changer le titre de sa présentation.

m@rina

[clementmarcotte]

Bonjour,

D'où la nécessité d'un peu de code VBA (sinon je pensais aux propriétés avancées comme sur Word, mais non disponibles sur PPT)

Ah oui ?????????????????????????????????????????????

Un petit manuel, ou un petit peu de formation, peut-être ?

Cette maudite manie de considérer les utilisateurs pour des :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Choix = Choose(Numéro_désiré, "Idiots", "imbéciles", "inaptes", "ineptes", "Cruches")

Au besoin, voir Choose, fonction dans l'aide de VBA.

P.S. Allo m@rina