cố định, không thay đổi kích thước, ( fit) độ rộng dòng, cột (1 người xem)

[khanhnth02]

cho tôi hỏi làm sao để cố định, không thay đổi kích thước, ( fit) độ rộng dòng, cột khi tôi sort hoặc di chuyển dòng. giả sử một số ô có hình ảnh và kích thước mỗi dòng khác nhau.
chân thành cảm ơn mọi người đã quan tâm!

 

[HeSanbi]

Bạn chỉ cần nhấn Ctrl+G, tích chọn Object toàn bộ đối tượng ảnh

Trên thanh Ribbon, tab Picture Format, chọn Reset Picture & Size

​

Nhấn chuột phải vào các đối tượng ảnh đã chọn, chọn định dạng đối tượng, tìm đến đánh dấu tùy chọn Lock Aspect ratio

​

​

​

 

[khanhnth02]

khi tôi sort lại mã hàng (cột A) thì hình ảnh cho ra không đủ anh. nghĩa là độ rộng dòng thay đổi sau khi sort nhỉ? Tôi muốn độ rộng của dòng chứa ảnh ban đầu vẫn không thay đổi sau khi sort thì làm cách nào vậy anh

 

[HeSanbi]

Bạn chạy lệnh VBA sau, tạo một Module. Chép mã vào module đó. Và chạy bằng nút F5, hoặc nút Run. Bạn có thể thêm mã Sort vào trong mã bên dưới. Để có mã Sort bạn cần thực hiện Record Macro.

Sub FitRowHeightByHeightPicture()
  On Error Resume Next
  Application.ScreenUpdating = False
  Dim o
  for each o in ActiveSheet.Pictures
    With o.TopLeftCell
        .EntireRow.RowHeight = o.Height + 3 + o.top - .top
    End With
  Next
  Application.ScreenUpdating = true
End Sub