Đư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,978

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,978

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: 555

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,978

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,978

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: 326

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,978

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,978

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: 21

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,978

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: 5

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

P Tìm giá trị tồn kho đầu ngày

ptthuongtn
Hôm qua, lúc 15:15
Hàm và công thức Excel

Trả lời 1 Đọc 51 Hôm qua, lúc 22:19 thanthanhan

K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ...

kaoehtkid
Thứ hai lúc 19:04
Những vấn đề chung

Trả lời 6 Đọc 136 Hôm qua, lúc 18:40 ptm0412

M Sai lệch vùng dữ liệu khi tạo Name Range bằng VBA

Mr_Siro
Hôm qua, lúc 10:57
Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 4 Đọc 82 Hôm qua, lúc 17:38 SA_DQ

Tính định mức sản phẩm

Nguyenkhang2404
24/7/25
Hàm và công thức Excel

Trả lời 10 Đọc 826 Hôm qua, lúc 15:54 thaodang88 T

Xin giúp đỡ về việc áp dụng hàm phù hợp để phân tách dữ liệu

skygatevn
Hôm qua, lúc 11:59
Hướng dẫn sử dụng các hàm trong Excel

Trả lời 3 Đọc 62 Hôm qua, lúc 13:52 skygatevn

Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025! (1 người xem)

PhanTuHuong
10/12/25
Câu lạc bộ hoạt động xã hội

Trả lời 5 Đọc 281 Hôm qua, lúc 12:43 GPE-Trợ Lý

D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện

dieppk.nb92
Chủ nhật lúc 01:22
Hàm và công thức Excel

Trả lời 14 Đọc 372 Hôm qua, lúc 10:20 dieppk.nb92 D

Nếu diễn đàn GPE đóng cửa?

PhanTuHuong
Chủ nhật lúc 23:46
Thư giãn

Trả lời 17 Đọc 510 Hôm qua, lúc 09:21 anhtuanle123 A

CHUNG TAY HƯỚNG VỀ MIỀN TRUNG NĂM 2025

GPE-Trợ Lý
24/11/25
Câu lạc bộ hoạt động xã hội

Trả lời 12 Đọc 843 Hôm qua, lúc 07:38 PhanTuHuong

Đã giải quyết

WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại) (1 người xem)

HeSanbi
30/5/20
Lập Trình với Excel

Trả lời 92 Đọc 27K Thứ ba lúc 19:57 Maika8008

P Lỗi hàm VBA phải add-in sau mỗi lần mở file

phamdinh.huy.aladin@gmail
Thứ hai lúc 10:18
Hàm và công thức Excel

Trả lời 5 Đọc 152 Thứ ba lúc 13:59 phamdinh.huy.aladin@gmail P D

Question Question

Tách dòng tự động theo điều kiện bằng VBA

duongnhuxuyen
Thứ sáu lúc 15:39
Lập Trình với Excel

Trả lời 14 Đọc 299 Thứ ba lúc 09:00 ptm0412

Question Question

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

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

4 5 6 Trả lời 580 Đọc 83K Thứ ba lúc 08:39 pycckuu410

Đã giải quyết

VBA code thay thế cho pivot-table lấy top 10, bottom 10

eagle12
8/12/25
Lập Trình với Excel

Trả lời 24 Đọc 535 Thứ hai lúc 16:19 eagle12 E

Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự

HeSanbi
Thứ bảy lúc 15:41
Xử lý chuỗi ký tự

Trả lời 1 Đọc 164 Thứ hai lúc 10:34 jonythanht J H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel

H_P
Thứ bảy lúc 14:23
Tìm kiếm, dò tìm và tham chiếu

Trả lời 2 Đọc 128 Thứ hai lúc 05:30 DeTong D N Công thức trích xuất riêng các ký tự trong chuỗi họ tên (1 người xem)

Ngựa con 2002
Thứ bảy lúc 23:07
Xử lý chuỗi ký tự

Trả lời 7 Đọc 164 Chủ nhật lúc 18:57 Ngựa con 2002 N Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện

QUANSUNG
Thứ bảy lúc 10:55
Hàm và công thức Excel

Trả lời 2 Đọc 148 Chủ nhật lúc 00:02 dungpham01 D

Cùng xây dựng file Gia Phả

huuthang_bd
30/12/13
Xây dựng ứng dụng.

Trả lời 36 Đọc 21K Thứ bảy lúc 16:15 le_vis L D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc

Dinh Hong Nhung
11/12/25
Hàm và công thức Excel

Trả lời 14 Đọc 816 Thứ bảy lúc 10:43 Cúc Hr C 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

Maika8008 33
thanthanhan 22
dungpham01 19
eagle12 16
ongke0711 16
nguyenanhtruong2409 14
ptm0412 14
Phan Thế Hiệp 13
HUONGHCKT 12
vic_it 11
nhhnam 10
pycckuu410 10
Vũ Hải Sơn 9
HeSanbi 8
dieppk.nb92 8
bsbnhh 7
Gà Con yêu VBA 7
Hana2610 6
duongnhuxuyen 6
Mr.hieudoanxd 5

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

Phan Thế Hiệp 63
Maika8008 26
thanthanhan 18
ongke0711 17
ptm0412 15
HeSanbi 12
dungpham01 11
HUONGHCKT 9
Cúc Hr 8
eagle12 8
dieppk.nb92 6
befaint 5
Mr.hieudoanxd 5
pycckuu410 5
Phuocam 4
nguyenanhtruong2409 4
SA_DQ 4
nhhnam 2
Gà Con yêu VBA 2
huuthang_bd 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ệ