[VB6] Selezionare area in Excel e salvare

[fradipa]

Salve a tutti,
vorrei sapere come faccio (da VB6) a selezionare un'area da un foglio
excel e salvare il contenuto di quest'area in jpg (o gif).
Vi ringrazio

[fradipa]

Ragazzi ho risolto copiando l'intero foglio excel in un power point e salvando come gif! Vi mando il codice che mi ha salvato :


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:\Documento.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:\cartella", ppSaveAsGIF
MYExcel.SendKeys "{TAB}+ {ENTER}"
MYExcel.Quit
Set MYExcel = Nothing
ppt.Quit
Set ppt = Nothing
Unload Me
End Sub

ciao