vba - 在 PowerPoint 中选择带有条件的幻灯片

Question

我有两张 PowerPoint 幻灯片，即幻灯片 (1) 和幻灯片 (2)。想要在 j<5 时将 slides(i) 更改为 slides(1) 并在 j>0 时将 slides(i) 更改为 slides(2)。但我无法配置。

Dim i As integer

sz = GetObject("C:\Users\Desktop\sample.xlsx").sheets(1).Range("D2:D9")
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)

标签： vbapowerpoint

Answer 1

如果您想重新排序幻灯片，请使用以下语法。您可以重新配置条件语句。

另外，请正确格式化您的问题，并且请更具体。当@John Korchok 要求提供更多详细信息时，您只是复制粘贴了问题，并没有说明您的情况。请避免不连贯的问题。

If j<5 Then
ActivePresentation.Slides(1).MoveTo (2)
ElseIf j>0 Then
ActivePresentation.Slides(1).MoveTo (2)
End If