Visual Basic - PEGAR IMAGEN EN EXCEL DESDE VB

Hola Amigos:

Necesito pegar una imagen en excel desde visual, normalmente utilizo la opcion de crear macro en excel, y luego copio y ajusto el codigo en vb.

Trate de hacer lo mismo, con la opcion: INSERTA IMAGEN en excel, pero no aparece nada en el editor de macros de excel.

Gracias de antemano.

encontre esto en internet, ojala te sirva

Sub V4E()
'
Dim DataPath As String
Dim PicturePath As String

'Import the data
DataPath = "C:Documents and SettingssosalEscritorio emplates" + Hoja1.ComboBox1 + ".dat"
PicturePath = "C:Documents and SettingssosalEscritorio emplates" + Hoja1.ComboBox1 + ".wmf"

'Imports the image
Range("A35").Select
Sheets(1).Pictures.Insert(PicturePath).Select

'Position the image
Sheets(1).DrawingObjects(1).Left = 5
Sheets(1).DrawingObjects(1).Top = 275

'Image is passed in ClipBoard as Exteneded MetaFile
' Width and Height need to be in points (1/72in) so:

perdon me falto lo siguiente

Sub V4E()
'
Dim DataPath As String
Dim PicturePath As String

'Import the data
DataPath = "C:Documents and SettingssosalEscritorio emplates" + Hoja1.ComboBox1 + ".dat"
PicturePath = "C:Documents and SettingssosalEscritorio emplates" + Hoja1.ComboBox1 + ".wmf"

'Imports the image
Range("A35").Select
Sheets(1).Pictures.Insert(PicturePath).Select

'Position the image
Sheets(1).DrawingObjects(1).Left = 5
Sheets(1).DrawingObjects(1).Top = 275

'Image is passed in ClipBoard as Exteneded MetaFile
' Width and Height need to be in points (1/72in) so:

Selection.ShapeRange.ScaleWidth 1.05, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.22, msoFalse, msoScaleFromTopLeft

End Sub

JUAN CARLOS, muchas gracias, voy a probar este codigo.