Vẽ đường line dạng shape tại một ô bất kỳ trong excel (3 người xem)

[hungpecc1]

Các pác trong GPE có thể gợi ý cho e viết code : nội dung như sau
- Nhập địa chỉ 1 ô bất kỳ trong excel
- chạy code và tại ô vừa nhập sẽ vẽ 1 đường line nằm ngang dạng shape

Em không rành về đối tượng shape nên khó xử lý quá

 

[ndu96081631]

Các pác trong GPE có thể gợi ý cho e viết code : nội dung như sau
- Nhập địa chỉ 1 ô bất kỳ trong excel
- chạy code và tại ô vừa nhập sẽ vẽ 1 đường line nằm ngang dạng shape

Em không rành về đối tượng shape nên khó xử lý quá

Bạn record macro quá trình vẽ line bằng tay là có ngay code chứ gì
Sau khi có đoạn code cơ bản, chỉnh lại giá trị Left, Top, With, Heigh cho nó lọt đúng vị trí cell bạn cần là được rồi

 

[hungpecc1]

Bạn record macro quá trình vẽ line bằng tay là có ngay code chứ gì

expression.AddConnector(Type, BeginX, BeginY, EndX, EndY)

nhưng mà làm sao xác định được giá trị X,Y tại một ô bất kỳ trong cell ?

bác có thể gợi ý thêm đc không ?

 

[ndu96081631]

expression.AddConnector(Type, BeginX, BeginY, EndX, EndY)

nhưng mà làm sao xác định được giá trị X,Y tại một ô bất kỳ trong cell ?

bác có thể gợi ý thêm đc không ?

- Vị trí BeginX tại rCel là rCel.Left
- Vị trí BeginY tại rCel là rCel.Top
- Vị trí EndX tại rCel là rCel.Left + rCel.Width
- Vị trí EndY tại rCel là rCel.Top + rCel.Height
Ví dụ:

Sub Test()
  With Range("C7") ''<--- Đây là cell mà bạn muốn chèn line
   ActiveSheet.Shapes.AddConnector 1, .Left, .Top, .Left + .Width, .Top + .Height
  End With
End Sub