Discussion :

[Harry Covair]

Bonjour,

La première dia comporte une liste déroulante. Le but est d'aller à la dia correspondant au numéro d'ordre de la sélection.
J'ai donc écrit le code suivant:

Code :

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

1
2
3
4
Private Sub ComboBox1_Change()
a = ComboBox1.ListIndex + 1
ActivePresentation.Slides(a).Select
End Sub

Lorsque je sélectionne un item de la combobox, un message d'erreur me dit:
"slide (unknown member) invalid request. This view doesn't support selection."
Autrement dit, le numéro de la dia vers laquelle je veux me brancher n'est pas connu. Il est vrai que l'explorateur d'objet n'affiche que la première dia.

Quelqu'un peut-il éclairer ma lanterne et me dire où le bât blesse.
Pour info, j'ai lu le tutoriel sur les événements en PwP.

D'avance merci pour votre aide

Harry

[Invité]

Bonjour

Essayes cela :

Code :

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

1
2
3
4
5
6
Private Sub ComboBox1_Change()
    Dim a As Integer
    a = ComboBox1.ListIndex + 1
    'ActivePresentation.Slides(a).Select
    SlideShowWindows(1).View.GotoSlide (a)
End Sub

Une petite question, comment remplis-tu ta liste déroulante ?

Philippe

[Harry Covair]

Bonsoir Philippe,

Merci pour la réponse. Ce problème est résolu. Comme c'est mon premier développement VBA PwP, il y en aura peut-être d'autres, surtout que l'aide VBA PwP 2007 ne me paraît pas très fournie.
En phase de test, la combobox est alimentée classiquement:

Code :

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

1
2
3
4
5
6
Sub Presentation_Open()
    Slide1.ComboBox1.Clear
    Slide1.ComboBox1.AddItem "Bordeaux"
    Slide1.ComboBox1.AddItem "Bourgogne"
    Slide1.ComboBox1.AddItem "Loire"
End Sub

En phase opérationnelle, les données seront issues d'un fichier csv et la combobox sera alimentée par une boucle until EOF.
Comme précisé dans ton tutoriel, PwP ne propose pas d'événement déclencheur de macro au démarrage de la présentation. J'ai donc, comme tu le suggères, assigné la macro "presentation_open" à un objet cliquable sur la première dia.

Excellente soirée

Harry

[Invité]

Bonjour

Si le problème est résolu, alors il faut cliquer sur le bouton

De plus, le tuto sur les évènement dans PPT n'est pas de moi, mais de mon ami Arkham

Philippe