introducir imagen desde formulario de VB a planilla de Excel
publicado
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
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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.