Quản lý hình ảnh bằng Excel. (1 người xem)

[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)

 

[quykh]

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!!!!

 

[quykh]

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!!!!

 

[sealand]

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

 

[tranthuy1402]

"Đầ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!

 

[sealand]

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:

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?

 

[tranthuy1402]

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!

 

[sealand]

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

 

[DMQ]

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

 

[tranthuy1402]

Đơ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!

 

[Thuonghttt]

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 ạ

 

[Ngoai Thanh]

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 .

 

[Thuonghttt]

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 ạ

 

[Ngoai Thanh]

BÁC 6* ƠI giúp e chuyển đề tài này thành hàm được không ạ

Bạn có thể tìm bài viết của thày NDU, Thày Sealand, của Bạn Nghĩa phúc....về vấn đề chèn ảnh . Mình chỉ giúp phần làm giảm dung lượng ảnh thôi nếu bạn cần .

 

[Thuonghttt]

Bạn có thể tìm bài viết của thày NDU, Thày Sealand, của Bạn Nghĩa phúc....về vấn đề chèn ảnh . Mình chỉ giúp phần làm giảm dung lượng ảnh thôi nếu bạn cần .

Vâng e cảm ơn ạ. E liên hệ các thày ở đây hay có thể nt k hả a

 

[Ngoai Thanh]

Vâng e cảm ơn ạ. E liên hệ các thày ở đây hay có thể nt k hả a

Bạn tìm trên diễn đàn với từ khóa " chen anh vao excel " sẽ ra chủ đề để bạn ứng dụng.

 

[pizza]

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 .

 

[lenolim]

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 !

 

[lenolim]

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 đượ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 !

 

[be_09]

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.

 

[lenolim]

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.

 

[batman1]

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.

Alt + F11 -> đúp chuột vào Sheet3 (HSo) -> thay code ở bên phải bằng

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$AP$3" Then
        Application.ScreenUpdating = False
        With Me
            On Error Resume Next
            .Shapes("$C$3").Delete
            If Err.Number Then Err.Clear
            Sheet1.Shapes("Rectangle " & .[AP3].Value).Copy
            If Err.Number = 0 Then
                .Paste .[C3]
                With Selection
                    .Height = Me.[C3:I10].Height
                    .Width = Me.[C3:I10].Width
                    .Name = "$C$3"
                End With
                Application.CutCopyMode = False
                Target.Activate
            End If
            On Error GoTo 0
        End With
        Application.ScreenUpdating = True
    End If
End Sub

 

[lenolim]

Alt + F11 -> đúp chuột vào Sheet3 (HSo) -> thay code ở bên phải bằng

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$AP$3" Then
        Application.ScreenUpdating = False
        With Me
            On Error Resume Next
            .Shapes("$C$3").Delete
            If Err.Number Then Err.Clear
            Sheet1.Shapes("Rectangle " & .[AP3].Value).Copy
            If Err.Number = 0 Then
                .Paste .[C3]
                With Selection
                    .Height = Me.[C3:I10].Height
                    .Width = Me.[C3:I10].Width
                    .Name = "$C$3"
                End With
                Application.CutCopyMode = False
                Target.Activate
            End If
            On Error GoTo 0
        End With
        Application.ScreenUpdating = True
    End If
End Sub

Xin cảm ơn anh.
Khi nãy thử Code thì thấy lỗi.
Bây giờ tắt file, save lại thì lại được rồi.
Cảm ơn anh rất nhiều ! ./.

 

[befaint]

làm thế nào cho file nhiều ảnh mà nhẹ bạn nhỉ

Sao vẫn kiên trì đăng bài vậy ta? Mình nghĩ được tặng vé đi du lịch rồi chứ?

Nhiều ảnh thì dung lượng tăng phình to lên, làm gì có chuyện nhẹ được? Kiểu này 1 cân sắt nặng hơn 1 cân bông í hả?

 

[ptm0412]

Sao vẫn kiên trì đăng bài vậy ta? Mình nghĩ được tặng vé đi du lịch rồi chứ?

Đang mùa covid nên cấm du lịch tiếp xúc đông người, sao mà dám cấp vé

 

[ngochinh2211]

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 Anh.
nhờ anh chỉ em định dạng dửa liệu hình ảnh bằng giá trị tại một cell như này với ah

 

[babyheomoi]

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!!!!

Vâng, em cũng thắc mắc cái này là sao?? làm sao để đánh số ảnh khi add vào tương ứng với số thứ tự?

 

[Nguyễn Duy Tuân]

Hi Anh.
nhờ anh chỉ em định dạng dửa liệu hình ảnh bằng giá trị tại một cell như này với ahView attachment 260369

Nếu bạn chưa làm được bằng VBA mà cần dùng thì hãy xem hướng dẫn dùng hàm BS_PIC (hàm này free trong Add-in A-Tools). Bạn xem tại đây

 

[tiwenger]

cách này hay, phải biết cách lấy ra hàng loạt nữa