Sélectionner une acétate et ActiveWindow.Selection.Type

[Ross_33]

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 :

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