Quản lý hình ảnh bằng Excel.

[sealand]

Trên diễn đàn đã có một số bài nói về việc quản lý dữ liệu bằng hình ảnh trên Excel như Quản lý nhân sự, Quản lý bán hàng, Giới thiệu hàng hóa v.v.... Đại đa số các bài dùng phương pháp kèm theo file Excel là 1 thư mục ảnh. Khi sử lý ảnh ta tiến hành load ảnh vào đối tượng sử lý như Form, Picture, Rectangle v.v...
+Phương pháp này có những ưu điểm.
-File Excel gọn nhẹ, load nhanh.
-Sử lý số lượng lớn ảnh
+Hạn chế:
-Cồng kềnh chỉ phù hợp với mô hình lớn, việc quản lý các file ảnh lộ liễu dễ bị sao chép sửa chữa thay thế.
-Bạn gửi file cho khách giới thiệu hàng hóa phải gửi kèm theo 1 lô ảnh. Đối với khách chuyên kinh doanh, hạn chế về kỹ thuật máy tính thì e không tiện lắm.
-Các bạn đừng quên, các file ảnh chiếm tài nguyên máy tính quá lớn.

Giờ thì mình với các bạn làm ngược lại xem sao. Nếu hay và phù hợp với trường hợp nào đó của các bạn thì cũng có thêm 1 sự chọn lựa.
Đầu tiên, ta đưa tất cả các ảnh vào trong file Excel bằng cách Add hàng loạt các Rectangle rồi fill ảnh vào các Rectangle này.
Tiếp theo, dùng chức năng goto để chọn tất cả và thu nhỏ chúng chừng bằng hạt ngô. (Nhằm giảm dung lượng file). Giờ ta kiểm tra lại. Dung lượng của 121 ảnh (Mình cố chụp trên Internet được vậy thôi) là 18,1M. Vậy mà file Excel chỉ còn 9,1M gồm toàn bộ ảnh và sheet data, sheet In thẻ và Code. Nếu nén bằng WinRar thì bằng 9,01.
Các bạn tham khảo trong file gửi kèm là 1 cách sử lý ảnh.
Giờ thì các bạn nghĩ như mình gửi file quảng cáo 121 nhân viên chuyên môn cao thì mình gửi cho các bạn chỉ cần 1 file Excel là đủ
(Lưu ý: Ảnh mình chụp trên Internet từ rất nhiều nguồn nên không thể dẫn chiếu được, Họ tên, địa chỉ mình chép trên thông báo tuyển sinh với chủ ý làm dữ liệu mẫu, mong lượng thứ nếu trùng của ai đó)

Tải file theo đường link sau:
http://www.4shared.com/document/QRTWeMFB/The_NV.html

 

[ndu96081631]

Đầu tiên, ta đưa tất cả các ảnh vào trong file Excel bằng cách Add hàng loạt các Rectangle rồi fill ảnh vào các Rectangle này.

Thay vì làm vậy, anh thử đưa tất cả hình vào ImageList xem! Em nghĩ có thể gọn nhẹ hơn đấy ---> 1 ImageList chứa được nhiều hình, khi cần có thể lấy ra dễ dàng

 

[sealand]

Thay vì làm vậy, anh thử đưa tất cả hình vào ImageList xem! Em nghĩ có thể gọn nhẹ hơn đấy ---> 1 ImageList chứa được nhiều hình, khi cần có thể lấy ra dễ dàng

Hi! Hôm nay mới thấy được thầy võ đoán nha (Vui 1 chút, chắc là không sẵn số lượng ảnh để test thôi).Gọn hơn thì đúng chứ nhẹ hơn chưa chắc. Nếu dùng ImageList với kích thước ảnh là 16x16 (Nhỏ nhất) thì chỉ load hết 120 ảnh thì File đã là 17.8 MB rồi.

 

[Tiger62]

Các file ảnh đã dùng các thuật toán nén cao cấp rồi nên dùng các chương trình nén khác chẳng nhỏ thêm là bao nếu không có thu nhỏ ảnh.

Thấy có thông tin về sắp có định dạng mới webp nhưng mới xem qua thì hình như chưa đẹp như jpeg (xem trên màn CRT Dell P793Pro/VGA Pro).

Bao giờ mà gói được như lỗ đen nhỉ, Trái đất khi đó nếu còn nguyên có khi chỉ còn bằng hòn bi sắt cổ phuốc xe đạp.

Góp vui chút nhá!

 

[tuan_anhbm]

Sealand: “Dung lượng của 121 ảnh (Mình cố chụp trên Internet được vậy thôi) là 18,1M”
“với kích thước ảnh là 16x16 (Nhỏ nhất) thì chỉ load hết 120 ảnh thì File đã là 17.8 MB rồi”
Như vậy mỗi file của Sealand nặng tr.bình =18/120*1024 = 150KB. Ít thì chẳng sao chứ cỡ vài trăm ảnh thì sẽ rất nặng ký đấy.
Tôi xin góp 1 cách làm giảm dung lượng các file ảnh (chỉ riêng phần này thôi):
Chúng ta đều biết: mọi ảnh cá nhân hay sản phẩm…, khi in ra giấy chỉ cần kích thước 4x6cm, độ phân giải 72 p/i (điểm trên inches) là net như sony rồi. Thường thì ảnh chụp hay down từ internet - chưa qua xử lý nên kích thước rất lớn. Ta có thể dùng 1 trình sử lý ảnh (như photoshop chẳng hạn, rất đơn giản) để thu nhỏ k.thước file ảnh theo các thông số: Weight – rộng = 4 (cm); Height - cao = 6 (cm); Resolution – độ phân giải = 72 p/i.
Lúc đó file ảnh chỉ nặng chừng 40KB, 120 file ảnh giờ chỉ còn: 120*40KB/1024(KB/M) = 4,7MB. giảm hơn 2/3 dung lượng gốc.

 

[nghiaphuc]

Cho em góp vui một tí: Nhìn vào Sheet Anh của bác Sealand, hình ảnh nằm hơi lộn xộn, em sắp xếp lại cho đẹp mắt: Mỗi ảnh nằm gọn trong 1 ô, mỗi hàng 20 ảnh, chỉ cần thay đổi kích thước hàng, cột là chúng ta có thể zoom hàng loạt ảnh, "nghía" ưng con mắt hơn.

Sub XepHinh()
Dim i As Byte, j As Byte
On Error Resume Next
For i = 1 To 121 Step 20
For j = i To i + 19
With Sheet1.Shapes("Rectangle " & j)
.Top = Cells((i + 19) \ 10, IIf(j Mod 20 = 0, 40, 2 * (j Mod 20))).Top
.Left = Cells((i + 19) \ 10, IIf(j Mod 20 = 0, 40, 2 * (j Mod 20))).Left
.Height = Cells((i + 19) \ 10, IIf(j Mod 20 = 0, 40, 2 * (j Mod 20))).Height
.Width = Cells((i + 19) \ 10, IIf(j Mod 20 = 0, 40, 2 * (j Mod 20))).Width
End With
Next j
Next i
End Sub

Cái này là "vui một tí" thôi, hình như nó không làm thay đổi kích thước của file hoặc là thay đổi không đáng kể khi ta thay đổi kích thước hàng, cột.

P/S: Có thể tổng quát thủ tục XepHinh ở trên để mỗi hàng có k hình (k nhập vào từ bàn phím) như sau:

Sub XepHinh()
Dim i As Byte, j As Byte, k As Byte
k = InputBox("Nhap so hinh tren mot hang:")
On Error Resume Next
For i = 1 To Sheet1.Shapes.Count Step k
For j = i To i + k - 1
With Sheet1.Shapes("Rectangle " & j)
.Top = Cells((i + k - 1) \ (k \ 2), 2 * IIf(j Mod k = 0, k, j Mod k)).Top
.Left = Cells((i + k - 1) \ (k \ 2), 2 * IIf(j Mod k = 0, k, j Mod k)).Left
.Height = Cells((i + k - 1) \ (k \ 2), 2 * IIf(j Mod k = 0, k, j Mod k)).Height
.Width = Cells((i + k - 1) \ (k \ 2), 2 * IIf(j Mod k = 0, k, j Mod k)).Width
End With
Next j
Next i
End Sub

Để sắp xếp đẹp, khi chạy thủ tục nên nhập k là số chẵn.
Định dùng tag

 nhưng nhìn lại, chẳng thấy dấu "\" đâu cả, thôi dùng tạm tag [QUOTE] vậy.

 

[tc_asti]

thêm 1 thẻ nữa

Chào Anh Phúc:

Em xem bài quản lý ảnh bằng Excel. Cho em hoi, nếu trong sheet " Hoso", có 2 thẻ, vậy khi đó chúng ta có thể hiện hình ảnh lên 2 thẻ được không?

 

[sealand]

Bao nhiêu thẻ, bao nhiêu ảnh là do bạn. Ví dụ để tiết kiệm khi in 1 trang A4 ta có thể xếp 12 thẻ. Vậy là ta phải load 12 ảnh khác nhau rồi

 

[dung40314]

To: Sealand
Sealand có thể hướng dẫn chi tiết cách thực hiện "Đầu tiên, ta đưa tất cả các ảnh vào trong file Excel bằng cách Add hàng loạt các Rectangle rồi fill ảnh vào các Rectangle này"

 

[phuvacgach]

Dear anh Sealand,
Cảm ơn anh rất nhiều vì bài viết rất hay
Em có vấn đề muốn hỏi thêm là em muốn sử dụng tools này của anh để quản lý danh sách 2000 spham thì e rằng files sẽ rất nặng.
Vậy có cách nào khác mà cũng quản lý được tương tự mà files sẽ nhẹ hơn không anh?
Em cảm ơn anh.

 

[quemai81]

vì sao mình k tỉ được file từ đường link kia , các bạn giúp mình với

 

[luongvanluyen]

Dear anh Sealand,
Cảm ơn anh rất nhiều vì bài viết rất hay
Em có vấn đề muốn hỏi thêm là em muốn sử dụng tools này của anh để quản lý danh sách 2000 spham thì e rằng files sẽ rất nặng.
Vậy có cách nào khác mà cũng quản lý được tương tự mà files sẽ nhẹ hơn không anh?
Em cảm ơn anh.

Một cách khác là lưu ảnh vào một thư mục, sau đó load lên theo yêu cầu.

Luong Van Luyen

 

[sealand]

Một cách khác là lưu ảnh vào một thư mục, sau đó load lên theo yêu cầu.

Luong Van Luyen

Nếu đã quản lý ảnh bằng file tại các thư mục thì khỏi nói. Ở đây muốn đề cập là khi giới thiệu sản phẩm, hay việc gì đó tương tự thì gửi kèm theo file giới thiệu 1 loạt file ảnh thì rất bất tiện (Đôi khi không an toàn nữa)

 

[phuvacgach]

Thanks các bác, em đã làm được rồi

 

[NTP008]

Trên diễn đàn đã có một số bài nói về việc quản lý dữ liệu bằng hình ảnh trên Excel như Quản lý nhân sự, Quản lý bán hàng, Giới thiệu hàng hóa v.v.... Đại đa số các bài dùng phương pháp kèm theo file Excel là 1 thư mục ảnh. Khi sử lý ảnh ta tiến hành load ảnh vào đối tượng sử lý như Form, Picture, Rectangle v.v...
+Phương pháp này có những ưu điểm.
-File Excel gọn nhẹ, load nhanh.
-Sử lý số lượng lớn ảnh
+Hạn chế:
-Cồng kềnh chỉ phù hợp với mô hình lớn, việc quản lý các file ảnh lộ liễu dễ bị sao chép sửa chữa thay thế.
-Bạn gửi file cho khách giới thiệu hàng hóa phải gửi kèm theo 1 lô ảnh. Đối với khách chuyên kinh doanh, hạn chế về kỹ thuật máy tính thì e không tiện lắm.
-Các bạn đừng quên, các file ảnh chiếm tài nguyên máy tính quá lớn.

Giờ thì mình với các bạn làm ngược lại xem sao. Nếu hay và phù hợp với trường hợp nào đó của các bạn thì cũng có thêm 1 sự chọn lựa.
Đầu tiên, ta đưa tất cả các ảnh vào trong file Excel bằng cách Add hàng loạt các Rectangle rồi fill ảnh vào các Rectangle này.
Tiếp theo, dùng chức năng goto để chọn tất cả và thu nhỏ chúng chừng bằng hạt ngô. (Nhằm giảm dung lượng file). Giờ ta kiểm tra lại. Dung lượng của 121 ảnh (Mình cố chụp trên Internet được vậy thôi) là 18,1M. Vậy mà file Excel chỉ còn 9,1M gồm toàn bộ ảnh và sheet data, sheet In thẻ và Code. Nếu nén bằng WinRar thì bằng 9,01.
Các bạn tham khảo trong file gửi kèm là 1 cách sử lý ảnh.
Giờ thì các bạn nghĩ như mình gửi file quảng cáo 121 nhân viên chuyên môn cao thì mình gửi cho các bạn chỉ cần 1 file Excel là đủ
(Lưu ý: Ảnh mình chụp trên Internet từ rất nhiều nguồn nên không thể dẫn chiếu được, Họ tên, địa chỉ mình chép trên thông báo tuyển sinh với chủ ý làm dữ liệu mẫu, mong lượng thứ nếu trùng của ai đó)

