I have two PowerPoint slide ie slides(1) & slides(2). Want to change slides(i) to slides(1) when j<5 & change slides(i) to slides(2) when j>0. But I cannot configure.
Dim i As integer

sz = GetObject("C:\Users\Desktop\sample.xlsx").sheets(1).Range("D29")
For j = 1 To UBound(sz)
If j<5 Then i = 1 Else i = 2
strPic = "rectangle" & j
Set shp = Application.Presentations(1).Slides(i).Shapes(strPic)