Gracias de nuevo Bluart, he probado lo que dices pero me salta error "El objeto no admite esta propiedad o código".
He probado a poner el codigo de 3 formas distintas.
Código:
ApExcel.ActiveSheet.Pictures.Insert (Id1_pic_g).Selection.ShapeRange.Left = 0
Código:
ApExcel.ActiveSheet.Pictures.Insert (Id1_pic_g)
Selection.ShapeRange.Left = 0
y
Código:
ApExcel.ActiveSheet.Pictures.Insert (Id1_pic_g)
ApExcel.Selection.ShapeRange.Left = 0
Y nada, no se como solucionarlo, porque en lso tres casos me salta error.