Excel - Ayuda para adaptar Macro para que funcione en PC (solo funciona en MAC)

   
Vista:

Ayuda para adaptar Macro para que funcione en PC (solo funciona en MAC)

Publicado por CESAR MTZ cesarmtzflores@hotmail.com (1 intervención) el 22/10/2015 20:39:09
Saludos Amigos Expertos....

Hace algun tiempo encontré en la red esta macro, sirve para colocar en una celda una fotografía desde un folder determinado a través de un listado de archivos jpg. La uso en una MAC sin ningun problema pero mi mac acaba de morir y me compré una PC (Ya se... búrlense si quieren ) el caso es que no he logrado hacer que esa macro jale en PC, no se porqué, no soy experto y quisiera pedirles si me ayudan...!!!

La macro es la siguiente:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Fotos()
'Inserts all pictures from selected directory on top of each other in worksheet.
Dim MyPath As String
Dim FName As String
MyPath = "Macintosh HD:Users:Cesar:Fotos:"
 Range("c4").Select
       Do While IsEmpty(ActiveCell.Offset(1, -1)) = False
             FName = ActiveCell.Offset(1, -1)
               If FileExists(MyPath & FName) Then
                 ActiveCell.Offset(1, 0).Select
                 ActiveSheet.Pictures.Insert(MyPath & FName).Select
                 Selection.ShapeRange.Height = 140
                     Selection.Copy
    ActiveSheet.PasteSpecial Format:="Imagen", Link:=False, DisplayAsIcon:= _
    False
    Selection.ShapeRange.IncrementLeft 300
               Else
                 ActiveCell.Offset(1, 0).Select
                 ActiveCell.FormulaR1C1 = "No se encontró la Foto"
             End If
       Loop
Range("a1").Select
End Sub

Ya intenté cambiando la ruta de archivos a:
1
MyPath = "C:\Cesar\Fotos\"

pero no funciona... supongo que algun script es propio de la MAC... :(

quedo a la espera de su ayuda!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Ayuda para adaptar Macro para que funcione en PC (solo funciona en MAC)

Publicado por Andres Leonardo (491 intervenciones) el 22/10/2015 22:40:47
Corrige

MyPath = "Macintosh HD:Users:Cesar:Fotos:"

Por la ruta de las fotos.

MyPath = "C:\Users\Cesar\Fotos"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar