que traiga las imagenes de otra carpeta externa ActiveWorkbook.Path & "\"

2 envíos / 0 nuevos
Último envío
tetorin
Imagen de tetorin
Offline
última acción: Hace 1 año 5 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 26/05/2011 - 02:57
Puntos: 3262
que traiga las imagenes de otra carpeta externa ActiveWorkbook.Path & "\"

buen Dia

espero me puedan ayudar en esta parte del codigo

RutaImagen = ActiveWorkbook.Path & "\"

me trae las imagenes de de la misma carpeta en donde tengo la macro y si funciona bien

pero quisiera que me las tome de otra ruta distinta

pero le pongo la ruta y no me trae nada

me pueden orientar que tengo que hacer ya que no me manda error pero no me trae nada

 

gracias y

saludos....

 

************************************************************************************

Private Sub ComboBox1_Change()
Sheets("ON_ROLl").Unprotect Password:="123"
'declaración de variables
Dim RutaImagen As String 'variable que contiene la ruta donde está la imagen
Dim MarcaModelo As String 'a esta variable se le asignará
'el modelo que se selecciona del ComboBox1
Dim idBusca As String 'busca una coincidencia con MarcaModelo
Dim fila As Integer 'variable que comienza en 1 y se incrementa
'hasta que haya coincidencia con MarcaModelo e idBusca
'se elimina el parpadeo de la pantalla

Application.ScreenUpdating = False

Sheets("ON_ROLL").Select
Range("A2").Select

fila = 1
MarcaModelo = ComboBox1
'se entra en un ciclo Do-While-Loop del que se sale si hay coincidencia
'entre idBusca y MarcaModelo, obteniéndose la fila de dicha coincidencia

 

Do While idBusca <> MarcaModelo
fila = fila + 1
idBusca = Range("A" & fila).Value

Loop
'se hace visible el control Image1
Image1.Visible = True
RutaImagen = ActiveWorkbook.Path & "\"
'se asigna a los TextBox los valores correspondientes de
'la lista que está en la hoja "flota"
TextCodigo = Range("B" & fila).Value
TextAño = Range("C" & fila).Value
TextKilometros = Range("D" & fila).Value
TextColor = Range("E" & fila).Value
TextAire = Range("F" & fila).Value
TextDisponible = Range("G" & fila).Value
'TextUbicacion = Range("H" & fila).Value
'TextTipo = Range("I" & fila).Value


'para que no salte un error si la imágen no existe
On Error Resume Next
'se carga la imagen en el control Image1 ( los nombres de las imágenes
'estan en la colunma 2 o "B")

Image1.Picture = LoadPicture(RutaImagen & Sheets("ON_ROLL").Cells(fila, 1) & ".jpg")
If Err.Number <> 0 Then
'si el archivo jpg no existe, se limpioa el
'error
Err.Clear
'se oculta el control Image1
Image1.Visible = False

End If
Sheets("ON_ROLL").Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True

End Sub

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 semana 3 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
si la imagen no existe, no

si la imagen no existe, no muestra nada, porque estás diciéndole que en caso de error continúe mediante 

On Error Resume Next

Asegúrate de que la imagen existe y que se encuentra donde le estás diciendo que busque, es decir, en 

RutaImagen & Sheets("ON_ROLL").Cells(fila, 1) & ".jpg"

Esto debe ser una ruta completa hasta el archivo. Comprueba el valor que toma esta expresión no sea que tengas alguna errata (dobles barras, espacios añadidos, etc.)

 

------
Ya sé Excel, pero necesito más.