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
Entiendo que esto que has puesto es lo que sí funciona, pues tira del valor ActiveWorkBook.Path
¿Qué es lo que haces que no funciona?
En principio, cuando asignas valor a la variable Rutaimagen, debes ponerle la ruta que te interesa. Por ejemplo:
RutaImagen = "C:\directorio1\directorio2\imágenes\jpg\"
O si las imágenes están en un directorio que cuelga del mismo en el que está la excel, puedes poner:
RutaImagen = ActiveWorkbook.Path & "\imágenes\jpg\"
Un saludo
ya le puse asi y no me arroja la imagen
saludos....