Quản lý hình ảnh bằng Excel.
- Thread starter sealand
- Ngày gửi
sealand
Thành viên gạo cội
- Tham gia
- 16/5/08
- Bài viết
- 4,883
- Được thích
- 7,688
- Giới tính
- Nam
- Nghề nghiệp
- Kế Toán
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
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
Thành viên mới
- Tham gia
- 21/8/10
- Bài viết
- 5
- Được thích
- 0
"Đầ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!
Mong anh hướng dẫn cách làm chi tiết với ạ.Thanks!
sealand
Thành viên gạo cội
- Tham gia
- 16/5/08
- Bài viết
- 4,883
- Được thích
- 7,688
- Giới tính
- Nam
- Nghề nghiệp
- Kế Toán
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:
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?
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 SubHiệ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:
tranthuy1402
Thành viên mới
- Tham gia
- 21/8/10
- Bài viết
- 5
- Được thích
- 0
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!
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
Thành viên gạo cội
- Tham gia
- 16/5/08
- Bài viết
- 4,883
- Được thích
- 7,688
- Giới tính
- Nam
- Nghề nghiệp
- Kế Toán
Đơn giản mà, bạn sửa câu lệnh sau là được
.Name = Ch
Thành
.Name = "Rectange" & i
tranthuy1402
Thành viên mới
- Tham gia
- 21/8/10
- Bài viết
- 5
- Được thích
- 0
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:
Thuonghttt
Thành viên mới
- Tham gia
- 28/3/16
- Bài viết
- 4
- Được thích
- 0
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
Cánh Diều xanh
- Tham gia
- 14/6/12
- Bài viết
- 823
- Được thích
- 906
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
Thành viên mới
- Tham gia
- 28/3/16
- Bài viết
- 4
- Được thích
- 0
BÁC 6* ƠI giúp e chuyển đề tài này thành hàm được không ạ
Ngoai Thanh
Cánh Diều xanh
- Tham gia
- 14/6/12
- Bài viết
- 823
- Được thích
- 906
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
Thành viên mới
- Tham gia
- 28/3/16
- Bài viết
- 4
- Được thích
- 0
Vâng e cảm ơn ạ. E liên hệ các thày ở đây hay có thể nt k hả a
Ngoai Thanh
Cánh Diều xanh
- Tham gia
- 14/6/12
- Bài viết
- 823
- Được thích
- 906
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.
File này của bác hay quá,,, nhưng có thể để cho ảnh thành hàng dọc được không ạ,,,
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 !
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,973
- Được thích
- 9,870
- Nghề nghiệp
- Công chức
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.
Bài viết mới nhất
- Đã giải quyết
- Question
