Powerpoint VBA - How to modify code to loop properly?

Question

I have the following loop, which is meant to create a triangle on slides 2 to 4.

For i = 2 To 4

With ActivePresentation.Slides(i)

    Dim tri As Shape
    Set tri = ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeRightTriangle, 886, 0, 74, 74)

End With
Next i

The code works, but because I'm calling ActiveWindow, the loop creates the triangle 3 times on the same slide (the one I run the macro from) rather than on 3 slides.

I know this is the problem, but I don't know how to modify that part of the code to fix it. What is required instead?

Strawberryshrub · Accepted Answer · 2019-10-24 08:39:43Z

2

You need to use the iterated presentation slide:

For i = 2 To 4

  With ActivePresentation.Slides(i)

    Dim tri As Shape
    Set tri = .Shapes.AddShape(msoShapeRightTriangle, 886, 0, 74, 74)

  End With

Next i

answered Oct 24, 2019 at 8:39

Strawberryshrub

3,3992 gold badges14 silver badges22 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Luis Curado · Accepted Answer · 2019-10-24 08:38:04Z

1

fast solution

For i = 2 To 4

With ActivePresentation.Slides(i)

    Dim tri As Shape
    Set tri = ActivePresentation.Slides(i).Shapes.AddShape(msoShapeRightTriangle, 886, 0, 74, 74)

End With
Next i

answered Oct 24, 2019 at 8:38

Luis Curado

7765 silver badges18 bronze badges

Collectives™ on Stack Overflow

Powerpoint VBA - How to modify code to loop properly?

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related