introducir imagen desde formulario de VB a planilla de Excel

[camiluchis]

Necesito completar una ficha en Excel pero utilizando un formulario de Visual.

La ficha de Excel es :

[ATTACH]35900.vB[/ATTACH]

Lo que necesito es que la imagen se coloque en el espacio que quedó combinado entre las celdas A2 y A5, osea, necesito que la imagen quede de ese tamaño.

En la parte del formulario de Visual he hecho esto:

[ATTACH]35901.vB[/ATTACH]

siendo el botón "Examinar" el CommandButton4 (la idea es que al apretarlo abra la base del disco de la computadora y me permita buscar una imagen y seleccionarla) y el botón "Ingresar y Continuar Fichando" el CommandButton1, que al apretarlo tendría que subir la imagen y ubicarla en el espacio antes mencionado, cambiando el tamaño para que quede bien.

Por ahora lo que tengo hecho es esto:

Lo que puse en el módulo1 fue:

Public sFileName As String

y luego en el UserForm puse:

Private Sub CommandButton1_Click()

Hoja1.Range("a1") = TextBox1.Text

Hoja1.Range("d1") = TextBox1.Text

Hoja1.Range("d2") = TextBox2.Text

Hoja1.Range("e3") = TextBox3.Text

Hoja1.Range("d4") = TextBox4.Text

Hoja1.Range("c6") = TextBox5.Text

Hoja1.Range("a2").Select

Hoja1.Pictures.Insert (sFileName).Select

End Sub

Private Sub CommandButton4_Click()

sFileName = Application.GetOpenFilename

Image1.Picture = LoadPicture(sFileName)

End Sub

Agradecería si me pueden decir que es lo que debo modificar u agregar para poder seleccionar el tamaño y la ubicacion exacta.

[Guest Gengis Khan]

Hola:

Sería conveniente que subieras el archivo para poder ver el formulario y la hoja.

Saludos.

[camiluchis]

este sería el ejemplo de lo que tengo hasta ahora, lo que quiero lograr es que la imagen en vez de ponerse en el tamaño real, se ajuste a la medida de la celda A2, por lo menos en cuanto altura, siendo el ancho proporcional

ejemplo.rar

[Guest Gengis Khan]

Hola:

Sustituye tu procedimiento de Aceptar por este:

[COLOR=#008000]Private Sub CommandButton1_Click()[/COLOR]


   Hoja1.Pictures.Insert(sFileName).Select

   With Selection.ShapeRange

     .LockAspectRatio = False        'Permite modificar la imagen

     .Top = Range("A2").Top          'Distancia al borde superior

     .Left = Range("A2").Left        'Distancia al borde izquierdo

     .Height = Range("A2:A5").Height 'Alto de la imagen

     .Width = Range("A2:A5").Width   'Ancho de la imagen

   End With

   Range("A2").Select



[COLOR=#008000]End Sub[/COLOR]



[/CODE]

La imagen se adaptará de forma automática al tamaño del rango "A2:A5".

Saludos

[camiluchis]

me ha saltado error 438 "el objeto no admite esta propiedad o método"

y al depurar me marca:

With Selection.ShapeRange

[Guest Gengis Khan]

Hola:

He vuelto a probar y no tengo problemas.

Te adjunto el archivo.

Saludos

ejemplo GK.xls

[camiluchis]

no sé que pasó pero lo acabo de volver a probar y la primera vez no funcionó pero luego sin modificar nada si lo hizo, calculo que mi vb está loco jajajaja

muchas gracias Gengis Khan, estás siendo de mucha ayuda en la programación de mi programa jajaja

puede darse como solucionado

[gusmario2013]

no se podria hacer, pero que se ingrese la imagen donde yo coloque el cursor o que pregunte donde deseo colocar la imagen.