excel - VBA:如何将每个图像集中在当前单元格的一张 Excel 工作表中

Question

假设您知道图像的名称和它所在的单元格，下面的代码将在单元格中居中图像。是否有人熟悉动态循环，该循环将为该工作表中的每个图像搜索单个工作表并且在当前单元格中将每个图像居中？如果这不可能，有没有办法更改代码，以便您可以遍历特定范围？例如 A4:A10

    Sub CenterImages()
        With ActiveSheet.Shapes("Picture 1")
            .Top = Range("B1").Top + (Range("B1").Height - .Height) / 2
            .Left = Range("B1").Left + (Range("B1").Width - .Width) / 2
        End With
    End Sub

Answer 1

也许使用 Shape.TopLeftCell ，像这样:

Sub CenterImages()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
       If shp.Type = msoPicture Then
           With shp
               .Top = .TopLeftCell.Top + (.TopLeftCell.Height - .Height) / 2
               .Left = .TopLeftCell.Left + (.TopLeftCell.Width - .Width) / 2
           End With
       End If
    Next
End Sub

如果您想将此限制在一定范围内的图片，也许更改为

If shp.Type = msoPicture _
   And Not Intersect(shp.TopLeftCell, ActiveSheet.Range("A4:A10")) Is Nothing Then