Bonjour,
merci d'avance pour votre temps. J'ai regardé un peu partout, mais je ne trouve pas de solution à mon problème. Je ne suis pas informaticienne, mon vocabulaire et code ne sont sûrement pas de niveau. Je m'excuse.
J'ai joint le code à la fin de mon message. Je travaille avec PowerPoint 2002.
Je veux créer une fenêtre pop-up qui me permette de me promener dans ma présentation powerpoint pendant que j'y travaille. (c'est au-dessus de 400 actétates) (si je suis à l'acétate 4, je veux pouvoir me rendre à l'acétate 300 rapidement)
Mon problème, c'est que si je sélectionne dans le mode normal (onglet) diapositive et que j'exécute mon pop-up, il ne veut pas sélectionner les "shapes" sur l'acétate. ( ActivePresentation.Slides(nNumber).Shapes.SelectAll , nNumber étant le numéro d'actétate ou je veux me rendre) Si j'éxécute cela en mode DEBUG, cela fontionne. J'aimerais qu'à la fin de ma macro, le type de sélection soit autre chose que ActiveWindow.Selection.Type = 1.
Il y a quelque chose que je ne comprends pas dans la sélection d'acétate. Et je n'arrive pas à passer d'un mode à l'autre avec du code VBA.
si ActiveWindow.Selection.Type = 1, alors cela ne marche pas. Autrement, cela fonctionne.
Ma feuille s'appelle GTS.
J'ai un TextBox qui s'appelle GTSnumber.
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 Private Sub GTSCancelButton_Click() GTS.hide GTSnumber.Value = "" GTSnumber.SetFocus End Sub Private Sub GTSOkButton_Click() Dim nNumber As Integer 'test sur GTSnumber.value nSlide = ActivePresentation.Slides.Count nNumber = CInt(GTSnumber.Value) If nNumber <= nSlide Then tView = ActiveWindow.ViewType ActivePresentation.Slides(nNumber).Select ActivePresentation.Slides(nNumber).Shapes.SelectAll GTS.hide GTSnumber.Value = "" GTSnumber.SetFocus End If GTSnumber.SetFocus End Sub Private Sub UserForm_Initialize() GTSnumber.SetFocus End Sub
Partager