Erreur VBA PowerPoint (ActiveWindow)

Erreur VBA PowerPoint (ActiveWindow) - VB/VBA/VBS - Programmation

Marsh Posté le 17-03-2008 à 15:09:23    

Bonjour à tous,
 
Voilà une petite erreur que je ne comprends pas du tout sous Powerpoint. Mon code :

Code :
  1. Private Sub CommandButton1_Click()
  4. 'Call Module1.C4
  5. 'Call Module1.VertL
  7. MsgBox "xxxxxxxxxxxxx"
  9. ActiveWindow.Selection.SlideRange.Shapes("AutoShape 35" ).Select
  11. With ActiveWindow.Selection.ShapeRange
  12.         .Fill.Transparency = 0#
  13.         .Fill.Visible = msoTrue
  14.         .Fill.ForeColor.SchemeColor = ppBackground
  15.         .Fill.BackColor.RGB = RGB(204, 255, 204)
  16.         .Fill.TwoColorGradient msoGradientFromCenter, 1
  17.     End With
  20. End Sub


 
Et l'erreur qu'il me sort :

Code :
  1. Erreur d'exécution "-2147188160 (80048240)" :
  3. D'application (Utilisateur inconnu) : requête incorrecte. Il n'y a pas fenêtre de document actif.


 
Après une recherche sur le Web, je tombe la dessus : http://support.microsoft.com/kb/285472
 
J'ai bien l'impression que "ActiveWindow" ne marche pas en mode diaporama..
 
Avez vous une idée ? Merci d'avance !
 
m.


Message édité par jay-jay69 le 17-03-2008 à 15:10:15
Reply

Marsh Posté le 17-03-2008 à 15:09:23   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed