Code chèn ảnh vào vừa trong 1 ô Excel

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài

moihocvba

Thành viên thường trực
Tham gia
16/8/20
Bài viết
211
Được thích
50
Em chào anh chị ạ, em có tham khảo trên mạng được code chèn ảnh vào trong ô Excel, em nhờ anh chị chỉnh giúp em một vài chỗ ạ.

Mã:
Sub insertPhotoMacro()
Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="Select Photo to Insert")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Width = ActiveSheet.Range("A1").Width
.Height = ActiveSheet.Range("A1").Height
.Placement = 1
End With
End Sub

E muốn khi chèn vào thì nó tự động căn giữa ô, và nó sẽ vừa trọn vào ô giống như hình ạ (Đối với hình dọc thì nó chèn vừa chiều cao của ô Excel, còn nếu hình ngang thì nó chèn vừa chiều rộng của ô Excel)

1675353056740.png

Em xin cám ơn anh chị rất nhiều ạ!
 

File đính kèm

  • Chen anh vao o.xlsm
    72.6 KB · Đọc: 13
Lần chỉnh sửa cuối:
Mình mua tài khoản có sẵn trên mạng bán bạn ạ. Bạn vào trang divine shop mua, 100k/tài khoản, ko cần fake IP gì cả, rất ngon ạ!
Bài đã được tự động gộp:


Đúng rồi bạn, mình không tin được nhân loại có thể tạo ra 1 ứng dụng như vậy. Quá siêu!
Bài đã được tự động gộp:


Nó rất tiện lợi khi mình đang bế tắt trong công thức hoặc code vba, tuy nhiên mình phải hiểu để tùy biến lại code và lắp ghép lại thì mới sử dụng được. Tuy nhiên kết quả nó trả về rất tốt và đúng với câu hỏi của mình!
Thử dùng cái Acc free
Nó cũng cho kết quả thế này
 

File đính kèm

  • 66F887C9-F4C0-4CAE-B17E-AAEFFCDD58D6.png
    66F887C9-F4C0-4CAE-B17E-AAEFFCDD58D6.png
    171.4 KB · Đọc: 21
Upvote 0
Web KT

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

Back
Top Bottom