Edit Comment (1 người xem)

[dinhphuong9327]

Thân chào các Anh Chị GPE,

Mong các Anh Chị và các bạn hướng dẫn giúp cách làm cho Picture trong comment luôn hiển thị vừa với kích thước của ô chứa nó (Tự động thay đổi kích thước khi kích thước Cell thay đổi).

Em xin cám ơn

 

[dhn46]

Để chỉnh kích thước thì bạn áp dụng code dạng

    Range("B4").Comment.Shape.Height = [B4].Height
    Range("B4").Comment.Shape.Width = [B4].Width

 

[dinhphuong9327]

Cám ơn DHN46

DHN46 có thể hướng dẫn rõ được không? mình còn gà mờ về VBA lắm, mong bạn chỉ giáo thêm. Mình muốn tất cả các đối tượng comment đều tự động thay đổi kích thước phù hợp với ô chứa nó.

Cám ơn nhiều.

 

[dhn46]

Code dạng như thế này bạn nhé, bạn tùy biến.

Sub GPE()
Dim cls As Range
For Each cls In [B3:B5]
    cls.Comment.Shape.Top = cls.Top
    cls.Comment.Shape.Left = cls.Left
    cls.Comment.Shape.Height = cls.Height
    cls.Comment.Shape.Width = cls.Width
Next
End Sub