Ayuda a Convertir Macro de MAC a PC....!
Publicado por cesarmtz999 (2 intervenciones) el 02/04/2016 01:56:17
Saludos a todos!
Quisiera pedirles su apoyo con lo siguiente, tengo esta macro que me ayuda a insertar una fotografía desde un folder determinado a una celda determinada en el Excel partiendo de un nombre de archivo.
Esta macro la encontré en internet y me ha sido de mucha ayuda en MAC, el problema es que al quererla correr en una PC no jala, por que al parecer los scripts de Mac y PC no son iguales.
Podrá alguno de ustedes a ayudarme a convertirla para que jale en una PC???
Mil Gracias!
César Mtz
Sub Foto4()
'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:folder:subfolder: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
Quisiera pedirles su apoyo con lo siguiente, tengo esta macro que me ayuda a insertar una fotografía desde un folder determinado a una celda determinada en el Excel partiendo de un nombre de archivo.
Esta macro la encontré en internet y me ha sido de mucha ayuda en MAC, el problema es que al quererla correr en una PC no jala, por que al parecer los scripts de Mac y PC no son iguales.
Podrá alguno de ustedes a ayudarme a convertirla para que jale en una PC???
Mil Gracias!
César Mtz
Sub Foto4()
'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:folder:subfolder: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
Valora esta pregunta


0