Excel VBA移动所有图像

Question

我在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