publicado el 8 de diciembre10 años Tengo programada esta macro para insertar una imagen en una hoja de Excel, y funciona bien. Sub InsertarImagen() Set MiPc = CreateObject("Scripting.FileSystemObject") Set Carpeta = MiPc.GetFolder("C:\Documents and Settings\Usuario\Escritorio\foto\") Set Archivos = Carpeta.Files For Each Archivo In Archivos: Exit For: Next ActiveSheet.Pictures.Insert(Archivo).Select ActiveCell.Select End Sub La pregunta es: ¿como se programaría para un equipo con sistema operativo MAC?
Tengo programada esta macro para insertar una imagen en una hoja de Excel, y funciona bien.
Sub InsertarImagen()
Set MiPc = CreateObject("Scripting.FileSystemObject")
Set Carpeta = MiPc.GetFolder("C:\Documents and Settings\Usuario\Escritorio\foto\")
Set Archivos = Carpeta.Files
For Each Archivo In Archivos: Exit For: Next
ActiveSheet.Pictures.Insert(Archivo).Select
ActiveCell.Select
End Sub
La pregunta es: ¿como se programaría para un equipo con sistema operativo MAC?