Tải file theo đường link sau:
http://www.4shared.com/document/QRTWeMFB/The_NV.html

CHO MÌNH HỎI
mình có file excel trong đó cò chứa tên của file hình mà file hình đó nhiều hình
bạn có cách nào giúp mình tìm hình với tên tương ứng với tên trong danh sách excel .hình tìm ra được lưu trong file nào củng được
thanks

 

[♠AceBich♠]

Nhờ bạn cho cái link down khác được không?! Media Fire thì càng tốt.
thx chủ thớt!

 

[honestman_2009]

Trên diễn đàn đã có một số bài nói về việc quản lý dữ liệu bằng hình ảnh trên Excel như Quản lý nhân sự, Quản lý bán hàng, Giới thiệu hàng hóa v.v.... Đại đa số các bài dùng phương pháp kèm theo file Excel là 1 thư mục ảnh. Khi sử lý ảnh ta tiến hành load ảnh vào đối tượng sử lý như Form, Picture, Rectangle v.v...
+Phương pháp này có những ưu điểm.
-File Excel gọn nhẹ, load nhanh.
-Sử lý số lượng lớn ảnh
+Hạn chế:
-Cồng kềnh chỉ phù hợp với mô hình lớn, việc quản lý các file ảnh lộ liễu dễ bị sao chép sửa chữa thay thế.
-Bạn gửi file cho khách giới thiệu hàng hóa phải gửi kèm theo 1 lô ảnh. Đối với khách chuyên kinh doanh, hạn chế về kỹ thuật máy tính thì e không tiện lắm.
-Các bạn đừng quên, các file ảnh chiếm tài nguyên máy tính quá lớn.

Giờ thì mình với các bạn làm ngược lại xem sao. Nếu hay và phù hợp với trường hợp nào đó của các bạn thì cũng có thêm 1 sự chọn lựa.
Đầu tiên, ta đưa tất cả các ảnh vào trong file Excel bằng cách Add hàng loạt các Rectangle rồi fill ảnh vào các Rectangle này.
Tiếp theo, dùng chức năng goto để chọn tất cả và thu nhỏ chúng chừng bằng hạt ngô. (Nhằm giảm dung lượng file). Giờ ta kiểm tra lại. Dung lượng của 121 ảnh (Mình cố chụp trên Internet được vậy thôi) là 18,1M. Vậy mà file Excel chỉ còn 9,1M gồm toàn bộ ảnh và sheet data, sheet In thẻ và Code. Nếu nén bằng WinRar thì bằng 9,01.
Các bạn tham khảo trong file gửi kèm là 1 cách sử lý ảnh.
Giờ thì các bạn nghĩ như mình gửi file quảng cáo 121 nhân viên chuyên môn cao thì mình gửi cho các bạn chỉ cần 1 file Excel là đủ
(Lưu ý: Ảnh mình chụp trên Internet từ rất nhiều nguồn nên không thể dẫn chiếu được, Họ tên, địa chỉ mình chép trên thông báo tuyển sinh với chủ ý làm dữ liệu mẫu, mong lượng thứ nếu trùng của ai đó)

Tải file theo đường link sau:
http://www.4shared.com/document/QRTWeMFB/The_NV.html

Bạn cho mình lại link file này được không?

 

[sealand]

Chán thật, mình gửi lên 4Share nhưng giờ không mở được nữa.
Giờ các bạn tải theo link sau nha:

https://www.mediafire.com/?ygmgxuxyr7x2z65

 

[Trần Văn Bình]

Khi số lượng ảnh nhiều có cách ghì để load ảnh hoàng loạt sau đó đặt tên ảnh cho nhanh

 

[sealand]

Khi số lượng ảnh nhiều có cách ghì để load ảnh hoàng loạt sau đó đặt tên ảnh cho nhanh

Thay vì Load từng ảnh ta viết 1 đoạn code Load tất cả vào (Kể cả đặt tên tránh sai sót khi làm bằng tay)