Ayuda para adaptar Macro para que funcione en PC (solo funciona en MAC)
Publicado por CESAR MTZ (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:
Ya intenté cambiando la ruta de archivos a:
pero no funciona... supongo que algun script es propio de la MAC... :(
quedo a la espera de su ayuda!!!
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.CopyActiveSheet.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
0
