Hi I have 1 workbook which contains 4 sheets. Each sheet has 2 charts and I
want all that charts in each sheet to copy them or export them to powerpoint.
I want to do that by VBA Excel Code. I already have my code for opening the
specific ppt file. But I cannot transfer/copy/export the charts. Is there any
help please?
I put my code for opening the ppt file.

Sub openppt()
Dim Brocoli As Object
Dim Potato As Object
Dim carot As String

carot = "C:\Test\THIS IS A TEST.ppt"

Set Brocoli = CreateObject("powerpoint.Application")
Brocoli.Visible = True
Set Potato = Brocoli.Presentations.Open(Filename:=carot)
Call copycharts

End Sub