Discussion :

[Pti_Lu]

Bonjour,
Comment créer sur shape un lien hypertexte vers une diapositive, à l'aide d'un clique de souris?
J'ai trouvé la commande pour un hyperlink, un diaporama personalisé mais impossible de trouver vers une simple diapo de la presentation.
Si quelqu'un à une idée du code...
En vous remerciant,

[Gado2600]

Bonjour,
Tu n'as pas besoin de code VBA pour cela (sauf si tu développes ton diapo en VBA).
Bref, tu fais un clic droit sur ta shapes => "Lien Hypertexte" => "Emplacement dans ce document"
Cordialement,

[Pti_Lu]

Je créée une macro sous powerpoint qui suivant la valeur inscrite dans le shape, ouvre soit un lien hypertexte et soit une diapo.
Je sais le faire manuellement mais je n'arrive pas à l'automatiser...

[clementmarcotte]

Bonjour,

Je n'ai pas le temps de tout faire à ta place mais une piste. Je viens d'ouvrir mon Aide de VBA PowerPoint et j'ai cherché Hyperlink. J'ai trouvé qu'il y a un objet Hyperlink avec plein de propriétés et de méthodes.

Je suppose qu'au travers de tout cela, il doit bien y avoir quelques exemples.

[Pti_Lu]

Bonjour,

Je comprends bien que vous ne le fassiez pas à ma place, et cela n'est pas l'objet de ma demande.
J'ai cherché dans l'aide de VBA et rien.
Je sait comment faire une action hyperlink afin d'ouvrir un autre fichier, une action pour aller à la première diapo de la présentation mais impossible de recréer un lien hypertexte vers une diapo de la présentation!
Comme sur ppt 2010, il n'est plus possible d'enregistrer une macro, je compte énormément sur votre aide.
Si une personne sait, je suis preneuse,

Cordialement,

Pti_Lu

[clementmarcotte]

Bonjour,

Bonjour,

mais impossible de recréer un lien hypertexte vers une diapo de la présentation!

Pti_Lu

Ah OK.

Je prends cela en note, et je vais regarder cela un peu plus tard cette semaine.

Si cela ne fonctionne pas avec un lien hypertexte, tu peux aussi essayer ceci. On peut accéder à une diapositive particulière par VBA en utilisant son numéro d'index.

À titre d'essai vite fait, j'ai mis un bouton (de l'onglet Développeur du ruban) sur la première diapositive d'une présentation, et j'ai mis ceci dans le code du bouton:

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
    With SlideShowWindows(1).View
        .GotoSlide 3, msoFalse
    End With
End Sub

En cliquant sur le bouton, cela mène à la troisième diapositive.

On peut probablement aussi mettre le bouton ailleurs que sur la diapositive, par exemple directement dans le ruban, ou sur la barre d'outils.

[Pti_Lu]

Trouvé!
Si quelqu'un à besoin voici:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
NUM_SECTION = ActivePresentation.Slides.Count
INDEX_SLIDE = ActivePresentation.Slides(NUM_SECTION).SlideIndex
For Each s In ActivePresentation.Slides(1).Shapes
FORME = s.Name
Next s
TITRE = "TEST"
ActivePresentation.Slides.Add(INDEX_SLIDE, ppLayoutTitleOnly).Shapes.Title.TextFrame.TextRange.Text = TITRE
INDEX_SLIDE = ActivePresentation.Slides(NUM_SECTION).SlideIndex
ID_SLIDE = ActivePresentation.Slides(NUM_SECTION).SlideID
ActivePresentation.Slides(1).Shapes(FORME).ActionSettings(ppMouseClick).Action = ppActionHyperlink
ActivePresentation.Slides(1).Shapes(FORME).ActionSettings(ppMouseClick).Hyperlink.SubAddress = ID_SLIDE & "," & INDEX_SLIDE & "," & TITRE
End Sub

En vous remerciant pour votre aide.