Chèn Ảnh tự động vào file excel

[danghongquang]

hj hj thật không biết nói gì. Cảm ơn bạn đã giúp. mình đã làm nhưng chỉ phần bên phải co lại còn phần bên trái vẫn đè lên khung. mình chụp lại ảnh để bạn xem. Liệu có chỉnh sửa được lại được tốt hơn không. và cái mũi tên có ẩn được đi không vậy bạn?

[thichduthu]

hj hj thật không biết nói gì. Cảm ơn bạn đã giúp. mình đã làm nhưng chỉ phần bên phải co lại còn phần bên trái vẫn đè lên khung. mình chụp lại ảnh để bạn xem. Liệu có chỉnh sửa được lại được tốt hơn không. và cái mũi tên có ẩn được đi không vậy bạn?

Bạn điều chỉnh kích thước cột A:C và D:F cho bằng nhau và điều chỉnh kích thước cao ( height-194 ) , rộng ( width -257) trong code cho phù hợp. Trước đó bạn xóa hết ảnh rồi format lại border và cho nét đậm, sau đó kích hoạt để code chèn ảnh lại .

[irissnss]

Có vấn đề này mình xin hỏi bạn lần nữa. File chèn ảnh bạn gửi cho mình ok lắm rùi nhưng còn một vấn đề nhỏ là hình chèn vào khung hơi lớn một chút. Dẫn đến khi mình in ra hình ảnh che mất dòng kẻ của khung, nhìn không được đẹp cho lắm. Nếu chỉnh được chỉnh giúp mình hình nhỏ đi chút để nằm gọn trong khung định sẵn nhé. Chân thành cảm ơn.

[phongkhamkt1]

Có vấn đề này mình xin hỏi bạn lần nữa. File chèn ảnh bạn gửi cho mình ok lắm rùi nhưng còn một vấn đề nhỏ là hình chèn vào khung hơi lớn một chút. Dẫn đến khi mình in ra hình ảnh che mất dòng kẻ của khung, nhìn không được đẹp cho lắm. Nếu chỉnh được chỉnh giúp mình hình nhỏ đi chút để nằm gọn trong khung định sẵn nhé. Chân thành cảm ơn.

Bạn mở code tìm và thay đoạn code sau xem sao :
With comm.Shape
.LockAspectRatio = msoFalse
.Placement = xlCenter
.Shadow.Visible = msoFalse
.Line.Visible = msoFalse
.AutoShapeType = msoShapeRectangle
.Left = mRng.Left: .Top = mRng.Top
.Width = 257: .Height = 194
.Fill.UserPicture Pic
End With