Tạo Shape Line trong VBA (1 người xem)

[phuvacgach]

Dear các anh chị,
Em đang cần vẽ một Shapes kiểu như trong file bằng VBA.
Mọi người ai biết chỉ giúp em vs nhé.
Em cảm ơn nhiều.

 

[hungpecc1]

Dear các anh chị,
Em đang cần vẽ một Shapes kiểu như trong file bằng VBA.
Mọi người ai biết chỉ giúp em vs nhé.
Em cảm ơn nhiều.

Bạn tham khảo link bên dưới ( rồi tùy biến theo shapes của mình ) :

http://www.giaiphapexcel.com/forum/...-line-dạng-shape-tại-một-ô-bất-kỳ-trong-excel

 

[phuvacgach]

Bạn tham khảo link bên dưới ( rồi tùy biến theo shapes của mình ) :

http://www.giaiphapexcel.com/forum/...-line-dạng-shape-tại-một-ô-bất-kỳ-trong-excel

Oh, nhưng mà em không thể tìm nổi cái shape kia nó lấy ở đâu ra để mà vẽ rồi record macro.

 

[hungpecc1]

Oh, nhưng mà em không thể tìm nổi cái shape kia nó lấy ở đâu ra để mà vẽ rồi record macro.

bạn đã xem giải đáp của pác ndu chưa ?

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

Bạn xác định các tọa độ tại các điểm của đoạn thẳng , rồi nhập vào thôi

ví dụ :

ActiveSheet.Shapes.AddConnector 1, 50, 50, 50, 150

sẽ vẽ được 1 đoạn line thẳng

 

[Quang_Hải]

Oh, nhưng mà em không thể tìm nổi cái shape kia nó lấy ở đâu ra để mà vẽ rồi record macro.

Bạn thử thế này rồi thêm từng cặp lệnh vào đến khi vừa ý

Sub Ve_hinh()
    With ActiveSheet.Shapes.BuildFreeform(1, 289, 30)
      .AddNodes 1, 1, 289, 75
      .AddNodes 1, 1, 190, 82
      .AddNodes 1, 1, 289, 90
      .AddNodes 1, 1, 289, 120
      .AddNodes 1, 1, 450, 128
      .AddNodes 1, 1, 289, 135
      .AddNodes 1, 1, 289, 180
      .AddNodes 1, 1, 140, 188
      .AddNodes 1, 1, 289, 195
      .ConvertToShape
    End With
End Sub

 

[phuvacgach]

cảm ơn các bác rất nhiều.