Chuyển chart lên Form

[NewBie2019]

Sory mọi người! khi mình muốn đưa lên đây (xin xem file đính kèm)
nhờ mọi người giúp đỡ cách đưa các biểu đồ động - tương tác, (mỗi biểu đồ có đơn vị trục khác nhau), lên cùng một FORM
Xin chân thành cảm ơn

 

[batman1]

Toàn bộ code trong UserForm

Option Explicit

Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex > -1 Then
        Set Image1.Picture = mod_PicDisp.PictureFromObject(Sheets("Sheet1").ChartObjects(ComboBox1.ListIndex + 1))
    End If
End Sub

Private Sub UserForm_Initialize()
Dim k As Long, arr()
    With Sheets("Sheet1")
        ReDim arr(1 To .ChartObjects.Count, 1 To 1)
        For k = 1 To .ChartObjects.Count
            arr(k, 1) = .ChartObjects(k).Chart.ChartTitle.Text
        Next k
    End With
    Me.ComboBox1.List() = arr
End Sub

 

[NewBie2019]

Xin cám ơn anh Batman1 - Đã thành công