[Hỏi]Điều chỉnh độ dài của Shapes tự động (1 người xem)

[toidjtjmtoi]

Cho mình hỏi cách điều chỉnh độ dài và vị trí của Shapes 1 cách tự động
Ví dụ mình muốn gán độ dài của Shapes
A1=2 thì độ dài từ B1-C1
A1=3 Thì độ dài từ B1-D1
Thanks

 

[tuanhuycntt]

Ý bác là ntn đó hả

Sub test()
    Dim a As Integer
    Dim lshape As String
    Dim b As String
    Dim c As String
    a = ActiveSheet.Range("A1").Value
    lshape = Cells(1, 1).Address
    If a > 2 Then
        For i = 2 To a
            b = Cells(1, i).Address
            lshape = lshape & "+" & b
            Debug.Print lshape
        Next i
    End If
    ActiveSheet.Range("B1").Value = lshape
End Sub

 

[darknightno007]

Ý bác là ntn đó hả

Sub test()
    Dim a As Integer
    Dim lshape As String
    Dim b As String
    Dim c As String
    a = ActiveSheet.Range("A1").Value
    lshape = Cells(1, 1).Address
    If a > 2 Then
        For i = 2 To a
            b = Cells(1, i).Address
            lshape = lshape & "+" & b
            Debug.Print lshape
        Next i
    End If
    ActiveSheet.Range("B1").Value = lshape
End Sub

Thấy chủ topic hỏi cách chỉnh độ dài shape mà. có phải lấy độ dài shape đâu

 

[tuanhuycntt]

Thấy chủ topic hỏi cách chỉnh độ dài shape mà. có phải lấy độ dài shape đâu

Chắc ý chủ topic là ntn.
bạn @toidjtjmtoi tham khảo nhé

Sub test()
    Dim a As Integer
    Dim lshape As String
    a = ActiveSheet.Range("A1").Value
        With Range(Cells(1, 1), Cells(1, a))
            ActiveSheet.Shapes.AddConnector 1, .Left, .Top, .Left + .Width, .Top + .Height
        End With
End Sub