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
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.