Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Macro que falla

03/08/2005 - 13:41 por Costa de Chilches :: Dpto. Comercial | Informe spam
Ayuda Hacer una pregunta
Saludos
Estoy queriendo hacer funcionar esta macro grabada por mi y no me
funciona... me dá error en el path de búsqueda de la foto...y no sé mas, lo
siento. Por cierto me gustaria poder elegirlo teniendo como "default" este
que figura en la macro para simplemente dar a la tecla enter y que me ponga
la foto...
Alguien me puede corregir la macro y ofrecerme la alternativa de elegir el
path... gracias anticipadas
José Rafael




Sub Macrofotos2()
Application.ScreenUpdating = False
Dim foto As Boolean
Sheets("Plantilla").Select
Range("N1").Select
Selection.Copy
Range("O1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
foto = Range("O1").Value '
Range("H17").Select
ActiveSheet.Pictures.Insert ( _
"C:\Documents and Settings\Fernando\Escritorio\Pepe Frasquet\Fichas
de pisos\" & foto.Select)
End Sub
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Drom
03/08/2005 - 18:00 | Informe spam
prueba esto:


Sub Macrofotos2()
Dim Foto As Variant
Application.ScreenUpdating = False
With Sheets("Plantilla")
.Range("N1").Copy
.Range("O1").PasteSpecial Paste:=xlPasteValues
Foto = "C:\Documents and Settings\Fernando\Escritorio\Pepe
Frasquet\Fichas de pisos \" & .Range("O1").Value
.Range("H17").Select
.Pictures.Insert(Foto).Select
End With
End Sub


"Costa de Chilches :: Dpto. Comercial"
escribió en el mensaje news:%

Saludos
Estoy queriendo hacer funcionar esta macro grabada por mi y no me
funciona... me dá error en el path de búsqueda de la foto...y no sé mas,
lo siento. Por cierto me gustaria poder elegirlo teniendo como "default"
este que figura en la macro para simplemente dar a la tecla enter y que me
ponga la foto...
Alguien me puede corregir la macro y ofrecerme la alternativa de elegir el
path... gracias anticipadas
José Rafael




Sub Macrofotos2()
Application.ScreenUpdating = False
Dim foto As Boolean
Sheets("Plantilla").Select
Range("N1").Select
Selection.Copy
Range("O1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
foto = Range("O1").Value '
Range("H17").Select
ActiveSheet.Pictures.Insert ( _
"C:\Documents and Settings\Fernando\Escritorio\Pepe Frasquet\Fichas
de pisos\" & foto.Select)
End Sub



Preguntas similares

 

Busqueda sugerida :