Đưa ảnh Hiện Vào Khung (TextBox) Bằng VBA | Giải Pháp Excel

Có thể bạn quan tâm

Trang chủ Có gì mới Hoạt động gần nhất Tác giả
Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
Video Video về Excel Video về tin học khác Tin tức về tin học chung
Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
Tài nguyên Đánh giá mới nhất Tìm tài nguyên
Facebook
Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

Tìm bài viết mới
Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

Trang chủ
Diễn đàn
Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Đưa ảnh hiện vào khung (TextBox) bằng VBA (1 người xem)

Thread starter Thread starter MinhKhai
Ngày gửi Ngày gửi 12/8/13

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2)

MinhKhai

Giải pháp Ếc-xào

Tham gia 16/4/08 Bài viết 941 Được thích 574 Mình sưu tầm được code VBA của file đính kèm. Do trình độ non yếu nên không biết các sửa, nay nhờ các bác giúp hộ: 1. Đưa ảnh hiện vào 1 khung. 2. Thay đổi E8 thì ảnh hiện theo 3. Tăng tốc độ tải ảnh. (Em đang up ảnh vào SkyDrive, không biết tốc độ tải ảnh ở trang này có chậm không?) https://dl.dropboxusercontent.com/s...puKcjnCv-JWRnSBfa2ieLffKGNZy7w0fUh9hM2nA&dl=1 Sắp xếp theo thời gian sắp xếp theo bầu chọn

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,982

MinhKhai đã viết: 3. Tăng tốc độ tải ảnh. (Em đang up ảnh vào SkyDrive, không biết tốc độ tải ảnh ở trang này có chậm không?) Nhấp chuột vào đây để mở rộng...

Trả lời câu hỏi này trước: Vì phải tải ảnh từ Internet về máy tính nên tốc độ chậm là phải rồi (có tăng tốc kiểu nào thì vẫn chậm) Vậy sao bạn không download toàn bộ ảnh về máy tính trước (có thể download bằng tay hoặc dùng code) rồi hẳn chèn hình vào bảng tính? Khi ấy hình được lấy từ ổ cứng sẽ nhanh hơn (Code dạng này tôi đã viết từ lâu rồi nhưng cũng bởi vì vấn đề tốc độ nên tôi không đưa lên diễn đàn) Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,982

MinhKhai đã viết: Mình sưu tầm được code VBA của file đính kèm. Do trình độ non yếu nên không biết các sửa, nay nhờ các bác giúp hộ: 1. Đưa ảnh hiện vào 1 khung. 2. Thay đổi E8 thì ảnh hiện theo Nhấp chuột vào đây để mở rộng...

