Visual Basic - Gracias Benjo y pregunta

Gracias benjo por ayudarme con el código para mostrar imágenes en excel, ya logré yo por mi lado extraerlas de la base de datos,
Sabrías como dar un formato fijo a la foto que exporto a excel, he probado grabando macros pero me dice que el ojeto no admite esa propiedad , te dejo un fragmento
xExcel.ActiveSheet.Pictures.Insert (Rst!foto)
xExcel.Selection.Height = 59.25'A PARTIR DE AQUÍ TENGO EL PROBLEMA
Selection.ShapeRange.Width = 59.25
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.IncrementTop 61.5
xExcel.Range("G8").Select
xExcel.ActiveSheet.Pictures.Insert (Rst!logo)
Selection.ShapeRange.Height = 59.25
Selection.ShapeRange.Width = 59.25
Selection.ShapeRange.Rotation = 0#

xExcel.Range("A1").Select
Me.MousePointer = vbDefault
xExcel.Visible = True
Set xExcel = Nothing

End Sub

"Selection.ShapeRange.Width = 59.25
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.IncrementTop 61.5 "

este código lo has sacado seguramente de VBA de Excel y no es del todo correcto.
En excel se sabe que el objeto selection es que el que está actualmente seleccionado, pero en Visual Basic vos debés decirle a que objeto corresponde y a partir de allí utilizarlo.

Selection.ShapeRange.Width = 59.25
Debería ser :
xExcel.Selection.ShapeRange.Width = 59.25

Selection.ShapeRange.Rotation = 0#
Debería ser
xExcel.Selection.ShapeRange.Width = 59.25
y así sucesivamente

Eso sí, antes que esto, e inmediatamente después de insertar la imagen, debés colocar la sentencia que permita seleccionar la imagen
xExcel.ActiveSheet.Pictures.Select

Voilâ

Ya probé el código y funciona perfectamente.