Me sale error en colocar la imagen adjunto foto

Y necesito la imagen que este acá mira la segunda foto que adjnto, que ocupe lo ancho y largo del margen

1 Respuesta

Respuesta
2

Hay que cargar nuevamente la imagen.

Para eso vamos a almacenar la ruta y el nombre del archivo en la columna Q al momento de guardar los datos:

 'poner foto
    arch = Label19.Caption
    If arch <> "" Then
        If Dir(arch) <> "" Then
            Set fotografia = h.Pictures.Insert(ruta & arch)
            '
            With fotografia
                '.Name = "foto de la imagen"
                .ShapeRange.LockAspectRatio = msoFalse
                .Top = h.Range("P" & fila).Top
                .Left = h.Range("P" & fila).Left
                .Width = h.Range("P" & fila).Width
                .Height = h.Range("P" & fila).Height
            End With
            '
            h.Range("Q" & fila).Value = Label19.Caption
            'eliminamos el objeto
            Set fotografia = Nothing
        End If
    End If

Y para pasar los datos al formato:

Private Sub btncargar_Click()
'Por.Dante Amoe
    If TextBox1.Value = "" Or Not IsNumeric(TextBox1.Value) Then
        MsgBox "Captura un número de informe"
        TextBox1.SetFocus
        Exit Sub
    End If
    '
    num = Val(TextBox1.Value)
    Set h1 = Sheets("BaseDeDatos")
    Set h2 = Sheets("Formato")
    Set b = h1.Columns("A").Find(num, lookat:=xlValue)
    If Not b Is Nothing Then
        'LLENAR FORMATO
        h2.Range("E5").Value = h1.Cells(b.Row, "A").Value 'num informe
        h2.Range("E7").Value = h1.Cells(b.Row, "B").Value 'fecha informe
        h2.Range("E9").Value = h1.Cells(b.Row, "C").Value 'no. aviso
        '
        'continuar con los demás datos
        '
        '
        'Cargar imagen
        arch = h1.Cells(b.Row, "Q").Value
        If arch <> "" Then
            If Dir(arch) <> "" Then
                Set fotografia = h2.Pictures.Insert(arch)
                '
                With fotografia
                    '.Name = "foto de la imagen"
                    .ShapeRange.LockAspectRatio = msoFalse
                    .Top = h2.Range("B45").Top
                    .Left = h2.Range("B45").Left
                    .Width = h2.Range("B45:Q56").Width
                    .Height = h2.Range("B45:Q56").Height
                End With
                'FOTO
                'eliminamos el objeto
                Set fotografia = Nothing
            End If
        End If
        MsgBox "Formato lleno"
    Else
        MsgBox "El número no existe"
        TextBox1.SetFocus
    End If
End Sub

sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Porque se ejecuta alternamente UserForm_Activate ?

A tod@s! Tengo un formulario ProgramarTrabajoEnSemana que al activarse actualiza un listbox del mismo formulario. Desde este ListBox al elegir un registro llamo a otro formulario (emergente) ModificarOTsSemana, con varios campos que puedo modificar....
3 respuestas

Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista. La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor,...
4 respuestas

Averiguar la fecha de el Lunes y el Domingo con el numero de semana en VBA Excel

A tod@s! Si doy el numero de semana del año como puedo averiguar la fecha de esa semana del Lunes y del Domingo. Atentamente: Valerio
3 respuestas

Buscar valor dentro de un rango inicio y fin Excel

Tengo que obtener el valor en función al nombre y rango. Tengo que buscar primero por nombre, si coincide, ahora tengo que validar si el importe esta dentro de uno de esos rangos, y si lo encuentra me debe traer el VALOR.
2 respuestas

Obtener el ancho de una columna Excel

Tengo varias columnas, y lo que quiero es obtener el valor del ancho de cada columna. Ejemplo: COL A - CELDA A1 = 15.5 COLB - CELDA B2 = 14.5 ETC
1 respuesta

Función left en un Rango Variable Macros Excel

Estoy intentando hacer una macro que me permite obtener las primeras 20 letras de una columna en otra. Esto lo hago simplemente con un izquierda(B2, 20) en excel pero ahora quiero hacerlo en Macros. Tengo 2 columnas A Y B.La columna A esta vacía y en...
3 respuestas

Convertir Texto a Número con Decimales

Tengo mis TextBox donde guardo información pero esta la guarda como texto y deseo convertirlos a Números con Decimales ya utilice Val pero me los convierte en Enteros es al momento de guardar el dato y al momento de modificar el dato. Abocándome a...
3 respuestas

Botón siguiente en formulario Excel

Estoy creando un formulario en Excel con varios ejemplos que me he encontrado en varias páginas. La idea es que al momento de hacer doble click en alguna celda de la columna "A", se abra el formulario y se carguen los datos de esa fila en el...
3 respuestas

Modificar macro para que también copie las fórmulas de las celdas

Quisiera que la macro que adjuntare también copie las fórmulas, ya no solo los valores de las celdas, he intentando agregando según lo que investigue en internet: "ws2.Range(celda.Address).Fórmula = celda.Fórmula", pero me da error 1004 Sub...
2 respuestas

Filtrar en Listbox por varios Criterios desde un Combobox.

Expertos, Aclaro, antes que nada, No tengo la experiencia de un experto en vba, fui armando macros según la necesidad de mi trabajo día a día y cada vez gusta mas!. Bien, les comento mi situación: En un formulario al iniciarlo llenamos un Listbox1...
1 respuesta