Macro que falla

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

Creo que tu error esta en foto As boolean debiera ser As Range o A
String, porque no puedes meter una cadena de caracteres en un boolean
en un boolean solo puedes poner True o False.

Suert

tito
titon's Profile: http://www.msusenet.com/member.php?userid)3
View this thread: http://www.msusenet.com/t-187095278

Drom y Triton os doy las gracias por vuestra contestación, pero
desgraciadamente no hago funcionar la macro, se me para en la linea:

... ActiveSheet.Pictures.Insert ( _. etc.

Puede que haya otra forma de hacerlo, pero lo que trato de hacer es
incluir la foto de un piso en la ficha DIN A4 que hago por cada piso
extrayendo con buscarV los datos de una base en excel, la foto que
corresponde a cada piso están almacenadas en una carpeta y las quiero llamar
tambien con un buscarV por su nombre y path de la carpeta. (naturalmente
antes he hecho un copiar y pegar valores para el nombre de la foto).
Observar la foto y si podeis indicarme como se puede hacer o cual es el
fallo... pues agradecido.
Saludos
José Rafael



"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