rutear a carpeta Path & "\"???

3 envíos / 0 nuevos
Último envío
tetorin
Imagen de tetorin
Offline
última acción: Hace 1 semana 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 26/05/2011 - 02:57
Puntos: 3177
rutear a carpeta 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

Cron
Imagen de Cron
Offline
última acción: Hace 1 mes 1 día
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12715
Entiendo que esto que has

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

tetorin
Imagen de tetorin
Offline
última acción: Hace 1 semana 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 26/05/2011 - 02:57
Puntos: 3177
ya le puse asi y no me arroja

ya le puse asi y no me arroja la imagen

 

saludos....