Tamaño y posición de una imagen insertada desde form..

Hola, saludos, mi problema es el siguiente:
Tengo un formulario para el llenado de una tabla en excel, este contiene un control de imagen que se carga mediante un botón.
Dim foto
Private Sub CommandButton1_Click()
'Busca en el directorio el archivo de imagen a cargar, y cargar imagen
foto = Application.GetOpenFilename
Image1.Picture = LoadPicture(foto)
End Sub
Por su parte, la inserción de la imagen en la hoja de cálculo se efectúa al agregar información a la tabla mediante otro botón. El problema esta en la imagen que se inserta ya que aparece en un sitio poco conveniente y no se como enviarla a la celda correspondiente (Columna QUE, desde la fila 6), también sucede que esta imagen (la insertada) conserva su tamaño original el cual quisiera reducir para incluir en la celda señalada.
Private Sub cmdAgregar_Click()
'Agrega nueva información a la base de datos
Sheets("BD_lum").Select
Cells(fila, 1).value = TextBox1
Cells(fila, 2).value = TextBox2
Cells(fila, 3).value = TextBox3
Cells(fila, 4).value = TextBox4
Cells(fila, 5).value = TextBox5
Cells(fila, 6).value = TextBox6
Cells(fila, 7).value = TextBox7
Cells(fila, 8).value = TextBox10
Cells(fila, 9).value = TextBox8
Cells(fila, 10).value = TextBox9
'Se selecciona la celda donde deba ser ubicada la imagen
ActiveSheet.Cells(fila, 11).Select
ActiveSheet.Pictures.Insert foto
cmdCancelar
End Sub
Cualquier idea o solución que pudieses aportar seria de gran ayuda, gracias de antemano

1 respuesta

Respuesta
1
Ojalá que lo siguiente te ayude:
En tu botón agregar debes incluir algunas cosas como:
'------------
Sheets("tuhoja").Select
Cells(fila, 1).Value = TextBox1
Cells(fila, 2).Value = TextBox2
Cells(fila, 3).Value = TextBox3
Cells(fila, 4).Value = TextBox4
Cells(fila, 5).Value = TextBox5
Cells(fila, 6).Value = TextBox6
Cells(fila, 7).Value = TextBox7
Cells(fila, 8).Value = TextBox10
Cells(fila, 9).Value = TextBox8
Cells(fila, 10).Value = TextBox9
'seleccionar la foto
ActiveSheet.Pictures.Insert(foto).Select
'seleccionar la fila y columna
ActiveSheet.Cells(fila_en_la_cual_va_estar_tu_foto, col_en_la_cual_va_estar_tu_foto ).Select
'definir los altos,bajos, etc
Dim top, izq, alto, ancho
top = Range("celda"). Top ' o cuanto debe ser tu margen top
izq = Range("celda"). Left ' o cuanto debe ser tu margen izq
alto = Range("celda"). Height 'o cuanto debe ser tu alto de imagen
ancho = Range("celda"). Width 'o cuanto debe ser tu ancho de imagen
'aqui le damos los parámetros
Selection.ShapeRange.top = tope
Selection.ShapeRange.Left = izq
Selection.ShapeRange.Height = alto
Selection.ShapeRange.Width = ancho
'---------------------------
Espero que te haya sido de ayuda,
saludos
Hola, gracias por tu excelente sugerencia, use un código bastante parecido basado en el que me enviaste y hasta el momento ha trabajado bien, aun falta una parte y espero seguir contanto con tu ayuda. A continuación te envío el código que estoy usando:
Dim Foto
Dim fila, Tope, izq, as Integer
Private Sub cmdAgregar_Click()
'--------
Sheets("BD_lum").Select
Cells(fila, 1).value = TextBox1
Cells(fila, 2).value = TextBox2
Cells(fila, 3).value = TextBox3
Cells(fila, 4).value = TextBox4
Cells(fila, 5).value = TextBox5
Cells(fila, 6).value = TextBox6
Cells(fila, 7).value = TextBox7
Cells(fila, 8).value = TextBox10
Cells(fila, 9).value = TextBox8
Cells(fila, 10).value = TextBox9
Cells(fila, 11).Select
'Seleccionar la foto
ActiveSheet.Pictures.Insert(Foto).Select
'Se ubica la imagen en la posición de la celda activa
Tope = ActiveCell.top
izq = ActiveCell.Left
Selection.ShapeRange.top = Tope
Selection.ShapeRange.Left = izq
'Parámetros
Selection.ShapeRange.Height = 400
Selection.ShapeRange.Width = 90
cmdCancelar
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Trabajando por primera vez con código vba en formulario de Access.

