Copy Chart từ excel lên PowerPoint

[hadoan-pap]

Em chào mọi người.

Em có đoạn code copy chart từ excel lên slide PPT, vì khi copy chart lên em muốn chuột phải vào chart để link và chỉnh sửa dc dữ lieu đến excel.

Nhưng trong đoạn code khi em chạy thì nó xuất hiện thông báo lỗi.... e cũng đã google thử tìm cách khắc phục nhưng chưa được ạ.

Rất mong nhận được sự giúp đỡ của mọi người.

Em xin cảm ơn!

 

[hadoan-pap]

Có ai k ạ ?

 

[hadoan-pap]

Cảm ơn mọi người, e mới tìm dc cách rồi ạ.

Dim oPPTApp As PowerPoint.Application
Dim oPPTFile As PowerPoint.Presentation
Dim oPPTShape As PowerPoint.Shape
Dim oPPTSlide As PowerPoint.Slide
Dim Rng1

Set oPPTApp = New PowerPoint.Application
oPPTApp.Visible = msoCTrue

Set Rng1 = Application.Worksheets("Make Chart").ChartObjects("Chart 18")
Rng1.Copy

Set oPPTFile = oPPTApp.Presentations.Open("File")
Set oPPTSlide = oPPTFile.Slides(2)

For i = 1 To 5000: DoEvents: Next
oPPTSlide.Select
For i = 1 To 5000: DoEvents: Next
oPPTApp.CommandBars.ExecuteMso "PasteSourceFormatting"
oPPTApp.CommandBars.ReleaseFocus
For i = 1 To 5000: DoEvents: Next

With oPPTApp.ActiveWindow.Selection.ShapeRange
.Left = 0
.Top = 0
.Width = 720
End With

oPPTFile.Save
oPPTFile.Close
oPPTApp.Quit
Set oPPTApp = Nothing