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).
Merci d'avance pour votre aide
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
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
Partager