关于处理图形的代码无法实现循环的问题

写了一段处理文档中所有嵌入式图形的代码，虽然设计了循环，但在运行后只能处理第一个图形，考虑半天发现不了问题所在，请各位高手给予指点，谢谢。
Sub 图形处理()
Dim i%
  For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Select
With Selection
  .ClearFormatting
  .ParagraphFormat.Alignment = wdAlignParagraphCenter
End With
i = i + 1
Next i
End Sub

好像觉着不应该在循环里再改变i 的值了：i = i + 1，去掉再试一下

果然是这样，十分感谢！