Excel VBA移动所有图像

我在Excel 2016中使用incrementleft来移动名为“Bullet”的所有图像

码：

Worksheets("Fighter Game").Shapes("Bullet").IncrementLeft 18.75 

但是代码只是移动了第一个图像。 那么我们如何解决这个问题呢？

Answer 1

您可以使用For Each循环来查找名为Bullet的所有形状并移动它们

 Sub MoveImages() Dim s As Shape For Each s In Worksheets("Fighter Game").Shapes If s.Name = "Bullet" Then s.IncrementLeft 18.75 End If Next s End Sub