语法错误，WPS，运行报错

   Sub resize()
   Dim i As Long
   With ActiveDocument
   For i = 1 To .InlineShapes.Count
   With .InlineShapes(i)
   .Height = 500
   .Width = 600
   End With
   Next i
   End With
   End Sub

在wps里面的宏编辑器，他报错第一行第十一列说语法错误，有友友可以帮忙解答一下吗？我是从网上复制粘贴到WPS运行的，多的我也不懂，标签错误勿怪