Nén hàng loạt ảnh trong file Excel (1 người xem)

[trunghtpco]

Chào mọi người, mình có vấn đề thế này nhờ mọi người xem giúp có giải pháp nào không: hiện tại trong máy mình có rất nhiều file excel có chứa hình ảnh. Mình cần nén lại các hình này (dùng chức năng Compress Pictures của Excel). Nhưng với số lượng file lớn thì làm thủ công từng file sẽ mất rất lâu.
Các pro VBA cho mình hỏi VBA có giải quyết được vấn đề này không vậy? Mình định viết 1 thủ tục để compress hình ảnh trong tất cả các file excel trong thư mục được chỉ định.
Cám ơn mọi người.

 

[ongtrungducmx25]

Chào mọi người, mình có vấn đề thế này nhờ mọi người xem giúp có giải pháp nào không: hiện tại trong máy mình có rất nhiều file excel có chứa hình ảnh. Mình cần nén lại các hình này (dùng chức năng Compress Pictures của Excel). Nhưng với số lượng file lớn thì làm thủ công từng file sẽ mất rất lâu.
Các pro VBA cho mình hỏi VBA có giải quyết được vấn đề này không vậy? Mình định viết 1 thủ tục để compress hình ảnh trong tất cả các file excel trong thư mục được chỉ định.
Cám ơn mọi người.

bạn có thể làm cách đơn giảng không cần VBA đâu nhé! bạn mở file.xls của bạn lên sau đó nhấn F12 chọn mục save as type: chọn định dạng Web page thế thôi ! sau đó ảnh của bạn cần nén có tên là img2 giảm dung lượng đáng kể lém.

 

[trunghtpco]

Cám ơn bạn, nhưng bạn hiểu lầm ý mình rùi.
Do có rất nhiều file nên mình không thể thực hiện nén thủ công trên từng file. Ý mình muốn viết code đại loại thế này;

For Each fileExcel In [Thư Mục được chỉ đinh]
'Compress pictures trong từng file
Next

Mình muốn backup tất cả dữ liệu để lưu trử trên web, mình muốn giảm dung lượng tất cả các file excel bằng cách compress tất cả các hình ảnh trong file đó mà.

 

[ndu96081631]

Cám ơn bạn, nhưng bạn hiểu lầm ý mình rùi.
Do có rất nhiều file nên mình không thể thực hiện nén thủ công trên từng file. Ý mình muốn viết code đại loại thế này;

For Each fileExcel In [Thư Mục được chỉ đinh]
'Compress pictures trong từng file
Next

Mình muốn backup tất cả dữ liệu để lưu trử trên web, mình muốn giảm dung lượng tất cả các file excel bằng cách compress tất cả các hình ảnh trong file đó mà.

Code duyệt file trong thư mục thì chẳng nói làm gì... Tuy nhiên vụ nén hình thì trên mạng người ta cũng đã bàn rất nhiều... Dù rằng có thể làm bằng tay được nhưng lại chẳng thể record macro... Hic...
Cuối cùng người ta dùng giải pháp Senkeys... không hiệu quả mấy
Mà tôi rất lấy làm lạ: Tại sao file Excel của bạn lại cần chứa nhiều hình chi vậy? Làm vậy chỉ tổ nặng file thêm thôi

 

[hoangbathang]

bạn ndu96081631 ơi. Trong file excel chứa nhiều hình ảnh là chuyện bình thường mà. Hằng ngày tôi phải giải quyết rất nhiều file Excel tại công ty. Dung lượng mỗi file nhỏ nhất thì khoảng 7 / 8 Mb. nhưng có những file tôi nhận được lên đến 15MB lận đó.
Nếu như bạn có kinh nghiệm gì về Excel liên quan đến Compress all picture thì bạn góp ý cho mọi người để có kỹ năng làm việc tốt hơn bạn nhé.
Cảm ơn trunghtpco và mọi người.