Sửa code CHÈN HÌNH để chạy được với merge cells

[vuongtoituonglai]

Chào các anh, chị và các bạn GPE.
Tôi có 1 file excel khi Merge các cell theo cột thì code chạy đươc, Merge cell theo hàng không chạy được nhờ các anh chị và các bạn xem giùm
Nhờ các anh chị và các bạn chỉnh giùm tôi hình nằm gọng trong phần tô màu vàng.
Cảm ơn

 

[MuaBuiRoi]

Chào các anh, chị và các bạn GPE.
Tôi có 1 file excel khi Merge các cell theo cột thì code chạy đươc, Merge cell theo hàng không chạy được nhờ các anh chị và các bạn xem giùm
Nhờ các anh chị và các bạn chỉnh giùm tôi hình nằm gọng trong phần tô màu vàng.
Cảm ơn

tìm dòng này, sửa thành

Set pic = cell_.Parent.Shapes.AddPicture(mPath & fullName, _
            msoFalse, msoTrue, cell_.Left, cell_.Top, cell_.Resize(, 2).Width, cell_[COLOR=#ff0000][B].Resize(4)[/B][/COLOR].Height)

thêm phần chữ đỏ đó bạn,
thử lại nhé, vì không có ảnh để thử cho bạn
Nhưng thế này co giãn có thể hình sai tỷ lệ ngang dọc nghe