Hola esta es una rutina para exportar imágenes almacenadas en una base de datos de access a una hoja de excel...

dim objexel as object
dim docexel as object
Set objexel = CreateObject("Excel.Application")
Set docexel = objexel.Workbooks.Add
objexel.Visible = True

rst_excel.Requery ' Es el Recordset
Dim mystream As New ADODB.Stream 'Creamos un stream para almacenar la imagen en variables
mystream.Type = adTypeBinary

Do Until rst_excel.EOF 'leemos el recordset con las imagenes
If Not Combo1.Text = "" Then
If Not IsNull(rst_excel!agencia) And Not rst_excel!agencia = "" Then
If rst_excel!agencia = Combo1.Text Then
With objexel ' creamos la hoja para alojar las imagenes
.sheets.Add ' agrega con Add una nueva hoja en el libro
.ActiveSheet.Select ' La selecciona
.ActiveSheet.Name = rst_excel!agencia ' este nombre se asigna a la hoja
End With
If Not IsNull(rst_excel!img_principal) Then ' si la imagen no esta en blanco
mystream.Open
mystream.Write rst1!img_principal ' escribe la imagen en la variable stream
mystream.SaveToFile App.Path & "\temp1.jpg", adSaveCreateOverWrite ' guardamos la imagen en unestro directorio temporal
mystream.Close ' cerramos el stream
objexel.Worksheets(1).range("A2").Value = "Captura de Pantalla Principal" ' Un titulo para la imagen en Excel
objexel.Worksheets(1).range("A3").Select ' Posicionamos la ubicación para la imágen
objexel.Worksheets(1).pictures.Insert(App.Path & "\temp1.jpg").Select ' importamos la imagen en la hoja de excel
Kill (App.Path & "\temp1.jpg") ' eliminamos la imagen temporal
End If
End If
End If
End If
rst_excel.MoveNext
Loop
Set mystream = Nothing
Set objexel = Nothing
Set docexel = Nothing

Es todo......! ! !