Exportar imágenes de forma unitaria con macro

Finalmente he resuelto la pregunta, dejo las dos macros que he creado, como dije anteriormente no domino excel así que si alguien cree mejorable lo que expongo agradecería sus comentarios..

En primer lugar he necesitado "numerar" las celdas donde están las viñetas porque no he encontrado otra forma para que dichos rangos sean reconocidos como "celdas con datos", los conectores no me lo considera "datos"..., para ello lanzo una macro dentro de la macro que exporta las viñetas "numeradas" según un "contador" dispuesto en una casilla a tal fín

Aquí dejo las dos macros, me funcionan perfecto aunque como dije anteriormente, acepto sugerencias de mejora si las hubiera...

Sub numerar_viñetas()

nFilas = Cells(Rows.Count, 1).End(xlUp).Row

nFila = 1
For i = 41 To nFilas + 41
If Cells(i, 1) <> "" Then
Cells(i, 4) = nFila
nFila = nFila + 1
End If
Next
End Sub

Sub Exportar_viñetas()
Application.ScreenUpdating = False
Sheets("ROADBOOK").Select
Call numerar_viñetas
Range("D41").Select
Do While ActiveCell <> ""
If Not IsEmpty(ActiveCell.Value) Then
ActiveCell.Select
With Selection.CopyPicture(xlScreen, xlPicture)
End With
Sheets("hoja2").Select
Range("K1").Value = Range("K1").Value + 1
ActiveSheet.Shapes.AddChart
ActiveSheet.ChartObjects(1).Select
With Selection
Sheets("hoja2").Shapes.Item(1).Line.Visible = msoFalse
Sheets("hoja2").Shapes.Item(1).Width = Range("A1:A5").Width
Sheets("hoja2").Shapes.Item(1).Height = Range("A1:A5").Height
.Chart.Paste
.Chart.Export "E:\pruebas\" & Range("K1").Value & ".jpg"
.Delete
Sheets("ROADBOOK").Select
ActiveCell.Offset(1, 0).Select
End With
End If
Loop
Sheets("hoja2").Select
Range("K1").Value = "0"
Sheets("ROADBOOK").Select
End Sub

Te paso unos ejemplos que te pueden orientar

http://www.programarexcel.com/2014/05/inserta-imagen-en-comentario-de-excel.html

https://youtu.be/TromRjthA_0

http://www.programarexcel.com/2015/02/insertar-foto-o-imagen-centrando.html

https://youtu.be/h7WStepQajo