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ỗ ạ.
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)
Em xin cám ơn anh chị rất nhiều ạ!
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)
Em xin cám ơn anh chị rất nhiều ạ!
File đính kèm
Lần chỉnh sửa cuối: