introducir imagen desde formulario de VB a planilla de Excel
Posted
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.
Featured Replies
Archived
This topic is now archived and is closed to further replies.
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.