Sub Main(f As String)
 
    Dim Datei As String
    Datei = "..."
 
    Workbooks.Open Datei
 
    Dim oPic As Shape
    Dim rw   As Range
    Dim Pfad As String
    maxZeilen = ActiveSheet.Cells(Rows.count, 1).End(xlUp).Row
    maxSpalten = ActiveSheet.Cells(1, Columns.count).End(xlToLeft).Column
 
 
        Pfad = "..."
       If (Dir(Pfad) = "") Then
 
       Else
        Set oPic = ActiveSheet.Shapes.AddPicture(Pfad, False, True, 650, 10, _
          100, 105)
 
        oPic.ScaleHeight 1, msoTrue
        oPic.ScaleWidth 1, msoTrue
        End If
 
 
    Speichern
End Sub