Hi, I don't quite understand your error ,but try this.
Right click your sheet tab. This sheet should have pictures (visible) Inserted from the drawing tool bar.
Select "View code", VB window appears.
From the VB Toolbar Select "Insert", "Module". New window appears. Paste the entire code below into the new window.
Close VB Window.
Click "Alt+F8" Macro Dialog box appears, Select the code "Pic", Click run fron the Right hand side Menu.
Pictures in you sheet should be aligned, across & down the sheet.(Hopefully)
Sub pic()
Dim oPic As Shape, allpic As String
 Dim oP As String, ac As Integer, c, t
 ActiveSheet.Pictures.Visible = True
  c = 10
  t = 10
  For Each oPic In ActiveSheet.Shapes
   If oPic.Type = 13 Then
        With oPic 'ActiveSheet.Shapes(oPic.Name)
            .Width = 0
            .Height = 50
            .Top = t
            .Left = c
             c = c + 70
             If c >= 560 Then t = t + 70
             c = IIf(c >= 560, 10, c)
    .ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft
    End With
         End If
              
     Next oPic
End Sub
Regards Mick