Khắc phục lỗi "The picture is too large and will be truncated" (2 người xem)

[nnd1988]

Khi tôi lưu File excel 2013 thì báo lỗi "The picture is too large and will be truncated" mong anh chị khắc phục giúp lỗi này với!

 

[vanle33]

Khi tôi lưu File excel 2013 thì báo lỗi "The picture is too large and will be truncated" mong anh chị khắc phục giúp lỗi này với!

Chữ tiếng Anh đã nêu rất rõ nguyên nhân. Bạn có thể dịch được toàn bộ câu trên chứ?
Bạn đính kèm file lên đây, xem ở máy tôi có mở được mà không báo lỗi không.

 

[nnd1988]

Chữ tiếng Anh đã nêu rất rõ nguyên nhân. Bạn có thể dịch được toàn bộ câu trên chứ?
Bạn đính kèm file lên đây, xem ở máy tôi có mở được mà không báo lỗi không.

Tiếng Anh em kém lắm! Anh đã dịch được nội dung của câu trên mong anh chỉ rõ nguyên nhân và cách khắc phục lỗi này giúp em với ạ! Còn việc mở File này ở máy anh giả sử không bị nhưng mở ở máy em nó vẫn bị thì sao ạ?

 

[vanle33]

Tiếng Anh em kém lắm! Anh đã dịch được nội dung của câu trên mong anh chỉ rõ nguyên nhân và cách khắc phục lỗi này giúp em với ạ! Còn việc mở File này ở máy anh giả sử không bị nhưng mở ở máy em nó vẫn bị thì sao ạ?

Thế mới cần thiết có file để kiểm nghiệm trên diễn đàn này mà!
Đại khái dịch như thế này : Bức ảnh quá lớn và sẽ bị cắt bớt 1 phần.

 

[nnd1988]

Thế mới cần thiết có file để kiểm nghiệm trên diễn đàn này mà!
Đại khái dịch như thế này : Bức ảnh quá lớn và sẽ bị cắt bớt 1 phần.

File đây anh! Anh giải nén sau đó mở File "HoiGPE" sau đó nhấn nút "CapNhat" sau đó đóng File này thì nó sẽ hiện lên thông báo trên!

 

[vanle33]

File đây anh! Anh giải nén sau đó mở File "HoiGPE" sau đó nhấn nút "CapNhat" sau đó đóng File này thì nó sẽ hiện lên thông báo trên!

File có cót, két thì bạn đợi thành viên khác trả lời cho bạn.

 

[nnd1988]

File có cót, két thì bạn đợi thành viên khác trả lời cho bạn.

Em tưởng a biết được bệnh thì sẽ xử lí dc chứ. Phải dùng vba để xử lí hả anh?
p/s: mà máy anh mở có thấy báo lỗi này không?

 

[vanle33]

Em tưởng a biết được bệnh thì sẽ xử lí dc chứ. Phải dùng vba để xử lí hả anh?
p/s: mà máy anh mở có thấy báo lỗi này không?

Nhiều phần là do code trong file của bạn gây ra, chứ không nhấn nút "CapNhat" thì sẽ không có lỗi gì
Máy tôi có hiện thông báo lỗi của bạn, chứng tỏ lỗi trên file chứ không phải trên máy tính.
Bài đầu tiên tôi nghĩ lỗi là do có Hình ảnh gì quá lớn. Mà trong file của bạn không thấy hình ảnh gì.

 

[ndu96081631]

File đây anh! Anh giải nén sau đó mở File "HoiGPE" sau đó nhấn nút "CapNhat" sau đó đóng File này thì nó sẽ hiện lên thông báo trên!

Sửa code của bạn thành vầy xem:

Public Sub aaaa()
  Dim WB As Workbook
  Application.ScreenUpdating = False
  Set WB = Workbooks.Open(ThisWorkbook.Path & "\Data.xls")
  [COLOR=#ff0000]WB.Sheets(1).Range("A1:AU10000").Value = ThisWorkbook.Sheets(1).Range("A1:AU10000").Value[/COLOR]
  [COLOR=#ff0000]WB.Close True[/COLOR]
  Application.ScreenUpdating = True
End Sub

 

[SonBDND]

Khi tôi lưu File excel 2013 thì báo lỗi "The picture is too large and will be truncated" mong anh chị khắc phục giúp lỗi này với!

bạn nhấn F5--> chon special--> opject --> Ok là hết, Thân

Khi tôi lưu File excel 2013 thì báo lỗi "The picture is too large and will be truncated" mong anh chị khắc phục giúp lỗi này với!

 

[tle2003]

Thông báo lỗi "The picture is too large and will be truncated" thường xảy ra khi Excel cố gắng lưu các thành phần đồ họa, bao gồm định dạng ô, định dạng có điều kiện hoặc hình ảnh nhúng "embedded images".
Việc thay đổi .Copy thành .Value đã xóa lỗi vì .Value chỉ truyền dữ liệu thô mà không có định dạng

Public Sub aaaa()
Dim WB As Workbook
Application.ScreenUpdating = False
On Error Resume Next
Set WB = Workbooks.Open(ThisWorkbook.Path & "\Data.xls")
If WB Is Nothing Then
    MsgBox "File could not be opened!", vbCritical
    Exit Sub
End If
On Error GoTo 0
WB.Sheets(1).Range("A1:AU10000").Value = ThisWorkbook.Sheets(1).Range("A1:AU10000").Value
WB.Close SaveChanges:=True
Application.ScreenUpdating = True
End Sub

Để giữ lại cả định dạng và công thức, bạn có một số lựa chọn:

Sử dụng PasteSpecial cho Định dạng và Công thức. Điều này bảo đảm dữ liệu giữ nguyên công thức và định dạng nhưng tránh các thành phần đồ họa thừa.

Public Sub aaaa()
Dim WB As Workbook
Application.ScreenUpdating = False
On Error Resume Next
Set WB = Workbooks.Open(ThisWorkbook.Path & "\Data.xls")
If WB Is Nothing Then
    MsgBox "File could not be opened!", vbCritical
    Exit Sub
End If
On Error GoTo 0
ThisWorkbook.Sheets(1).Range("A1:AU10000").Copy
WB.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteFormats ' Keep formatting
WB.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteFormulas ' Keep formulas
Application.CutCopyMode = False
WB.Close SaveChanges:=True
Application.ScreenUpdating = True
End Sub

Sao chép toàn bộ trang tính (nếu cần). Phương pháp này sao chép toàn bộ trang tính vào sổ làm việc mới trong khi vẫn giữ nguyên tất cả định dạng và công thức.

Public Sub aaaa()
Dim WB As Workbook
Application.ScreenUpdating = False
On Error Resume Next
Set WB = Workbooks.Open(ThisWorkbook.Path & "\Data.xls")
If WB Is Nothing Then
    MsgBox "File could not be opened!", vbCritical
    Exit Sub
End If
On Error GoTo 0
ThisWorkbook.Sheets(1).Copy After:=WB.Sheets(WB.Sheets.Count)
Application.CutCopyMode = False
WB.Close SaveChanges:=True
Application.ScreenUpdating = True
End Sub