Trả lời tiếp 2 yêu cầu này: 1> Để có khung ảnh, ta vẽ 1 Rectangle, đặt tên cho nó là PicFrame (từ đây ảnh sẽ được chèn vào khung này 2> Để ảnh thay đổi theo E8, dùng sự kiện WorksheetChange: Mã: Sao chép. Private Sub Worksheet_Change(ByVal Target As Range) Dim strPic On Error Resume Next If Target.Address = "$E$8" Then strPic = Target.Parent.Range("K4").Value With Sheet1.Shapes("PicFrame").Fill If strPic <> 0 Then .UserPicture CStr(strPic) Else .Solid: .ForeColor.SchemeColor = 12 End If End With End If End Sub Tóm lại: Code chỉ nhiêu đó (hãy xóa toàn bộ những code đang có của bạn)

File đính kèm

TT_DangVien1.rar TT_DangVien1.rar 46.4 KB · Đọc: 556

Upvote 0

MinhKhai

Giải pháp Ếc-xào

Tham gia 16/4/08 Bài viết 941 Được thích 574

ndu96081631 đã viết: Trả lời câu hỏi này trước: Vì phải tải ảnh từ Internet về máy tính nên tốc độ chậm là phải rồi (có tăng tốc kiểu nào thì vẫn chậm) Vậy sao bạn không download toàn bộ ảnh về máy tính trước (có thể download bằng tay hoặc dùng code) rồi hẳn chèn hình vào bảng tính? Khi ấy hình được lấy từ ổ cứng sẽ nhanh hơn (Code dạng này tôi đã viết từ lâu rồi nhưng cũng bởi vì vấn đề tốc độ nên tôi không đưa lên diễn đàn) Nhấp chuột vào đây để mở rộng...

Em cũng đã gặp 1 vài file mẫu mà họ tải ảnh vào 1 thư mục. Tuy nhiên em vẫn chọn cách up ảnh lên Internet - Người dùng chỉ copy 1 file excel là xong. (Gọn nhẹ) - Em chủ động thay ảnh đã up trên Internet mà ko cần can thiệp vào file mình đã gửi đi. Upvote 0

MinhKhai

Giải pháp Ếc-xào

Tham gia 16/4/08 Bài viết 941 Được thích 574

ndu96081631 đã viết: Trả lời tiếp 2 yêu cầu này: 1> Để có khung ảnh, ta vẽ 1 Rectangle, đặt tên cho nó là PicFrame (từ đây ảnh sẽ được chèn vào khung này 2> Để ảnh thay đổi theo E8, dùng sự kiện WorksheetChange: Mã: Sao chép. Private Sub Worksheet_Change(ByVal Target As Range) Dim strPic On Error Resume Next If Target.Address = "$E$8" Then strPic = Target.Parent.Range("K4").Value With Sheet1.Shapes("PicFrame").Fill If strPic <> 0 Then .UserPicture CStr(strPic) Else .Solid: .ForeColor.SchemeColor = 12 End If End With End If End Sub Tóm lại: Code chỉ nhiêu đó (hãy xóa toàn bộ những code đang có của bạn) Nhấp chuột vào đây để mở rộng...

Chân thành cảm ơn bác. Trước hết vì bác rất nhiệt tình giúp đỡ và chỉ dẫn mọi người, sau đó vì code của bác rất gọn, rất "trong sáng" nên dễ hiểu để học tập và giải quyết các yêu cầu khác. Em hoàn toàn hài lòng vì giải pháp của bác Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,982

MinhKhai đã viết: Em cũng đã gặp 1 vài file mẫu mà họ tải ảnh vào 1 thư mục. Tuy nhiên em vẫn chọn cách up ảnh lên Internet - Người dùng chỉ copy 1 file excel là xong. (Gọn nhẹ) - Em chủ động thay ảnh đã up trên Internet mà ko cần can thiệp vào file mình đã gửi đi. Nhấp chuột vào đây để mở rộng...

Đương nhiên giải pháp Upload ảnh lên internet là hợp lý rồi (tôi có nói gì đâu) Ý tôi là: Thay vì insert ảnh trực tiếp từ internet, ta thêm công đoạn download ảnh về máy tính rồi hẳn insert. Vậy thì tốc độ chắc chắn sẽ ngon lành Quy trình tôi đề xuất là thế này: - Tạo Sub AutoOpen làm nhiệm vụ (ngay từ khi khởi động file) download toàn bộ ảnh về đâu đó trên ổ cứng, đông thời đặt tên cho ảnh theo đúng mã số - Sub AutoOpen cũng làm thêm 1 công đoạn nữa là kiểm tra xem tên file ảnh đã tồn tại trong ổ cứng hay chưa ---> Nếu chưa có mới download. Điều này giúp giảm nhẹ công việc khi mở file lần thứ 2 sẽ không phải download tiếp - Khi thực thi công đoạn chèn ảnh, sẽ lấy ảnh từ ổ cứng thay vì lấy ảnh từ internet - Khi chuyển file sang máy tính khác thì công việc download ảnh sẽ được thực thi (và chỉ thực thi 1 lần duy nhất) Upvote 0

maytinhvp01

Thành viên thường trực

Tham gia 27/7/13 Bài viết 390 Được thích 179

ndu96081631 đã viết: Đương nhiên giải pháp Upload ảnh lên internet là hợp lý rồi (tôi có nói gì đâu) Ý tôi là: Thay vì insert ảnh trực tiếp từ internet, ta thêm công đoạn download ảnh về máy tính rồi hẳn insert. Vậy thì tốc độ chắc chắn sẽ ngon lành Quy trình tôi đề xuất là thế này: - Tạo Sub AutoOpen làm nhiệm vụ (ngay từ khi khởi động file) download toàn bộ ảnh về đâu đó trên ổ cứng, đông thời đặt tên cho ảnh theo đúng mã số - Sub AutoOpen cũng làm thêm 1 công đoạn nữa là kiểm tra xem tên file ảnh đã tồn tại trong ổ cứng hay chưa ---> Nếu chưa có mới download. Điều này giúp giảm nhẹ công việc khi mở file lần thứ 2 sẽ không phải download tiếp - Khi thực thi công đoạn chèn ảnh, sẽ lấy ảnh từ ổ cứng thay vì lấy ảnh từ internet - Khi chuyển file sang máy tính khác thì công việc download ảnh sẽ được thực thi (và chỉ thực thi 1 lần duy nhất) Nhấp chuột vào đây để mở rộng...

Đọc bài của bác mà tự hỏi không biết tới lúc nào có thể hiểu được 70% VBA Upvote 0

maytinhvp01

Thành viên thường trực

Tham gia 27/7/13 Bài viết 390 Được thích 179

ndu96081631 đã viết: Trả lời tiếp 2 yêu cầu này: 1> Để có khung ảnh, ta vẽ 1 Rectangle, đặt tên cho nó là PicFrame (từ đây ảnh sẽ được chèn vào khung này 2> Để ảnh thay đổi theo E8, dùng sự kiện WorksheetChange: Mã: Sao chép. Private Sub Worksheet_Change(ByVal Target As Range) Dim strPic On Error Resume Next If Target.Address = "$E$8" Then strPic = Target.Parent.Range("K4").Value With Sheet1.Shapes("PicFrame").Fill If strPic <> 0 Then .UserPicture CStr(strPic) Else .Solid: .ForeColor.SchemeColor = 12 End If End With End If End Sub Tóm lại: Code chỉ nhiêu đó (hãy xóa toàn bộ những code đang có của bạn) Nhấp chuột vào đây để mở rộng...

Hướng dẫn em cách đổi tên rectangle với ạ. có phải câu lệch này dùng đổi tên luôn không hả anh? With Sheet1.Shapes("PicFrame").Fill Em đã test thì thấy code anh load ảnh nhanh hơn file cũ. Lần chỉnh sửa cuối: 13/8/13 Upvote 0

MinhKhai

Giải pháp Ếc-xào

Tham gia 16/4/08 Bài viết 941 Được thích 574

maytinhvp01 đã viết: Hướng dẫn em cách đổi tên rectangle với ạ Em đã test thì thấy code anh load ảnh nhanh hơn file cũ. Nhấp chuột vào đây để mở rộng...

Bạn vẽ rectangle. Đánh dấu vào Rectangle này. Nhìn vào cái hộp Name Box, nó đang có cái tên mặc định gì đó ví dụ như Rectangle 2. Bạn bôi đen dòng chữ này và gõ tên mới (ví dụ PicFrame) rồi gõ Enter là xong. Hộp Name Box ở sát phía trên ô A1. (Góc trên trái màn hình) Upvote 0

MinhKhai

Giải pháp Ếc-xào

Tham gia 16/4/08 Bài viết 941 Được thích 574

ndu96081631 đã viết: Đương nhiên giải pháp Upload ảnh lên internet là hợp lý rồi (tôi có nói gì đâu) Ý tôi là: Thay vì insert ảnh trực tiếp từ internet, ta thêm công đoạn download ảnh về máy tính rồi hẳn insert. Vậy thì tốc độ chắc chắn sẽ ngon lành Quy trình tôi đề xuất là thế này: - Tạo Sub AutoOpen làm nhiệm vụ (ngay từ khi khởi động file) download toàn bộ ảnh về đâu đó trên ổ cứng, đông thời đặt tên cho ảnh theo đúng mã số - Sub AutoOpen cũng làm thêm 1 công đoạn nữa là kiểm tra xem tên file ảnh đã tồn tại trong ổ cứng hay chưa ---> Nếu chưa có mới download. Điều này giúp giảm nhẹ công việc khi mở file lần thứ 2 sẽ không phải download tiếp - Khi thực thi công đoạn chèn ảnh, sẽ lấy ảnh từ ổ cứng thay vì lấy ảnh từ internet - Khi chuyển file sang máy tính khác thì công việc download ảnh sẽ được thực thi (và chỉ thực thi 1 lần duy nhất) Nhấp chuột vào đây để mở rộng...

Ý tưởng của bác rất hay, như cách các trang tải các trang web. Khi mở file Excel sẽ ra lệnh down các ảnh về thư mục tạm đồng thời --> đổi tên. Tuy nhiên có vấn đề như sau: 1. Khi mở file (Aut o_O

pen) lệnh download ảnh sẽ thực thi, nó sẽ download tất cả các ảnh (giả sử chưa có sẵn ảnh trong thư mục tạm) điều này sẽ khiến thời gian mở file sẽ lâu (thậm chí rất lâu) --> Gây tâm lý khó chịu cho người dùng file. 2. Em rất tán thành phương án của bác, nhưng code thế nào thì em pótay.com Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,982

MinhKhai đã viết: Ý tưởng của bác rất hay, như cách các trang tải các trang web. Khi mở file Excel sẽ ra lệnh down các ảnh về thư mục tạm đồng thời --> đổi tên. Tuy nhiên có vấn đề như sau: 1. Khi mở file (Autpen) lệnh download ảnh sẽ thực thi, nó sẽ download tất cả các ảnh (giả sử chưa có sẵn ảnh trong thư mục tạm) điều này sẽ khiến thời gian mở file sẽ lâu (thậm chí rất lâu) --> Gây tâm lý khó chịu cho người dùng file. 2. Em rất tán thành phương án của bác, nhưng code thế nào thì em pótay.com Nhấp chuột vào đây để mở rộng...

Tốc độ ra sao cứ thử sẽ biết hen: 1> Code trong Module Mã: Sao chép. Function DownloadFile(ByVal URL As String, ByVal FileToSave As String) As String Dim oXlmHttp As Object, fso As Object Dim tmpPath As String On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") tmpPath = fso.BuildPath(Environ("TEMP"), FileToSave) If Not fso.FileExists(tmpPath) Then Set oXlmHttp = CreateObject("Microsoft.XMLHTTP") oXlmHttp.Open "GET", URL, False oXlmHttp.Send URL = oXlmHttp.ResponseBody If oXlmHttp.Status = 200 Then With CreateObject("ADODB.Stream") .Open: .Type = 1 .Write oXlmHttp.ResponseBody .SaveToFile tmpPath .Close End With End If End If DownloadFile = tmpPath End Function Sub Auto_Open() Dim aSrc, Ret As String, lR As Long On Error Resume Next aSrc = Sheets("Data").Range("All").Value For lR = 1 To UBound(aSrc, 1) Ret = DownloadFile(aSrc(lR, 28), aSrc(lR, 1)) Next End Sub 2> Code sự kiện Change Mã: Sao chép. Private Sub Worksheet_Change(ByVal Target As Range) Dim sPic As String, sURL As String On Error Resume Next If Target.Address = "$E$8" Then sURL = Target.Parent.Range("K4").Value With Sheet1.Shapes("PicFrame").Fill .Solid: .ForeColor.SchemeColor = 12 If Len(Trim(sURL)) Then sPic = DownloadFile(sURL, Target.Value) If Len(sPic) Then .UserPicture sPic End If End With End If End Sub -------------- Thử nghiệm: - Mở file và chờ trong giây lát. Đến khi hoàn tất, thực hiện code Change bằng cách thay đổi Validation tai E8 ---> Cảm nhận tốc độ - Đóng file lại và mở lần nữa để kiểm tra Chắc chắn từ lần mở file thứ 2 trở đi sẽ không phải chờ đợi gì cả

File đính kèm

PictureFromWeb.rar PictureFromWeb.rar 828.3 KB · Đọc: 327

Upvote 0

maytinhvp01

Thành viên thường trực

Tham gia 27/7/13 Bài viết 390 Được thích 179

MinhKhai đã viết: Bạn vẽ rectangle. Đánh dấu vào Rectangle này. Nhìn vào cái hộp Name Box, nó đang có cái tên mặc định gì đó ví dụ như Rectangle 2. Bạn bôi đen dòng chữ này và gõ tên mới (ví dụ PicFrame) rồi gõ Enter là xong. Hộp Name Box ở sát phía trên ô A1. (Góc trên trái màn hình) Nhấp chuột vào đây để mở rộng...

Mình thấy rùi bên trái dong để nhập công thức đúng không? Cảm ơn bạn! sem nào tối nay lại "vọc" tiếp tác phẩm của topic này hihi Tình hình là mình không đổi tên được bạn àh giúp mình với Lần chỉnh sửa cuối: 13/8/13 Upvote 0

maytinhvp01

Thành viên thường trực

Tham gia 27/7/13 Bài viết 390 Được thích 179

ndu96081631 đã viết: Trả lời tiếp 2 yêu cầu này: 1> Để có khung ảnh, ta vẽ 1 Rectangle, đặt tên cho nó là PicFrame (từ đây ảnh sẽ được chèn vào khung này 2> Để ảnh thay đổi theo E8, dùng sự kiện WorksheetChange: Mã: Sao chép. Private Sub Worksheet_Change(ByVal Target As Range) Dim strPic On Error Resume Next If Target.Address = "$E$8" Then strPic = Target.Parent.Range("K4").Value With Sheet1.Shapes("PicFrame").Fill If strPic <> 0 Then .UserPicture CStr(strPic) Else .Solid: .ForeColor.SchemeColor = 12 End If End With End If End Sub Tóm lại: Code chỉ nhiêu đó (hãy xóa toàn bộ những code đang có của bạn) Nhấp chuột vào đây để mở rộng...

Anh ơi đổi tên rectangle như thế nào ạh. Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,982

maytinhvp01 đã viết: Tình hình là mình không đổi tên được bạn àh giúp mình với Nhấp chuột vào đây để mở rộng...

Gì vậy? Xem video clip này nhé: [video=youtube;DVr20QW_xRI]http://www.youtube.com/watch?v=DVr20QW_xRI&feature=youtu.be[/video] Đổi tên bình thường mà Upvote 0

maytinhvp01

Thành viên thường trực

Tham gia 27/7/13 Bài viết 390 Được thích 179 Cảm ơn anh. Em xin bổ xung thêm là khi đánh xong tên mới kết thúc phải là nhấn "enter" mới đỏi tên được. khi trước em đánh xong tên em kích chuột vào luôn bảng tính hay cho nào đó nên tên không đổi được. Thank! Upvote 0

maytinhvp01

Thành viên thường trực

Tham gia 27/7/13 Bài viết 390 Được thích 179

ndu96081631 đã viết: Gì vậy? Xem video clip này nhé: Đổi tên bình thường mà Nhấp chuột vào đây để mở rộng...

Anh ơi em vẫn đang tìm hiểu cái bài này. Anh chỉ em cách làm tại cái cell E8 với ạ. Làm sao để tạo được cái list đó hả anh? Anh oi em đã tim trên diễn đàn và tìm được bài anh hướng dẫn trước đó. Nhưng bài hướng dẫn đó lại là combo box (activax control). Em có thử làm như hướng dẫn về cái combo box (activax control) nhưng khi lấy listfillrange tham chieu sang sheet khác thì không biết làm " em thay trên thẻ properties của combo. anh hướng dẫn em với ạh Lần chỉnh sửa cuối: 14/8/13 Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,982

maytinhvp01 đã viết: Anh ơi em vẫn đang tìm hiểu cái bài này. Anh chỉ em cách làm tại cái cell E8 với ạ. Làm sao để tạo được cái list đó hả anh? Nhấp chuột vào đây để mở rộng...

Cái đó gọi là Validation bạn à! Bạn tự tìm trong Excel (Tab Data\Data Validation) hoặc tìm trên GPE ---> Có đầy Upvote 0

maytinhvp01

Thành viên thường trực

Tham gia 27/7/13 Bài viết 390 Được thích 179

ndu96081631 đã viết: Cái đó gọi là Validation bạn à! Bạn tự tìm trong Excel (Tab Data\Data Validation) hoặc tìm trên GPE ---> Có đầy Nhấp chuột vào đây để mở rộng...

Thank anh nhiều em se tìm hiểu phần validation này ạ! Upvote 0 P

phieudu_90

Thành viên mới

Tham gia 12/2/14 Bài viết 4 Được thích 0 Chào anh ndu96081631 Cũng như yêu cầu trên nhưng code để chèn ảnh đã có ở máy tính vào textbox đó như thế nào ạ? Lần chỉnh sửa cuối: 13/2/14 Upvote 0

maytinhvp01

Thành viên thường trực

Tham gia 27/7/13 Bài viết 390 Được thích 179

phieudu_90 đã viết: Chào anh ndu96081631 Cũng như yêu cầu trên nhưng code để chèn ảnh đã có ở máy tính vào textbox đó như thế nào ạ? Nhấp chuột vào đây để mở rộng...

Em mượn code anh Ndu: Với bài trên mà lấy ảnh ở máy bạn thì chố màu đỏ tùy biến theo đường dẫn của file ảnh của bạn Mã: Sao chép. Private Sub Worksheet_Change(ByVal Target As Range) Dim strPic On Error Resume Next If Target.Address = "$E$8" Then strPic = [COLOR=#ff0000]Target.Parent.Range("K4").Value[/COLOR][B][COLOR=#000080] ' có thể tùy biến theo chỗ này[/COLOR][/B] With Sheet1.Shapes("PicFrame").Fill If strPic <> 0 Then .UserPicture [COLOR=#ff0000]CStr(strPic)[/COLOR][B][COLOR=#000080] 'hoặc chỗ này[/COLOR][/B] Else .Solid: .ForeColor.SchemeColor = 12 End If End With End If End Sub hơn nữa cấu hởi của bạn là đưa ảnh vào "textbox" là đưa danh sách hay cái gì vây??? Upvote 0 H

hien4hh

Thành viên mới

Tham gia 8/9/11 Bài viết 1 Được thích 0

ndu96081631 đã viết: Trả lời tiếp 2 yêu cầu này: 1> Để có khung ảnh, ta vẽ 1 Rectangle, đặt tên cho nó là PicFrame (từ đây ảnh sẽ được chèn vào khung này 2> Để ảnh thay đổi theo E8, dùng sự kiện WorksheetChange: Mã: Sao chép. Private Sub Worksheet_Change(ByVal Target As Range) Dim strPic On Error Resume Next If Target.Address = "$E$8" Then strPic = Target.Parent.Range("K4").Value With Sheet1.Shapes("PicFrame").Fill If strPic <> 0 Then .UserPicture CStr(strPic) Else .Solid: .ForeColor.SchemeColor = 12 End If End With End If End Sub Tóm lại: Code chỉ nhiêu đó (hãy xóa toàn bộ những code đang có của bạn) Nhấp chuột vào đây để mở rộng...

Bác ơi cho hỏi, sao nhấn in ra thì ảnh không hiển thị? Upvote 0 sevt.01

sevt.01

Thành viên mới

Tham gia 16/6/18 Bài viết 6 Được thích 0 Em nhờ các anh/ chị giúp cách chèn ảnh vào file Excel. E có dùng code VBA nhưng do không hiểu về Code nên không thực hiện được. E gửi file lên đây nhờ anh/ chị chỉ giúp. File Ảnh em có file name là số ID của mỗi nhân viên. Khi nhập số ID vào ô Gen thì ảnh tự link vào ô ảnh của file ạ. Em cảm ơn anh/ chị !

File đính kèm

File chen anh.rar File chen anh.rar 3.1 MB · Đọc: 22

Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,982

sevt.01 đã viết: Em nhờ các anh/ chị giúp cách chèn ảnh vào file Excel. E có dùng code VBA nhưng do không hiểu về Code nên không thực hiện được. E gửi file lên đây nhờ anh/ chị chỉ giúp. File Ảnh em có file name là số ID của mỗi nhân viên. Khi nhập số ID vào ô Gen thì ảnh tự link vào ô ảnh của file ạ. Em cảm ơn anh/ chị ! Nhấp chuột vào đây để mở rộng...

Xem link này sẽ làm được: https://www.giaiphapexcel.com/diendan/threads/chèn-hình-vào-cell-bằng-hàm-tự-tạo.51408/ Upvote 0 sevt.01

sevt.01

Thành viên mới

Tham gia 16/6/18 Bài viết 6 Được thích 0

ndu96081631 đã viết: Xem link này sẽ làm được: https://www.giaiphapexcel.com/diendan/threads/chèn-hình-vào-cell-bằng-hàm-tự-tạo.51408/ Nhấp chuột vào đây để mở rộng...

Chào Anh Tuấn, Anh cho em hỏi đoạn lệnh này. =CommPic(B5,C5) . "chỉ hiện thị ảnh trong ô C5 ".Do ảnh của em nằm trong nhiều hàng của Excel. từ hàng ngang C5 -> C8 , hàng dọc từ C5 -> F5 . Trong khoảng đó e đang "Merge & Center " thì em phải sửa lại như thế nào để ảnh hiện thị trên cả các ô đó. e cảm ơn anh.

C5	D5	E5	F5
C6
C7
C8

Upvote 0 B

batman1

Thành viên gạo cội

Tham gia 8/9/14 Bài viết 5,776 Được thích 9,819

sevt.01 đã viết: .Do ảnh của em nằm trong nhiều hàng của Excel. từ hàng ngang C5 -> C8 , hàng dọc từ C5 -> F5 . Nhấp chuột vào đây để mở rộng...

Ảnh trong vùng 1 ô, nhiều ô (không cần merge), vừa khít, center, ảnh cỡ thực. Bài #199 https://www.giaiphapexcel.com/diendan/threads/chèn-hình-vào-cell-bằng-hàm-tự-tạo.51408/post-861899 Upvote 0 sevt.01

sevt.01

Thành viên mới

Tham gia 16/6/18 Bài viết 6 Được thích 0 Anh batman1 hướng dẫn lại em được không ạ? e làm mà ảnh vẫn chỉ hiện thị trong 1 cell. anh không có hiện lên nhiều cell ạ. em cảm ơn anh! Upvote 0 B

batman1

Thành viên gạo cội

Tham gia 8/9/14 Bài viết 5,776 Được thích 9,819

sevt.01 đã viết: Anh batman1 hướng dẫn lại em được không ạ? e làm mà ảnh vẫn chỉ hiện thị trong 1 cell. anh không có hiện lên nhiều cell ạ. em cảm ơn anh! Nhấp chuột vào đây để mở rộng...

Đọc chú thích trong code Center trong vùng C5:F8 Mã: Sao chép. InsertPicture "c:\anh\1.jpg", worksheets("Sheet1").Range("C5:F8"), FALSE, TRUE Vừa khít vùng C5:F8 Mã: Sao chép. InsertPicture "c:\anh\1.jpg", worksheets("Sheet1").Range("C5:F8"), FALSE, FALSE hoặc InsertPicture "c:\anh\1.jpg", worksheets("Sheet1").Range("C5:F8") Upvote 0 H

hungcuongndt

Thành viên mới

Tham gia 10/1/13 Bài viết 6 Được thích 0 Chào Thầy Em có xem cách Thầy hướng dẫn ở trên nhưng em chưa rõ lắm. Nhờ Thầy hướng dẫn giúp em cách chèn các hình này vào báo cáo với ạ. Em cần chèn các hình theo đúng thứ tự (Root+Body+SKip) và Full hình Có gì nhờ Thầy hướng dẫn giúp em. Cảm ơn Thầy

File đính kèm

Help.rar Help.rar 251 KB · Đọc: 6

Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Copilot bình luận các ván cờ vua từng ngày.

SA_DQ
3/11/25
Chia sẻ

Trả lời 61 Đọc 2K Hôm nay lúc 04:52 SA_DQ

Đã giải quyết

FitRowXL v1.1 - Giãn dòng tự động và bổ trợ in ấn Excel (*01/2026 mới) (1 người xem)

HeSanbi
18/4/21
Lập Trình với Excel

Trả lời 73 Đọc 30K Hôm qua, lúc 17:20 chothadiem

E Giúp Đặt tên lại (Rename) cho hàng loạt các file PDF theo cùng 1 quy tắc (2 người xem)

Excel my love_1
15/4/23
Tin học mở rộng

Trả lời 4 Đọc 4K Hôm qua, lúc 15:20 luongha.ktqd L L Thu Chi Gia Đình

lehang0812
Thứ năm lúc 17:12
TPHCM

Trả lời 3 Đọc 100 Hôm qua, lúc 02:59 son193 S

Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)

ongke0711
6/10/24
Lập Trình với Excel

5 6 7 Trả lời 622 Đọc 91K Thứ năm lúc 16:11 LOGANWover L

Question Question

Chia sẻ một thuật toán đơn giản để trộn cells (1 người xem)

Quang_Hải
Thứ tư lúc 10:14
Lập Trình với Excel

Trả lời 12 Đọc 296 Thứ năm lúc 11:13 Quang_Hải

TaxCode v4.33 - Tra cứu mã số thuế từ tổng cục thuế, masothue và thuvienphapluat

HeSanbi
27/11/25
Các Add-ins cho excel

Trả lời 19 Đọc 3K Thứ năm lúc 08:54 HeSanbi

Question Question

Tạo Add-in, tệp Excel, Word, Access tự động cập nhật phiên bản mới từ Cloud cho chính nó

HeSanbi
Thứ hai lúc 20:14
Lập Trình với Excel

Trả lời 1 Đọc 207 Thứ tư lúc 17:03 HeSanbi

Hàm EXACT

TranThanhPhong
30/4/14
Dự án: Công thức & Hàm 97-2019

Trả lời 3 Đọc 9K Thứ ba lúc 15:52 ptm0412

Add-Ins cho Excel 2007 -2016 32bit và 64bit

giaiphap
8/8/15
Các Add-ins cho excel

4 5 6 Trả lời 518 Đọc 226K Thứ ba lúc 14:17 Gà Công Nghệ

V Một Excel add-in vibe coding

vietdang170
28/1/26
Các Add-ins cho excel

Trả lời 18 Đọc 697 Thứ ba lúc 11:10 vietdang170 V H Xin giúp đặt điều kiện trong Conditional Formating

hoanglocphat
Thứ hai lúc 14:23
Hỏi đáp những vấn đề khác

Trả lời 6 Đọc 177 Thứ ba lúc 10:13 Gà Con yêu VBA

Dán lên cao

Phiên bản mới Add-in A-Tools AI v10 (2024) (1 người xem)

Nguyễn Duy Tuân
13/9/24
BLUESOFTS: A-Excel, A-Tools

Trả lời 61 Đọc 12K Thứ hai lúc 15:13 Nguyễn Duy Tuân

Xin giúp hàm excel để tìm 1 số trong số có 2 chữ số (2 người xem)

mrjun80
31/1/26
Hàm và công thức Excel

Trả lời 4 Đọc 178 Chủ nhật lúc 08:38 Gà Con yêu VBA

N Vấn đề về hiệu năng khi thực hiện ghép chuỗi trong VBA với tần suất lớn

nguyendang95
23/1/26
Excel và các ngôn ngữ lập trình khác

Trả lời 36 Đọc 1K 31/1/26 ptm0412

Question Question

Tra cứu thông tin mã số thuế (cập nhật lại code cũ)

ongke0711
24/7/25
Lập Trình với Excel

Trả lời 16 Đọc 2K 31/1/26 tuyethao T

VNFastSearch – DLL tìm kiếm tiếng Việt tốc độ cao cho Excel VBA (2 người xem)

phuongnam366377
31/1/26
Excel và các ngôn ngữ lập trình khác

Trả lời 0 Đọc 156 31/1/26 phuongnam366377

Question Question

Tạo khung viền ô theo số trong ô (3 người xem)

Nguyễn Xuân Sơn
29/1/26
Lập Trình với Excel

Trả lời 9 Đọc 252 31/1/26 Mr.hieudoanxd

J Đừng chỉ "Cập nhật" dữ liệu. Hãy "Xếp chồng" chúng lên. (2 người xem)

jack nt
29/1/26
Excel và các ngôn ngữ lập trình khác

Trả lời 5 Đọc 296 31/1/26 ptm0412

T gửi email đến nhân viên công ty

tuantv9
26/1/26
Excel và các ngôn ngữ lập trình khác

Trả lời 2 Đọc 271 30/1/26 nguyendang95 N Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

HeSanbi 11
chothadiem 8
Gà Công Nghệ 5
Officexinh 4
vietdang170 4
pycckuu410 3
HieuCD 3
chiendich 3
hoanglocphat 3
VietHoangPhan 2
DeTong 2
Gà Con yêu VBA 2
Quang_Hải 2
linhdao2909 1
HUONGHCKT 1
vuvannguyen1972 1
Phuocam 1
ptm0412 1
LOGANWover 1
luongha.ktqd 1

Thành viên có điểm tương tác cao nhất tháng

HeSanbi 16
Quang_Hải 7
vietdang170 5
Gà Con yêu VBA 4
pycckuu410 3
chiendich 3
DeTong 3
Phuocam 3
Officexinh 2
HUONGHCKT 2
HieuCD 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

Trang chủ
Diễn đàn
Lập Trình với Excel

Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom

Từ khóa » Chèn ảnh Vào Bảng Tính Excel Với Vba

Tìm kiếm

Người dùng đang xem chủ đề này

MinhKhai

Giải pháp Ếc-xào

ndu96081631

Huyền thoại GPE

ndu96081631

Huyền thoại GPE

File đính kèm

MinhKhai

Giải pháp Ếc-xào

MinhKhai

Giải pháp Ếc-xào

ndu96081631

Huyền thoại GPE

maytinhvp01

Thành viên thường trực

maytinhvp01

Thành viên thường trực

MinhKhai

Giải pháp Ếc-xào

MinhKhai

Giải pháp Ếc-xào

ndu96081631

Huyền thoại GPE

File đính kèm

maytinhvp01

Thành viên thường trực

maytinhvp01

Thành viên thường trực

ndu96081631

Huyền thoại GPE

maytinhvp01

Thành viên thường trực

maytinhvp01

Thành viên thường trực

ndu96081631

Huyền thoại GPE

maytinhvp01

Thành viên thường trực

phieudu_90

Thành viên mới

maytinhvp01

Thành viên thường trực

hien4hh

Thành viên mới

sevt.01

Thành viên mới

File đính kèm

ndu96081631

Huyền thoại GPE

sevt.01

Thành viên mới

batman1

Thành viên gạo cội

sevt.01

Thành viên mới

batman1

Thành viên gạo cội

hungcuongndt

Thành viên mới

File đính kèm

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

Liên Hệ