word VBA 想实现所有图片左缩进15cm，宏执行后，只有一个图片被左缩进了15cm，谁能帮看看是为什么啊？

Sub cutall()'此函数本意是为了让所有图片左缩进xcm，却总是不成功，每次只有一张图片左缩进xcm
Dim pt As InlineShape
On Error Resume Next
For Each pt In ActiveDocument.InlineShapes
ActiveDocument.pt.Select
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(15)
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
End With
Next
End Sub