Set P = ActiveSheet.Shapes.AddPicture(filen, True, True, AC.Left + 2.5, AC.Top + 2.5, 329, 250)
P.ScaleHeight 1, True P.ScaleWidth 1, True P.Height = 250