Ecco il codice (considera che c'è un cilclo esterno, per cui la routine viene iterata) :


Private Sub Form_Load()
Dim MYExcel As New Excel.Application
Dim Myrange As Excel.Range
Dim Mysheet As Excel.Worksheet

Dim ppt As New PowerPoint.Application

Set MYExcel = New Excel.Application
Set ppt = New PowerPoint.Application

MYExcel.Workbooks.Open "D:\Doc\Applicazioni Au\Sviluppo Grafico Sito\Doc\CALABRIA_prova.xls"
Set Mysheet = MYExcel.ActiveWorkbook.Sheets("foglio3")

Mysheet.Select
Mysheet.Copy
Set Myrange = Mysheet.Cells
Myrange.Copy
ppt.Activate
ppt.Presentations.Add
ppt.ActivePresentation.Slides.Add 1, ppLayoutBlank
ppt.ActivePresentation.Slides.Item(1).Shapes.Paste

ppt.ActivePresentation.SaveAs "D:\Acquisti\pippa", ppSaveAsGIF
'ppt.ActivePresentation.SaveAs "D:\Acquisti\" + "'" & zonars & "'" + "'" & mydata & "'""", ppSaveAsGIF
MYExcel.SendKeys "{TAB}+ {ENTER}"

MYExcel.Quit
Set MYExcel = Nothing
'ppt.ActivePresentation.Close
ppt.Quit
Set ppt = Nothing
Unload Me
End Sub


grazie