Estoy aplicando con ayuda de otras personas un código vba a un formulario y a pesar de todo no me funciona como lo esperaba. ¿Alguien en esta plataforma que por favor me revise esta tarea y oriente al respecto?
1 respuesta

Trabajando con formato condicional en formularios de Access.

Estoy construyendo una base de datos en Access. Tengo un formulario principal ¨SERVICIOS¨ que contiene un primer subformulario ¨ETAPAS¨ y un segundo subformulario¨VENTAS¨ (intenté subir la imagen pero no funciona esta opción de la plataforma) Lo que...
5 respuestas

Como puedo hacer para Exportar un informe de Access a PDF añadiendo fecha y la hora actual del Pc

Tengo este código, pero no tiene la fecha y la hora ¿Cómo hago? Sería Algo así cuando guarda: Test 2023-07-06 15:21.PDF Private Sub Comando1172_Click() Dim strUserName As String, strPath As String strPath = "C:\Users\usuario\Documents\test.pdf"...
2 respuestas

Access código para copiar a tabla grupo de opciones

Tengo un formulario independiente con campos independientes. Uno de esos campos es un marco (grupo de opciones) que código podre utilizar para al dar click en el botón guardar me envíe los datos a la tabla específicamente lo que se escogió el el...
2 respuestas

Diferencias entre fechas devuelva año mes días

Tengo en un campo del formulario esto =DifFecha("d";[Formularios]![coches mantenimientos]![AÑO];[FECHA]), me devuelve correctamente los días entre las fechas, pero yo quería en vez de días me dijera La diferencia en años, meses y días.
2 respuestas

Encontrar repetidos en varias columnas

Tengo una tabla que contiene 10 columnas, que he importado de Excel: Nro1, nro2, nro3, nro4, nro5, nro6, nro7, nro8, nro9, nro10. Contienen números tipo texto, por ejemplo. Nro1 nro2 nro3 nro4,..., nro10 0005 4578 1247 1326,... 2147 1247 4587 0035...
1 respuesta

Abrir formulario para pagar con una tecla

Necesito saber si se puede tengo un formulario y subformulario de Ventas2 y DetalleVenta en ventas2 tengo un campo METODO_PAGO el cual el enfoque para cuando termine en detalleventa la selección de productos aplaste una tecla por ejemplo esc y salga...
2 respuestas

Copia de seguridad BD completa Access

Quiero saber si es posible mediante un botón en un formulario en Access crear una copia de seguridad de TODA la base de datos en una unidad USB al pulsar el botón. La unidad está en la ruta: D:\14gb\ Cuando digo TODA la BD son tablas, consultas, etc..
2 respuestas

Indices en tablas

Tengo 8 tablas dentro de la base de datos, y todas tiene en común el mismo campo, exactamente no se como relacionar todas las tablas es decir en que campo relacionarlas, si de una a muchos o todas contra todas, ademas no se si colocarles un indice a...
3 respuestas

Como pasar una importaciones guardada en Access a vba

Estoy trabajando con datos que provienen desde una base de datos de SQL server, hago los pasos de importación y los guardo en importaciones guardadas, funciona de maravilla, pero cuando no hay conectividad con el servidor falla, ya que previa a la...
2 respuestas