For loop &引用；整数超出范围“；for next语句中出现错误_For Loop_Integer_Range_Next

For loop &引用；整数超出范围“；for next语句中出现错误

for-loop

For loop &引用；整数超出范围“；for next语句中出现错误,for-loop,integer,range,next,For Loop,Integer,Range,Next,我已经发疯了，我确信错误就在我面前，我就是看不见。感谢您在调试以下语句时提供的所有帮助我在ppt演示中有多张幻灯片。在一些幻灯片中，有一个星形和一个文本框，文本为“保持”或“每年”。我只想在没有带有“保持”或“每年”的文本框的情况下更改星星的颜色子集\星形\形状\颜色\绿色\测试（）将PPApp作为对象“作为PowerPoint.Application 将PPPres作为对象“作为PowerPoint.演示文稿将PPSlide设置为对象“作为PowerPoint幻灯片。幻灯片将IPNT

我已经发疯了，我确信错误就在我面前，我就是看不见。感谢您在调试以下语句时提供的所有帮助

我在ppt演示中有多张幻灯片。在一些幻灯片中，有一个星形和一个文本框，文本为“保持”或“每年”。我只想在没有带有“保持”或“每年”的文本框的情况下更改星星的颜色

子集\星形\形状\颜色\绿色\测试（）
将PPApp作为对象“作为PowerPoint.Application
将PPPres作为对象“作为PowerPoint.演示文稿
将PPSlide设置为对象“作为PowerPoint幻灯片。幻灯片
将IPNT1设置为整数
Dim ISHPNCT2为整数
将IPNT3设置为整数
Dim iSlideCnt作为整数
Dim iBoxTopPos作为整数
像绳子一样暗
暗星为弦
将sTbox设置为字符串
将颜色设置为字符串
将oShp调暗为形状
设置PPApp=GetObject（，“Powerpoint.Application”）
设置PPPres=PPApp.ActivePresentation
设置PPSlide=PPPres.幻灯片_
（PPApp.ActiveWindow.Selection.SlideRange.SlideIndex）
iShpCnt0=PPSlide.Shapes.Count
对于ISHPNT1=1到ISHPNT0'PPSlide.Shapes.Count
iBoxTopPos=260
'iSlideCnt=2已删除
sHold=“”
sStar=“”
ISHPNCT1=1
对于iShpCnt1=1到PPSlide.Shapes.Count
如果ISHPNCT1您将迭代器设置为2
For iSlideCnt = 1 To PPPres.Slides.Count
    iBoxTopPos = 260
    iSlideCnt = 2 <--- right here

iSlideCnt=1到PPPres.Slides.Count的
iBoxTopPos=260
iSlideCnt=2感谢您的回复。我的ppt中有多张幻灯片，所以它仍然应该有效。无论如何，我删除了该语句（iSlideCnt=2只是想让其他人知道我已通过将“For iShpCnt1=1改为PPSlide.Shapes.Count”改为“For iShpCnt1=1改为iShpCnt0”修复了错误
For iSlideCnt = 1 To PPPres.Slides.Count
    iBoxTopPos = 260
    iSlideCnt = 2 <--- right here