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

Liên hệ QC
Anh sealand có thể chỉ em cách làm:"Đầ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." Mong Anh chỉ giáo!!!!
 
Hình của Anh sealand sao mà rỏ thế (cỡ hình 4X6). Còn em làm thử lên cỡ 15X25 thì hình nó mờ và không rỏ. Các AC giúp em làm cách nào mà hình to mà rỏ nét với!!!!
 
Bạn thử Made in ...tự tôi xem sao.

1/Ghi macro lại quá trình thêm 1 rectang vào sheet, gắn hình nền cho nó, di chuyển nó về vị trí hợp lý và co lại kích cỡ cho phù hợp.
2/Tìm cách lấy được danh sách file ảnh trong thư mục và dùng vòng lặp code để lần lượt chèn Rectang chứa nó/

Lưu ý: Để đảm bảo ảnh nét và đẹp thì ảnh phải ở kích cỡ lơn hơn 1 chút thì khi load vào sẽ ổn hơ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."
Mong anh hướng dẫn cách làm chi tiết với ạ.Thanks!
 
Mình thấy một số bạn vẫn còn lúng túng, vậy mình viết code sau để load tất cả các anh đã chọn lên sheet1. Các bạn tham khảo nha:

Mã:
Sub PicToRec()
Dim FName As Variant, Ch, n, i
On Error Resume Next
n = Sheet1.Shapes.Count
FName = Application _
 .GetOpenFilename("Picture Files (*.jpg), *.jpg", , "SELECT PICTURE INSERT", , True)
 For i = 1 To UBound(FName)
 Ch = Mid(FName(i), InStrRev(FName(i), "\", -1, vbTextCompare) + 1, _
 Len(FName(i)) - InStrRev(FName(i), "\", -1, vbTextCompare) - 4)
With Sheet1.Shapes.AddShape(msoShapeRectangle, 95.25, 114.75, 94.5, 73.5)
.Fill.UserPicture FName(i)
.Top = Sheet1.Cells(i + n).Top
.Height = Sheet1.Cells(i + n).Height
.Left = Sheet1.Cells(i + n).Left
.Width = Sheet1.Cells(i + n).Width
.Name = Ch
End With
 Next
End Sub

Hiện Photobucket cho load ảnh với dung lượng lớn thì ta load lên đó gửi có phải nhẹ file hơn không?
 
Lần chỉnh sửa cuối:
Khi em đưa phần code này về thì sau khi hình ảnh vào
excel phần tên của hình ảnh là tên của hình ảnh gốc
mà trong file "thẻNV" cuả anh lại yêu cầu tên ảnh phải đính kèm chữ "Retangle" thì mới sử dụng được thì phải.
Mong anh hướng dẫn ạ.Em ko hiểu về code nhiều ạ.Cảm ơn anh!
 
Khi em đưa phần code này về thì sau khi hình ảnh vào
excel phần tên của hình ảnh là tên của hình ảnh gốc
mà trong file "thẻNV" cuả anh lại yêu cầu tên ảnh phải đính kèm chữ "Retangle" thì mới sử dụng được thì phải.
Mong anh hướng dẫn ạ.Em ko hiểu về code nhiều ạ.Cảm ơn anh!


Đơn giản mà, bạn sửa câu lệnh sau là được

.Name = Ch

Thành

.Name = "Rectange" & i
 
Anh Sealand cho em hỏi có cách nào mà đánh số thự tự tự động cho hình không . ví dụ như lúc đầu nạp 10 hình có số Rectange 1 -> Rectange 10. sau nạp tiếp 20 hình thì có số là Rectange 11 - Rectange 30
 
Đơn giản mà, bạn sửa câu lệnh sau là được

.Name = Ch

Thành

.Name = "Rectange" & i
Em đổi như thế mà vẫn ko được anh ạ.
Sau khi Run nó ra 1 cái Retangle ko có hình và chỉ có Retangle ko có tên.
Mục đích của em muốn là sau khi lấy hình ảnh có "Retangle & tên hình ảnh" mà em ko biết sửa code của anh sao?Hì
Mong anh hướng dẫn tiếp ạ.Em cảm ơn nhiều!
 
Lần chỉnh sửa cuối:
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
Các anh cho em hỏi là e muốn chuyển bài trên thành hàm copy ảnh giữa các sheet thì làm ntn ạ. Em mới tập tọe vba ạ
 
Hình của Anh sealand sao mà rỏ thế (cỡ hình 4X6). Còn em làm thử lên cỡ 15X25 thì hình nó mờ và không rỏ. Các AC giúp em làm cách nào mà hình to mà rỏ nét với!!!!
Mình có phần mềm làm giảm dung lượng ảnh mà hầu như không làm giảm chât lượng ảnh . Với file Excel cỡ 1,04 MB có thể chứa 230 ảnh cỡ 15x18 . Bạn xem file, nếu ai cần gửi file ảnh lên mediafire.com mình làm hộ . Bạn xem thử file .
 

File đính kèm

  • Nap anh.rar
    979.3 KB · Đọc: 117
Mình có phần mềm làm giảm dung lượng ảnh mà hầu như không làm giảm chât lượng ảnh . Với file Excel cỡ 1,04 MB có thể chứa 230 ảnh cỡ 15x18 . Bạn xem file, nếu ai cần gửi file ảnh lên mediafire.com mình làm hộ . Bạn xem thử file .

BÁC 6* ƠI giúp e chuyển đề tài này thành hàm được không ạ
 
File này của bác hay quá,,, nhưng có thể để cho ảnh thành hàng dọc được không ạ,,,

Mình có phần mềm làm giảm dung lượng ảnh mà hầu như không làm giảm chât lượng ảnh . Với file Excel cỡ 1,04 MB có thể chứa 230 ảnh cỡ 15x18 . Bạn xem file, nếu ai cần gửi file ảnh lên mediafire.com mình làm hộ . Bạn xem thử file .
 
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

Xin phép Thành viên sealand. Mình thấy chủ đề này phù hợp với cái mình đang cần nên xin được hỏi lại 1 vấn đề là:
Chẳng hạn: Nếu Sheet Anh. Thiếu 1 vài ảnh (Rectangle 2, Rectangle 5 .....). Thì Cần thay đổi Code thế nào để Sheet Hso vẫn hoạt động đúng.
(Tức là: Sheet Hso. Chỉ hiện các thông tin khác có trong Sheet, nhưng khung ảnh thì bỏ trống)
Xin cảm ơn !
 
Xin được hỏi, thành viên sealand còn tham gia GPE không.
Hôm trước, tôi có hỏi một vấn đề liên quan đến file chia sẻ của sealand.
Mong nhận được sự hồi âm của thành viên sealand
Trân trọng !
Tốt nhất là bạn nên đưa cái File lên tại Topic này thì sẽ có thành viên xem và trợ giúp.
 
Tốt nhất là bạn nên đưa cái File lên tại Topic này thì sẽ có thành viên xem và trợ giúp.

Vâng. Xin cảm ơn thành viên be09.
Xin được trợ giúp từ mọi người.
Đây là file gốc tải về trên diễn đàn. (Đã xóa bớt ảnh đi cho file nhẹ hơn)
Mình đính kèm file và có yêu cầu trong file.
 

File đính kèm

  • The_NV.xlsm
    371.1 KB · Đọc: 21
Web KT
Back
Top Bottom