Macro pour personnaliser le masterslide d'une présentation powerpoint

Version imprimable

Bonjour

j'ai créé une macro qui prend les données d'un fichier excel et les mets dans un powerpoint. Jusque là rien de bien compliqué je vous le concède.
La deuxième étape maintenant serait de permettre aux personnes qui l'utilisent de personnaliser leur master slide powerpoint au lancement de la macro. Pour l'instant, la place des champs (1,2,3, 4 et 5) est figée et aucun
masque n'est ajoutable.

J'ai mis le morceau de code de la macro qui concerne powerpoint.

L'idée serait de:
1- lancer la macro
2- le slide powerpoint apparaît vierge en mode slide master avec les 5 champs définis et à placer dans le slide.
3- l'utilisateur personnalise son master slide (déplace les champs et ajoute son masque).
4- valide le master slide -> la macro reprend et crée tous les slides sur le format choisit.

Est ce que vous pensez qu'avec vba, il est possible d'aller aussi loin?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub test_creation_page_slide()
'
' Macro recorded 30/04/2009 by BM1500
'
 
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim Diapo As PowerPoint.Slide
Dim Sh As PowerPoint.Shape
Dim Cs1 As ColorScheme
Dim NbShpe As Integer
Dim i As Integer
Dim k As Integer
Dim j As Integer
 
 
    Set Diapo = .Slides.Add(Index:=1, Layout:=ppLayoutBlank)
    Set Sh = .Slides(1).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, _
        Left:=100, Top:=100, Width:=150, Height:=30)
    'insert the value in a text field
    Sh.TextFrame.TextRange.Text = "champ 1:" & " " & Worksheets(k).Cells(i, 2)
    Sh.TextFrame.TextRange.Font.Size = 12
    Set Sh = .Slides(1).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, _
        Left:=300, Top:=100, Width:=150, Height:=60)
    'insert the value in a text field
    Sh.TextFrame.TextRange.Text = "Champ 2" & " " & Worksheets(k).Cells(i, 4)
    Sh.TextFrame.TextRange.Font.Size = 12
    Set Sh = .Slides(1).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, _
        Left:=100, Top:=120, Width:=150, Height:=60)
    'insert the value in a text field
    Sh.TextFrame.TextRange.Text = "Champ 3" & " " & Worksheets(k).Cells(i, 6)
   Sh.TextFrame.TextRange.Font.Size = 12
    Set Sh = .Slides(1).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, _
        Left:=100, Top:=450, Width:=500, Height:=30)
    'insert teh value in a text field
        Sh.TextFrame.TextRange.Text = "Champ 4:" & " " & Worksheets(k).Cells(i, 7)
    Sh.TextFrame.TextRange.Font.Size = 12
      Set Sh = .Slides(1).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, _
        Left:=100, Top:=180, Width:=200, Height:=260)
    'insert the value in a text field
    Sh.TextFrame.TextRange.Text = "Champ 5"&" "&Worksheets(k).Cells(i, 8)

30/05/2009, 10h24
Invité

Bonjour et bienvenue sur le forum Office de DVP.

Je n'ai pas regardé dans le détail, mais il y a une chose qu'il faut prendre en considération.

C'est que les gens qui vont utiliser cela auront toujours la possibilité de supprimer des zones ou d'en ajouter. En effet, tu les fais rentrer en mode conception, ils sont donc libres de faire ce qu'ils veulent, et même sans cela une fausse manipulation est vite arrivée.

Tout cela fait que ton système ne sera pas fiable à 100 %

Philippe
30/05/2009, 12h14
Nashman

je suis d'accord avec toi. En donnant la possibilité de concevoir à un moment donné, je perds le contrôle sur l'éxécution de ma macro dans les meilleures conditions. Cependant, en leur expliquant en amont l'impact de leur manipulations, ce risque sera assez faible. Merci pour ton avertissement.
30/05/2009, 17h43
Invité

Re

Malgré les avertissements, il y aura toujours un risque, enfin c'est ton choix (si cela fonctionne tiens moi au courant si tu as des boulets) ;)

En revenant sur ton problème.

Je passerais par 2 macros, une qui fait la première choses décrite ci-dessus, et ensuite, je ferais cliquer les utilisateurs sur un bouton ou autre pour lancer l'autre macro, et non pas une interruption dans une macro.

A priori, je ne vois pas de problèmes particulier à ton projet, a si un truc, je te conseilles de nommes tes contrôles à la création avec la propriété Name, en effet si tes utilisateurs qui customizent l'ensemble veulent rajouter des contrôles du même type tu seras moins embêté.

Philippe