UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Invitado


Invitado
Buenas tardes.
Me interesaría poder cambiar este concepto, si se puede:
imagen = "G:\Fotos Pedidos\" & img & ".jpg"
por algo asi:
imagen = "G:\Fotos Pedidos\" & img & ".jpg" ".gif"
O, sin especificar, el modelo de fotografía, y solamente el nombre.
Creo que es pedir demasiado.
Un saludo

tyno


Hola Luis. 
Prueba con esto:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Union(Target, [E4:E700]).Address = [E4:E700].Address Then
If Target <> "" Then
Application.ScreenUpdating = False
ActiveSheet.Pictures.Delete
For a = 4 To 700
If Cells(a, 5) <> "Modelo" Then
If Cells(a, 5) <> "" Then
img = Cells(a, 5)
img_jpg = "G:\Fotos Pedidos\" & img & ".jpg"
img_gif = "G:\Fotos Pedidos\" & img & ".gif"
Set etiqueta = ActiveSheet.Pictures.Insert(img_jpg)
If Err.Number = 1004 Then Set etiqueta = ActiveSheet.Pictures.Insert(img_gif)
izq = 2 - Cells(a, 4).Column
With etiqueta
    .Left = Cells(a, 5).Offset(0, 4 - Cells(a, 5).Column).Left 'posicion izquierda
    .Top = Cells(a, 5).Top 'posicion altura
    .Width = 35 'ancho imagen
    .Height = 50 'alto imagen
End With
End If
End If
Err.Number = 0
Next a
Application.ScreenUpdating = True
End If
End If
End Sub



Última edición por tyno el 28/03/14, 05:30 pm, editado 2 veces

Invitado


Invitado
Que amable eres contestándome.
Con lo que me mandaste no sale ninguna foto.
Te mando el archivo.
Un saludo
Archivos
PRUEBA.xlsb
(72 KB)

tyno


Disculpa, deje la ruta de imagen que utilicé en mi PC, ahí modifiqué mi respuesta anterior, a ver si ahora funciona.

Invitado


Invitado
No entiendo lo de la ruta de tu PC.
Un saludo

Invitado


Invitado
Ahora te entiendo, rectificaste el anterior mensaje, pero de todas formas no funciona, me corre las fotos anteriores grabadas, y si borro el gif, se vuelven a poner bien.
Un saludo mayor.

tyno


A ver ahora, copia de nuevo el código y prueba

Invitado


Invitado
Impresionante, eres único, FABULOSO.
Que Dios te bendiga

Invitado


Invitado
Tema totalmente RESUELTO.
Mayor rapidez imposible, IMPRESIONANTE
Un saludo

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.