Macro Inserimento immagini

Macro Inserimento immagini
di Simone (utente non iscritto) data: 30/05/2015 15:25:22
ciao a tutti ho un problema con exel devo inserire una serie di immagini in un file di exel prese da una cartella specifica io ho provato questa macro:

ActiveSheet.Pictures.Insert( _
"H:SimoneDittaBee GroupAction Figure11Listino 1image-93.jpg").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 89.2913385827
Selection.ShapeRange.Width = 132.6614173228
Range("A84").Select
ActiveSheet.Pictures.Insert( _
"H:SimoneDittaBee GroupAction Figure11Listino 1image-95.jpg").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 89.2913385827
Selection.ShapeRange.Width = 132.6614173228
Range("A86").Select

come immagine in questa ho messo questo "H:SimoneDittaBee GroupAction Figure11Listino 1image-95.jpg").Select

io pero vorrei creare una macro in cui metto ad esempio "H:SimoneDittaBee GroupAction Figure11Listino 1image-95.jpg").
"H:SimoneDittaBee GroupAction Figure11Listino 1image-96.jpg").
e tutte le immagini seguenti
e poi scelgo in la serie di celle da mettere come ad esempio
Range("A86-A87-A88").Select
senza dover modificare ogni volta scrivere tutto è possibile?
di lepat (utente non iscritto) data: 30/05/2015 16:43:18
allega un file di esempio con i dati ed il risultato desiderato