Di chuyển shape trên chart. (1 người xem)

[chua123]

Các bác giúp dùm em với, xem dùm em trong file đính kèm nhà. EM cám ơn các bác trước.

 

[dhn46]

Vui vui 1 chút với bài của bạn.
Tôi viết Code bạn tùy biến theo nhu cầu.

Sub MoveShape()
    Dim cL As Double    'Chart Left
    Dim cT As Double    'Chart Top
    Dim cH As Double    'Chart Height
    Dim fPl As Double   'Full Series (1) Point Left
    Dim fPh As Double   'Full Series (1) Point Height
    Dim fPw As Double   'Full Series (1) Point Width
    Dim fPli As Double   'Series(i) Point Left
    Dim fPhi As Double   'Series(i) Point Height
    Dim Ar As String    'Arrow name
    With ActiveSheet.ChartObjects("ExChart")
        .Activate
        cL = .Left
        cT = .Top
        cH = .Height
    End With
    'Cot dau tien bieu do - Align Left Shape
    With ActiveChart.FullSeriesCollection(1).Points(1)
        fPl = .Left
        fPw = .Width
        fPh = .Height
    End With
    For i = 2 To 6  '6 Series
        fPli = ActiveChart.FullSeriesCollection(1).Points(i).Left
        fPhi = ActiveChart.FullSeriesCollection(1).Points(i).Height
        Ar = "Arrow" & i
        With ActiveSheet.Shapes(Ar)
            .Width = fPli - fPl - fPw
            .Left = fPl + fPw + cL + 4
            .Top = cT + cH - fPhi - .Height * 3 / 2 + 1
            .TextFrame2.TextRange.Characters.Text = Format(fPhi / fPh, "0%")
        End With
    Next
End Sub

 

[chua123]

Em cám ơn bác nhiều nhiều nha.

 

[chua123]

Bác cho em hỏi thêm, em làm cho 1 chart thì được, nhưng trên sheet của em có 5 chart, copy code va chinh sua, nó bị sai (từ chart 2 tro di) ở width và top như bên dưới, bác giải thích giùm em các biến với. Cám ơn bác nhiều.

With ActiveSheet.Shapes(Ar)
.Width = fPli - fPl - fPw - 180
.Top = cT + cH - fPhi - .Height
....

 

[dhn46]

Tôi đã chú thích cặn kẽ từng biến tại khâu khai báo. Bạn không hiểu được khai báo?

Bạn Post file bạn làm không được lên đây tôi sẽ chỉ cho bạn cái chưa phù hợp mà chỉnh.

 

[chua123]

Tôi đã chú thích cặn kẽ từng biến tại khâu khai báo. Bạn không hiểu được khai báo?

Bạn Post file bạn làm không được lên đây tôi sẽ chỉ cho bạn cái chưa phù hợp mà chỉnh.

em da tu xu dc roi, cam on bac nhieu (em tu mo hoc nen co nhieu cai khong biet)