Gửi Tin Nhắn Cho Admin

Thứ Ba, 5 tháng 9, 2017

Chèn Hình Ảnh Tự Động vào Excel bằng VBA

Phạm Minh Tùng  /  at  9/05/2017 09:35:00 SA  /  7 comments

- Để chèn hình ảnh vào trong excel các bạn chuẩn bị 1 thư mục chứa các hình ảnh cần thiết, và 1 file excel cần chèn hình ảnh, sau đó xem video bên dưới để thực hiện.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row = 1 Then Exit Sub
On Error GoTo Err_
Target(, 2).Worksheet.Shapes(Target.Address).Delete
Err_:
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Target.Value & ".jpg")
    .Name = Target.Address
    .Top = Target.Top
    .Left = Target(, 2).Left
    .ShapeRange.LockAspectRatio = msoFalse
    .ShapeRange.Height = Target.Height
    .ShapeRange.Width = Target(, 2).Width
End With
Target.Offset(1, 0).Select
End Sub

Nếu Các bạn muốn copy một hình có sẵn trên sheet khác thì có thể copy code bên dưới nhé, và xem video mình họa, ở đây sheet dữ liệu là sheet2, nếu các bạn đặt ở sheet khác thì có thế thay đổi cho phù hợp
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row = 1 Then Exit Sub
On Error Resume Next
Target(, 2).Worksheet.Shapes(Target.Address).Delete
On Error GoTo Thoat
With Sheet2
    .Shapes(.Range("data").Find(Target.Value, , xlValues, xlWhole).Value).CopyPicture
End With
ActiveSheet.PasteSpecial
With Selection
    .Name = Target.Address
    .Top = Target.Top
    .Left = Target(, 2).Left
    .ShapeRange.LockAspectRatio = msoFalse
    .ShapeRange.Height = Target.Height
    .ShapeRange.Width = Target(, 2).Width
End With
Thoat:
Target.Offset(1, 0).Select
End Sub

Share
Posted in: , Posted on: Thứ Ba, 5 tháng 9, 2017

7 nhận xét:

  1. anh ơi video sao ko có tiếng vậy anh!

    Trả lờiXóa
  2. cảm ơn bạn nhiều lắm..đúng cái mình cần mà ko biết cách làm

    Trả lờiXóa
  3. Không có anh báo lỗi, có cách nào đưa ra thông báo và tiếp tục chạy được không bạn. Tư vấn giúp mình nhé.

    Trả lờiXóa
  4. Bạn ơi làm sao để khi xuất file PDF để ảnh không có viền bao ngoài nhỉ? Với có cách nào khi chưa gõ mã ảnh vào Excel không báo lỗi với. Hoặc có thể giúp mình khi chưa có mã ảnh sẽ tự động chèn 1 bức ảnh mặc định nào đó do mình cài vào để không báo lỗi nữa

    Trả lờiXóa
  5. cái này mình có thể đặt tên ảnh ở vị trí bất ký và ảnh ở vị trí bất kỳ không ah. Xin chỉ giáo giúp

    Trả lờiXóa
  6. cái này mình có thể đặt tên ảnh ở vị trí bất ký và ảnh ở vị trí bất kỳ không ah. Xin chỉ giáo giúp

    Trả lờiXóa
  7. Nếu trong cùng 1 sheet, mình muốn có 2 cột tên ảnh, sẽ tạo ra 2 cột hình ảnh thì sao ad ơi

    Trả lờiXóa

Recent Comments

Copyright © 2013 Excel Toàn Tập. WP Theme-junkie converted by Bloggertheme9
Blogger templates. Proudly Powered by Blogger.