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

PS : n'ayant vu cette catégorie, j'ai déjà déposé le même message dans Office>Powerpoint mais n'arrive pas à le supprimer