Discussion :

[elbiloute]

Hello,

Je cherche désespérément une reponse a ce problème alors si quelqu'un trouve ca serait super cool.

Voici le problème :
Sous VBA dans powerpoint j'arrive a faire une macro qui ajoute un shape a une slide donnée. Mon problème est que je voudrais l'ajouter a la slide active a l'ecran et non a la slide x, sauf que je sais pas comment faire.

voici le code que j'utilise pour ajouter la shape a la slide 1

Code :

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

1
2
3
4
5
6
7
8
Sub bouton_2(control As IRibbonControl)
Set firstSlide = ActivePresentation.Slides(1)
With firstSlide.Shapes.AddShape(Type:=msoShapeRectangle, Top:=150, Left:=70, Width:=72, Height:=72)
    .Name = "Red Square"
    .Fill.ForeColor.RGB = RGB(54, 107, 126)
    .Line.ForeColor.RGB = RGB(54, 107, 126)
End With
End Sub

++

[Invité]

Bonjour

Si j'ai bien compris tu es en mode conception et non en mode diaporama, si c'est le cas essayes cela :

On déclare une variable

Code :

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

Dim intSldNumber As Integer

On affecte à cette variable le numéro de la diapositive active

Code :

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

intSldNumber = Application.ActiveWindow.View.Slide.SlideIndex

Ensuite on change la ligne de l'affectation

Code :

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

Set firstSlide = ActivePresentation.Slides(intSldNumber)

Philippe

[elbiloute]

Ca marche merci !!