Discussion :

[petral]

Bonjour, j'ai une macro qui fonctionne parfaitement mais pas en diaporama. Avez-vous une idée? Je précise que les macros sont activées.
Voici le code en question:
Sub MAF()
Dim chmsg As String

chmsg = MsgBox("Chanter le refrain de 'EMMENEZ-MOI'", vbInformation, "Charles AZNAVOUR")
ActivePresentation.Slides(1).Shapes.Range(Array(1)).Visible = False

Set myshapes = ActivePresentation.Slides(1).Shapes
With myshapes.AddShape(Type:=msoShapeRectangle, Left:=20, Top:=60, Width:=155, Height:=48.5).TextFrame

.TextRange.Text = "EMMENEZ-MOI"

.Parent.Rotation = 0

End With
ActivePresentation.Slides(2).Select '(cette ligne ne fonctionne pas en diapo)'


End Sub


Merci par avance, Petral

[ONTAYG]

Bonjour,

Les instructions Select ne fonctionnent pas en mode VBA, il faut désigner l'objet.

ONTAYG

[petral]

Je suis débutant et ne sais pas grand chose sur ppt. Mais en étant sur l'éditeur VBA cela fonctionne mais pas en diapo. Comment définir un objet! Est-il possible en cliquant sur une image de voir un texte apparaitre et de celui-ci aller sur une autre slide. Désolé de ne pas être à la hauteur.Merci encore

[ONTAYG]

Re,

Je t'invite à consulter la FAQ powerpoint notamment la partie VBA, tu y trouveras plein de choses :

https://powerpoint.developpez.com/faq/?page=V

ONTAYG

[mromain]

Bonjour Petral, ONTAYG, le forum,

Tu peux essayer avec ce code qui fonctionnera qu'on soit en mode Diaporama ou pas :

Code :

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

1
2
3
4
5
6
7
8
9
Dim curSlideShowView As PowerPoint.SlideShowView
    On Error Resume Next
     Set curSlideShowView = ActivePresentation.SlideShowWindow.View
    On Error GoTo 0
    If curSlideShowView Is Nothing Then    'si on n'est pas en mode diaporama
        ActivePresentation.Slides(2).Select
    Else                                   'si on est en mode diaporama
        curSlideShowView.GotoSlide 2
    End If

A+

[petral]

C'est parfait, c'est exactement ce qu'il fallait. je suis super content et Grand père pour ses 80 printemps va être aux anges. Merci beaucoup ONTAYG