Copy shape và chỉ định vị trí pase (1 người xem)

[daivanhung]

Em chào các bác !!! Chúc các bác ngày mới vui vẻ !!!!
Các bác viết giúp e cái sub thực hiện công việc này nhé:
- Copy hình gốc vào vùng [G7: I14], nhưng phải được căn chỉnh vị trí copy là bên phải vùng [G7: I14]
Em xin trân thành cảm ơn các bác

p/s: Các bác vui lòng tải file excel đính kèm ạ

 

[befaint]

Bác thử đoạn sau nhé.

Sub right_align()
    Sheet1.Shapes("Hinh1").Top = Sheet1.Range("G7:I14").Top
    Sheet1.Shapes("Hinh1").Left = Sheet1.Range("J7").Left - Sheet1.Shapes("Hinh1").Width
End Sub

 

[daivanhung]

Em cảm ơn bác. Em làm được rồi ạ