Mình xem tư vấn được code VBA của file đính kèm. Do trình độ chuyên môn non yếu hèn đề nghị do dự những sửa, ni dựa vào những chưng góp hộ:1. Đưa ảnh hiện nay vào 1 form.2. Tgiỏi thay đổi E8 thì ảnh hiện nay theo3. Tăng tốc độ sở hữu ảnh. (Em sẽ up hình họa vào SkyDrive, lần chần tốc độ cài hình ảnh nghỉ ngơi trang này có đủng đỉnh không?)https://dl.dropboxusernội dung.com/s...puKcjnCv-JWRnSBfa2ieLffKGNZy7w0fUh9hM2nA&dl=1


Bạn đang xem: Chèn ảnh vào excel bằng vba

*

ndu96081631Huyền thoại GPE

3. Tăng vận tốc download hình ảnh. (Em đã up ảnh vào SkyDrive, do dự tốc độ tải hình họa nghỉ ngơi trang này còn có chậm chạp không?)
Trả lời thắc mắc này trước: Vì bắt buộc download hình ảnh từ Internet về máy tính xách tay phải tốc độ lờ đờ là yêu cầu rồi (bao gồm tăng tốc đẳng cấp như thế nào thì vẫn chậm)Vậgiống hệt các bạn không tải về toàn album ảnh về máy vi tính trước (hoàn toàn có thể download thủ công hoặc sử dụng code) rồi hẳn cyếu hình vào bảng tính? Khi ấy hình được rước từ bỏ ổ cứng vẫn nhanh hao hơn(Code dạng này tôi đang viết từ tương đối lâu rồi nhưng mà cũng bởi vì vụ việc vận tốc yêu cầu tôi ko chuyển lên diễn đàn)
*

ndu96081631Huyền thoại GPE

Mình đọc được code VBA của tệp tin đi cùng. Do chuyên môn non yếu hèn cần chần chừ những sửa, nay dựa vào những bác bỏ góp hộ:1. Đưa ảnh hiện tại vào 1 khung.2. Tgiỏi thay đổi E8 thì hình ảnh hiện theo
Trả lời tiếp 2 đề nghị này:1> Để có size hình ảnh, ta vẽ 1 Rectangle, đánh tên đến nó là PicFrame (từ trên đây hình họa sẽ tiến hành chèn vào form này2> Để hình họa đổi khác theo E8, dùng sự khiếu nại WorksheetChange:
Private Sub Worksheet_Change(ByVal Target As Range) Dyên ổn 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 IfEnd Sub
*

Trả lời thắc mắc này trước: Vì cần sở hữu hình ảnh từ bỏ Internet về máy vi tính đề xuất vận tốc chậm là yêu cầu rồi (bao gồm tăng tốc độ hình dáng nào thì vẫn chậm)Vậy chang các bạn không tải về toàn album ảnh về máy tính trước (rất có thể download bằng tay hoặc cần sử dụng code) rồi hẳn chèn hình vào bảng tính? lúc ấy hình được lấy trường đoản cú ổ cứng sẽ nhanh hơn(Code dạng này tôi đang viết từ lâu rồi tuy thế cũng chính vì vụ việc tốc độ đề xuất tôi không đưa lên diễn đàn)
Em cũng đã gặp 1 vài ba file mẫu mà người ta download ảnh vào 1 thư mục. Tuy nhiên em vẫn chọn cách up hình họa lên Internet- Người dùng chỉ copy 1 tệp tin excel là chấm dứt. (Gọn nhẹ)- Em dữ thế chủ động cố gắng ảnh đã up trên Internet nhưng mà ko yêu cầu can thiệp vào file tôi đã gửi đi.
Trả lời tiếp 2 những hiểu biết này:1> Để bao gồm size ảnh, ta vẽ 1 Rectangle, khắc tên mang đến nó là PicFrame (từ bỏ phía trên hình ảnh sẽ tiến hành cyếu vào size này2> Để hình họa biến hóa theo E8, sử dụng sự kiện WorksheetChange:
Private Sub Worksheet_Change(ByVal Target As Range) Dlặng 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 IfEnd Sub
Chân thành cảm ơn chưng. Trước hết bởi vì bác bỏ khôn cùng thân yêu giúp sức và hướng dẫn hồ hết người, tiếp nối bởi code của bác cực kỳ gọn gàng, khôn cùng "trong sáng" cần dễ dàng nắm bắt nhằm tiếp thu kiến thức cùng giải quyết những từng trải không giống. Em trọn vẹn chấp nhận vày chiến thuật của bác
Em đã và đang gặp 1 vài ba tệp tin chủng loại mà họ sở hữu ảnh vào 1 tlỗi mục. Tuy nhiên em vẫn chọn lựa cách up hình họa lên Internet- Người sử dụng chỉ copy 1 tệp tin excel là hoàn thành. (Gọn nhẹ)- Em chủ động chũm hình họa đang up trên Internet mà ko phải can thiệp vào tệp tin mình đã gửi đi.


Xem thêm: Hướng Dẫn Sử Dụng Telegram Trên Máy Tính Nhanh Chóng, Đơn Giản

Đương nhiên giải pháp Upload ảnh lên mạng internet là phù hợp rồi (tôi tất cả nói gì đâu)Ý tôi là: Txuất xắc vì insert hình họa trực tiếp tự internet, ta thêm quy trình download hình ảnh về laptop rồi hẳn insert. Vậy thì tốc độ chắc hẳn rằng sẽ ngon lànhQuy trình tôi đề xuất là nắm này:- Tạo Sub Autoxuất hiện làm cho nhiệm vụ (tức thì từ bỏ lúc khởi cồn file) download toàn tập hình ảnh về đâu đó trên ổ cứng, đông thời đánh tên cho hình ảnh theo đúng mã số- Sub Autoxuất hiện cũng làm cho thêm 1 quy trình nữa là khám nghiệm xem thương hiệu file ảnh đã lâu dài vào ổ cứng tốt chưa ---> Nếu chưa xuất hiện mới tải về. Như vậy giúp sút nhẹ công việc Khi mngơi nghỉ tệp tin lần thứ hai đang không phải download tiếp- Lúc thực thi công đoạn chèn hình ảnh, đã rước hình ảnh từ bỏ ổ cứng cụ vì chưng mang ảnh từ internet- khi chuyển file sang máy tính xách tay khác thì quá trình tải về ảnh sẽ tiến hành triển khai (còn chỉ triển khai 1 lần duy nhất)