VBA复制sheet.range到newworkbook

Question

我尝试将带有图片的工作表范围复制到新工作簿。新工作簿必须得到.xls

我有这个

  Set NewBook = Workbooks.Add
  Workbooks("formdave.xlsm").Worksheets("FormY").Range("A1:K10").Copy
  NewBook.Worksheets("Blad1").Range("A1").PasteSpecial (xlPasteValues)
  NewBook.SaveAs Filename = Environ$("temp") & "\" 

它复制了值，只有没有图片和日期时间没有复制正确，新列不是日期时间，可以设置吗？