Discussion :

[Carlos31]

Bonjour le forum,
je me sers de ce code pour me rendre sur la diapo 16.

Code :

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

SlideShowWindows(1).View.GotoSlide (16)

J'aimerais utiliser plutôt le nom de la diapositive que sa position !

Code :

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

SlideShowWindows(1).View.GotoSlide ("Ma diapo nommée")

Bien sur ce code ne marche pas .
Merci
Bonne soirée
Carlos

[pgz]

Bonsoir.

Je ne peux pas t'assurer que cela marche, mais tu pourrais essayer

Code :

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

SlideShowWindows(1).View.GotoSlide ActivePresentation.Slides("nom").SlideNumber

Cordialement,

PGZ

[clementmarcotte]

Bonjour,

Bien sûr que l'aide de VBA-Powerpoint dit que l'index est obligatoire et que l'index est de type Integer.

Donc, il faut tricher. Cela prend une "Table de correspondance" entre le numéro de diapositive et le nom de la diapositive.

Cela peut se faire avec un tableau caché à quelque part dans la présentation, quitte à ajouter une diapositive cachée. L'avantage étant que les données sont conservées entre deux utilisations du fichier. Pour exploiter les données on peut utiliser un "dictionnaire" (objet Dictionnary) que l'on peut avoir en liaison précoce (et l'intellisence, si les infos sont disponibles) avec une référence à Microsoft Scripting Runtime ou en liaison tardive avec un CreateObject(Scripting.Dictionnary)

[Carlos31]

Bonjour,
La solution en string ne fonctionne pas :

Code :

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

SlideShowWindows(1).View.GotoSlide ActivePresentation.Slides("nom").SlideNumber

L'autre solution ( dictionnaire)me parait trop difficile à mettre en place avec mon niveau de compétence.

Donc en faite si on inséré une nouvelle diapositive dans une présentation il faudra modifier tous les codes ?

Code :

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

SlideShowWindows(1).View.GotoSlide (8 + 1)

Merci
Carlos

[pgz]

Bonjour.

La solution en string ne fonctionne pas :

Code :

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

SlideShowWindows(1).View.GotoSlide ActivePresentation.Slides("nom").SlideNumber

Intrigué de savoir pourquoi, j'ai essayé et si, cela fonctionne ! Bien sûr, je remplace "nom" par celui d'une diapo.

Cordialement,

PGZ

[clementmarcotte]

Bonjour,

Voici donc quelque chose qui semble marcher. Bien lire les commentaires du début et agir en conséquence avant de lancer.

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Dim Relevé As New Scripting.Dictionary
 
Sub TableauNoms()
    'Commencer ici
    'S'assurer que la référence à
    'Microsoft Scripting Runtime
    'Dans Outils-Références
    'a bien été ajoutée
    'Et ne pas se plaindre que ce n'est pas indiqué
    'Pour avoir de l'informattion sur un
    'mot-clef, il suffit de cliquer sur le mot-clef
    'et de peser sur la touche F1
    'Je laisse à un autre volontaire,
    'le soin d'ajouter un contrôle d'erreurs
    'entre autres quand il n'y a pas de données
    'dans les InputBoxes.
    Dim LeDernier As Integer
    LeDernier = ActivePresentation.Slides.Count
    Dim lenom As String
    Dim i As Integer
    For i = 1 To LeDernier
        lenom = ActivePresentation.Slides(i).Name
        Relevé.Add i, lenom
    Next
    OnDéplaceSelonLeNom
End Sub
 
Sub OnDéplaceSelonLeNom()
    Dim unnom As String
    Dim arrivée As Integer
    'Au lieu d'utiliser des InputBoxes, on pourrait faire
    'un UserForm avec de jolis boutons, mais j'ai d'autres
    'chats à fouetter
    unnom = InputBox("Indiquez le nom de la diapositive à déplacer")
    arrivée = CInt(InputBox("Indiquez l'endroit où vous voulez la déplacer"))
    Dim untexte As String
    untexte = "On peut facilement déplacer une diapositive avec un vulgaire"
    untexte = untexte & vbNewLine & "glisser-déposer. C'est encore plus facile quand"
    untexte = untexte & vbNewLine & "l'affichage est en mode Trieuse de diapositives."
    MsgBox (untexte)
    Dim LeNuméroÀDéplacer As Integer
    LeNuméroÀDéplacer = NuméroSelonLeNom(unnom)
    ActivePresentation.Slides(LeNuméroÀDéplacer).MoveTo arrivée
End Sub
 
Function NuméroSelonLeNom(nom As String) As Integer
Dim i As Integer
i = 0
    For Each p In Relevé.Items
         If p = nom Then
            NuméroSelonLeNom = i
            Exit Function
        End If
        i = i + 1
    Next 'Key
  End Function