Macro

Finalizando con este post la serie de artículos sobre el tratamiento de imágenes, hoy explicaré como, mediante una macro de Excel podemos listar los ficheros contenidos en una Carpeta y en quéforma, aprovechando los nombres de esos ficheros (imágenes), los insertaremos en las celdas contigüas respectivas, adecuando el tamaño de la celda.
Es por tanto un resumen de las entradasanteriores, añadiendo a éstas la instrucción .Picture.Insert que habilita la inserción de imágenes si trabajamos con Excel 2007 o Excel 2010.
En el ejemplo sobre el que trabajo la ruta es fija, definidasobre una variable incluida en la macro de Excel, en particular: D:\BancoFotos\
Insertaremos en un módulo del Explorador de proyectos del Editor de VBA el siguiente código, formando nuestra macro deExcel:
view plainprint?
1. Sub FicherosCarpeta()  
2. 'www.excelforo.com  
3. Dim Ruta As String  
4. Dim Fotos As Object  
5. Dim rng As Range, celda As Range  
6.   
7.'Saltamos posibles errores  
8. On Error Resume Next  
9. Application.ScreenUpdating = False  
10. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
11. Dim img As Shape  
12.'si existe alguna foto, la borro:  
13. On Error Resume Next  
14. For Each img In ActiveSheet.Shapes  
15.      If img.Type = 11 Then img.Delete  
16. Next  
17. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''  18. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
19. 'Creamos el objeto FileSystemObject que  
20. 'proporciona acceso al sistema de archivos de un equipo  
21.Set fso = CreateObject("Scripting.FileSystemObject")  
22. 'Indicamos la ruta de donde vamos a obtener  
23. 'los ficheros, en este caso D:\BancoFotos  
24. Ruta = "D:\BancoFotos\"  
25.'definimos dos variables que necesitaremos,  
26. 'para recuperar el nombre de la carpeta, y los ficheros que haya dentro  
27. Set Carpeta = fso.GetFolder(Ruta)  
28. Set ficheros = Carpeta.Files  
29....