problème macro dans Powerpoint 2002

[stupidø]

Bonjour,

j'ai un petit problème avec les macros dans Powerpoint XP.
quand j'affecte une macro à un bouton, sur une présentation, en cliquant droit que le bouton et en choisissant "paramètre des actions"... rien ne se passe lors du diaporama
pourtant, en mode édition, lorsque je fais ALT F8, ma macro s'execute...
(j'ai même essayé avec une macro toute bête qui change simplement la couleur de l'arrière plan.... ça ne fonctionne qu'en édition, pas en diaporama)

J'ai mis la sécurité des macros au minimum, ça change rien...

J'ai fait une macro qui permet d'incrémenter un compteur quand on clique sur un bouton.
en mode diaporama, le texte à l'écran ne s'incrémente pas... par contre, quand je relance la macro en mode édition, le compteur a gardé en mémoire les clics que j'ai fait en mode diaporama!

quelqu'un peut il m'aider???
d'avance, un grand merci

[Philippe JOCHMANS]

Bonjour

Pourrait-on avoir le code la macro, pour voir ce qu'il y a dedans et ce qui ne va pas.

Starec

[stupidø]

merci de ta réactivité!

voilà le tout:

Dim intScore As Integer
 
Sub score()
'
' Macro enregistrée le 23/04/2008 par Phil
'
 
intScore = intScore + 1
 
    ActiveWindow.Selection.SlideRange.Shapes("WordArt 13").Select
    ActiveWindow.Selection.ShapeRange.TextEffect.Text = intScore
End Sub
Sub Macro11()
'
' Macro enregistrée le 23/04/2008 par Phil
'
 
    ActivePresentation.ExtraColors.Add RGB(Red:=255, Green:=0, Blue:=0)
    With ActiveWindow.Selection.SlideRange
        .FollowMasterBackground = msoFalse
        .DisplayMasterShapes = msoTrue
        With .Background
            .Fill.Visible = msoTrue
            .Fill.ForeColor.RGB = RGB(255, 0, 0)
            .Fill.Transparency = 0#
            .Fill.Solid
        End With
    End With
End Sub

[Philippe JOCHMANS]

Bonjour

Le problème vient du fait que tu as des sélections dans ton code, ce code a été généré par l'enregistreur de macro.

Hors en mode diaporama il n'y a pas de sélection possible, c'est pour cela que ton code ne fonctionne pas.

L'enregistreur de macro de PowerPoint est l'un des moins performant du PackOffice, il ne permet pas d'avoir le code de toutes les actions. C'est pour cela qu'il a été enlevé de PowerPoint 2007.


Starec

[Philippe JOCHMANS]

Bonjour

Voici un bout de code qui te permettra comment faire sans Selection.

Option Explicit
 
Dim intScore As Integer
 
Public Sub Compter()
    intScore = intScore + 1
    ActivePresentation.Slides(1).Shapes("WordArt 13").TextEffect.Text = intScore
End Sub

Pour remplacer la sélection, il faut :

• Se positionner sur la diapositive (Slide) de la présentation active (ici c'est la diapositive 1).
• Dans ce slide on a la shape qui se nomme ("WordArt 13"), et on lui affecte le compteur.

Starec

[stupidø]

Excellent! ça fonctionne nickel!

un grand merci à toi, Starec