Per stampare ho creato un foglio di EXCEL

Apro il foglio

Dim appExcel As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet
Set cartExcel = Excel.Workbooks.Open(App.Path & "\Scheda2.xls")
appExcel.Visible = True

Inserisco i vari dati da VB

Ora devo inserire una immagine

Range("B4").Select
"H:\Documenti\Database\Vari\Palestra\Immagini\Foto 8.jpg").Select

Questo link è di prova, successivamente il link verrà estratto da un DB

Ora questa immagine la devo ridimensionare.

Sapete dirmi il codice per impostare le dimensioni????


Ciao e grazieeeeeee