Discussion :

[sorbetframboise]

Bonjour à tous,

J'ai une macro qui me permet d'ajouter des diapos et des graphs dans un PowerPoint je souhaiterais également ajouter des titres à chaque slide mais je ne sais pas comment faire je n'ai rien trouvé à ce sujet auriez-vous une piste pour me guider ?

Merci d'avance pour vos réponses

[Zekraoui_Jakani]

Vous pouvez utiliser cet exemple dans PowerPoint, moyennant un bouton de commande:

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
21
Sub TitreDuSlide()
 
    Dim Annee As String
    Dim Trimestre As String
    Dim LeTitre As Font
 
    Set LeTitre = ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange.Font
    'Capter le titre à utiliser
    Annee = InputBox("Encodez l'Année :")
    Trimestre = InputBox("Encodez le Trimestre")
 
    'vérifier l'existene ou non du titre
    If ActivePresentation.Slides(1).Shapes.HasTitle = msoTrue Then
        ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange.Text = "Revenus de l'année " & Annee & "; Trimestre " & Trimestre
    Else
    'Ajouter le itre
        ActivePresentation.Slides(1).Shapes.AddTitle.TextFrame.TextRange.Text = "Revenus de l'année " & Annee & "; Trimestre " & Trimestre
    End If
        LeTitre.Size = 23
 
End Sub

[sorbetframboise]

Justement je souhaite le faire depuis Excel et pas depuis PowerPoint hier soir j'ai trouvé quelques pistes mais ce n'est pas abouti je vais continuer à me torturer les méninges.

Merci quand même pour votre réponse.

[Pierre Fauconnier]

Salut.

Pour le faire depuis Excel, je préconise d'apprendre d'abord à le faire en PowerPoint en utilisant des objets PP dans son code. Pour le faire au départ d'Excel par la suite, il suffira d'activer la bibliothèque Power Point et de rediriger correctement les objets lors de l'affectation des variables (notamment, principalement et probablement uniquement, la variable pointant vers l'application PowerPoint).