如何调整多张图片的位置

Chiyuen

目前已经只实现了单张图片逐行排布
想增加一些功能
功能要求：
当单元格有多张图片时，先将第一张图片靠单元格左边界距离为10，第二张图片距离第一张图片右边界为10

Sub 图片缩放定位()

Dim shp As Shape, k

For Each shp In ActiveSheet.Shapes
    If shp.Type = msoPicture Then
    k = shp.TopLeftCell.Address
        With Range(k)
            'shp.Left = .Left + .width / 2 - shp.width * 0.5'水平居中
            shp.Left = .Left + 10
            shp.Top = .Top + .Height * 0.05 / 2
            shp.Height = .Height * 0.95

        End With


    End If
Next
End Sub

phsu

未經測試，看看可不可以。
Sub test()
    Dim shp As Shape, k, LastShapeLeft
    LastShapeWidth = 0
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoPicture Then
            k = shp.TopLeftCell.Address
            With Range(k)
                shp.Left = .Left + LastShapeWidth + 10
                shp.Top = .Top + .Height * 0.05 / 2
                shp.Height = .Height * 0.95
                LastShapeWidth = shp.Width
            End With
        End If
    Next
End Sub