Un saluto e grazie fin da ora a chi vorrà dedicare del tempo per aiutarmi a risolvere il mio problema.
Ho creato un pgm vb6 che apre un file excel pre impostato e lo valorizza con dati e immagini. Viene alimentata una lista di articoli di arredamento e relative immagini. Tutto funziona bene fino alla versione di office 2003, poi almeno nelle versioni 2007 e 2013 l'istruzione
Pictures.Insert non è gradita e non riesco ad inserire le immagini. Ho guardato il blog di Diego e da li ho preso spunto dove potevo, ma qualcosa mi sfugge e ignoro.....cosa cambia nello specifico tra le versioni 2003 e successive?
ecco un sunto del codice che ho usato....
Dim oExc As Excel.Application
Dim oWbk As Excel.Workbook
Dim oWsh As Excel.Worksheet
Dim oRng As Excel.Range
' apro excel
Set oExc = New Excel.Application
' apre il file esistente
Set oWbk = oExc.Workbooks.Open(com_nome_file_stampa)
Set oWsh = oWbk.ActiveSheet
oExc.DisplayAlerts = False
oExc.Visible = False
.....
' codice articolo
Set oRng = oWsh.Range("C10")
oRng = codice_articolo
' immagine articolo
oExc.Range("D10").Select
Set oRng = oWsh.Range("D10")
With oExc.ActiveSheet.Pictures.Insert(rs_articoli!indirizzo_immagine)
With .ShapeRange
.LockAspectRatio = True
.Width = 100
.Height = .Width / com_rapp_width_height
End With
.Left = oRng.Left + 3
.Top = oRng.Top + 10
.Placement = 1
.PrintObject = True
End With
ecc.....
ho provato a ridurre all'osso anche l'istruzione di inserimento immagine,
senza dimensionare o posizionare niente ma ho visto che è
Pictures.Insert a non funzionare
Qualche idea?
grazie