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

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Ejecutar la base de datos sin que se muestre el entorno de Access.

Ya he terminado mi base de datos. Ahora quiero abrirla pero que no se vea nada del entorno de Access, ni pestañas. Que el formulario de inicio se vea, por ejemplo, sobre la pantalla del escritorio. Alguien me da el paso a paso
2 respuestas

Generar tres números al azar para una rifa

1. Pregunta Estoy elaborando una aplicación de una rifa y necesito crear una función para llenar una tabla con 3 números generados al azar, ningún número se puede repetir en la tabla, si el vendedor tiene activo el campo juegacuatro se le asignarán...
3 respuestas

Intentando sumar campos moneda de totales en informe de Access.

Estoy tratando de sumar dos campos de sumas totales en un informe de Access y no lo logro. Creo que he agotado todas las variantes. La situación es la siguiente: El informe es para emitir una factura al cliente. A un cliente se les puede hacer mas de...
2 respuestas

Base de datos Access se bloquea al trabajar en simultaneo

En contexto tengo una base de datos donde se ingresan datos en un formulario y este a su vez tiene un subformulario. Al inicio solo era utilizada por un usuario. Pero ahora es usada por 4 usuarios más. Tengo una computadora principal donde tengo la...
3 respuestas

Añadir búsqueda al azar en formularios de Access

Tengo un archivo de Access que quiero modificar y actualizar para añadir nuevas preguntas a una base de datos. He visto que en el formulario hay una casilla como de verificación para seleccionar al azar las preguntas de toda la base de datos pero...
2 respuestas

Como puedo añadir registros desde un formulario de búsqueda a un subformulario de otro formulario de registros de artículos

Tengo un formulario [Entrada_almacen] con un subformulario [Subformulario entradas almacen] en el que quiero que se vallan añadiendo los registros; Código (es un campo calculado), Artículo (combobox, porque también lo puedo seleccionar y si lo hago...
2 respuestas

Suma continua aparece en todos los demás registros

Tengo 2 tablas relacionadas,,,,, la tabla 1 la uso con el formulario principal,,,, la segunda para un subformulario,,,,,, y tango una consulta basada en la tabla 2 Con consulta contiene los campos entrada salida saldo (saldo ya esta con su fórmula...
2 respuestas

Cantidad mayor y menor en campos calculados

Tengo un formulario principal con tres subformularios y cada uno con una serie de campos de tipo numero sin decimales, Campo 1, Campo 2, Campo 3... Todos tienen 1 campo calculado del totales, basado en la suma de todos los campos de cada formulario,...
2 respuestas

Botón búsqueda en formulario Access

Tengo diseñado un formulario sencillo para hacer registro de datos, al dar el botón guardar esta información se va a una tabla, hasta hay normal, pero 1. Esta información no se llena de una vez por ejemplo Se llena del orden de arriba hacia abajo...
5 respuestas