Scribd
Cargar
3 vistas2 páginas

Selección y navegación de imágenes en Excel

El documento contiene un código en VBA que permite seleccionar imágenes desde el sistema de archivos y mostrarlas en una hoja de Excel. Incluye funciones para navegar entre imágenes en una carpeta, permitiendo avanzar o retroceder en la visualización. Se utilizan funciones para manejar la búsqueda de archivos y la actualización de la interfaz de usuario.

Cargado por

Giovanny Giancarlo Casani Guzmán
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
3 vistas2 páginas

Selección y navegación de imágenes en Excel

El documento contiene un código en VBA que permite seleccionar imágenes desde el sistema de archivos y mostrarlas en una hoja de Excel. Incluye funciones para navegar entre imágenes en una carpeta, permitiendo avanzar o retroceder en la visualización. Se utilizan funciones para manejar la búsqueda de archivos y la actualización de la interfaz de usuario.

Cargado por

Giovanny Giancarlo Casani Guzmán
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd

Sub SeleccionarCarpeta()

    [Link] = False
    [Link] = False
    Dim strImagenNew As String
    Dim i As Integer
    Dim j As Integer
    strImagenNew = [Link]("Archivos de
imagen(*.bmp;*.gif;*.jpg;*.png), *.bmp;*.gif;*.jpg;*.png", ,
"Selecciona...")
    If strImagenNew <> "Falso" Then
        Sheets("Hoja1").Shapes("Imagen").[Link]
ture strImagenNew
        Sheets("Hoja1").Range("Carpeta") =
strImagenNew
    Else
        Exit Sub
    End If
    [Link] = True
End Sub
 
Sub toLeft()
    Dim imagen As String
    imagen = SiguienteImagen("previous")
    If imagen <> Empty Then
        Sheets("Hoja1").Shapes("Imagen").[Link]
ture imagen
        Sheets("Hoja1").Range("Carpeta") = imagen
    End If
End Sub
Sub toRight()
    Dim imagen As String
    imagen = SiguienteImagen("next")
    If imagen <> Empty Then
        Sheets("Hoja1").Shapes("Imagen").[Link]
ture imagen
        Sheets("Hoja1").Range("Carpeta") = imagen
    End If
End Sub

Function SiguienteImagen(direccion As String)


    Dim carpeta As String
    Dim busqueda As String
    Dim archivo As String
    Dim archivoInicial As String
    Dim extension As String
    Dim i As Integer
    Dim resultado As Long
    Dim WFD As WIN32_FIND_DATA
    Dim actual As Boolean
    Dim previous As String
    Dim cont As Integer
    archivoInicial = Sheets("Hoja1").Range("Carpeta")
    carpeta = Mid(archivoInicial, 1, InStrRev(archivoInicial,
"\"))
    busqueda = "*.*" 'Todos los archivos
    If Right(carpeta, 1) <> "\" Then carpeta = carpeta
& "\"
    'Busqueda del archivo en carpeta actual
    resultado = FindFirstFile(carpeta & busqueda, WFD)
    cont = True
    actual = False
    If resultado <> INVALID_HANDLE_VALUE Then
        While cont And SiguienteImagen = Empty
            archivo = StripNulls([Link])
            If (archivo <> ".") And (archivo <>
"..") Then
                extension = Right(archivo, Len(archivo) -
InStrRev(archivo, "."))
                If extension = "bmp" Or extension =
"gif" Or extension = "jpg" Or extension =
"png" Then
                    If direccion = "next" Then
                        If actual Then SiguienteImagen = carpeta &
archivo
                        If (carpeta & archivo) = archivoInicial Then
actual = True
                    ElseIf direccion = "previous" Then
                        If (carpeta & archivo) = archivoInicial Then
SiguienteImagen = previous
                        previous = carpeta & archivo
                    End If
                End If
            End If
            cont = FindNextFile(resultado, WFD)
        Wend
        cont = FindClose(resultado)
    End If
End Function

También podría gustarte