Macro para abrir windows photo galery e ir a las fotos de una etiqueta descriptiva concreta.
Macro para abrir windows photo galery e ir a las fotos de una (ETIQUETA DESCRIPTIVA) concreta, que tengo definida en una celda de una hoja .
Consigo abrir en programa de windows photo galery, pero se va a las ultimas etiquetas descritivas que se estaban viendo antes de cerrar el program photo galery.
Adjunto macro:
Shell "C:\Program Files (x86)\Windows Live\Photo Gallery\WLXPhotoGallery " & ActiveCell.Value
En ActiveCell.Value tengo la direccion donde estan las fotos: "c:\fotos\2021-09-23"
Para crear una macro en Excel que abra Windows Photo Gallery y muestre las fotos con una etiqueta descriptiva específica, puedes seguir los siguientes pasos:
- Abre el editor de Visual Basic en Excel presionando las teclas "Alt + F11".
- En el menú "Insertar", selecciona "Módulo" para crear un nuevo módulo de código.
- Escribe el siguiente código en el módulo:
Sub AbrirPhotoGallery()
Dim etiqueta As String
etiqueta = ActiveSheet.Range("A1").Value 'reemplaza "A1" con la celda que contiene la etiqueta descriptiva
Dim comando As String
comando = "rundll32.exe C:\WINDOWS\Live\PhotoGallery\WLXPhotoGallery.exe /tags:" & etiqueta
Shell comando, vbNormalFocus 'ejecuta el comando en una nueva ventana
End Sub
- Modifica la línea "ActiveSheet.Range("A1").Value" para que se refiera a la celda que contiene la etiqueta descriptiva que deseas buscar.
- Guarda el archivo como un libro de Excel habilitado para macros.
- Cierra el editor de Visual Basic y vuelve a la hoja de Excel.
- Selecciona la celda que contiene la etiqueta descriptiva y luego haz clic en el botón de la macro para ejecutarla.
Cuando se ejecuta la macro, se abrirá Windows Photo Gallery y se mostrarán todas las fotos que tengan la etiqueta descriptiva especificada en la celda que se definió en el código de la macro.
