Ayuda

20/09/2005 - 11:57 por gabriel | Informe spam
Hola
Tengo esta rutina y lo que preciso es q en vez de 1 foto me de la
posibilidad de insertar 2 fotos
A ver si alguien me la puede modificar para q me ande como necesito
Muchas gracias


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$1" Then Exit Sub
Dim De_donde As String, Foto As Object, _
Arriba As Double, Izquierda As Double, Ancho As Double, Alto As
Double
Application.ScreenUpdating = False
On Error Resume Next
Me.Shapes("La_Foto").Delete
De_donde = "C:\" & [a1] & ".bmp" 'Aqu? va la ruta donde est?n las im?genes
If Dir(De_donde) = "" Then Exit Sub
Set Foto = Me.Pictures.Insert(De_donde)
With Me.Range("f1:h3")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto
.Name = "La_Foto"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set Foto = Nothing
End Sub

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
20/09/2005 - 21:19 | Informe spam
hola, gabriel !

... lo que preciso es q en vez de 1 foto me de la posibilidad de insertar 2 fotos [...]



de acuerdo con la conversacion #5 del siguiente enlace... http://tinyurl.com/9x544
podrias comentar cuales son los cambios que requieres ?

saludos,
hector.
Respuesta Responder a este mensaje
#2 gabriel
21/09/2005 - 10:44 | Informe spam
Lo que quiero es duplicar la rutina, 2 fotos, 2 archivos, 2 posiciones
Gracias

"Héctor Miguel" wrote in message
news:
hola, gabriel !

> ... lo que preciso es q en vez de 1 foto me de la posibilidad de


insertar 2 fotos [...]

de acuerdo con la conversacion #5 del siguiente enlace...


http://tinyurl.com/9x544
podrias comentar cuales son los cambios que requieres ?

saludos,
hector.


Respuesta Responder a este mensaje
#3 Héctor Miguel
22/09/2005 - 05:21 | Informe spam
hola, gabriel !

Lo que quiero es duplicar la rutina, 2 fotos, 2 archivos, 2 posiciones
Gracias



[precisamente] el mensaje #5 del enlace apuntado anteriormente...
-> 'hace'... dos tercios de lo que solicitas [antes y ahora]...
-> 2 fotos... 2 posiciones... [pero] 1 solo archivo
[asi es como se habia solicitado en la consulta 'original'] ;)

en el mensaje #7 del enlace apuntado... te preguntaba algunos detalles...
[solo para no tener que andar 'adivinando' o suponiendo donde se da cada cosa] ;)
vuelvo a preguntarte [casi] lo mismo :-(
1) en donde se ubicaran ambas fotos ? [una en cual rango... y la otra en cual rango...]
2) de donde hay que 'tomar' -la ruta a...- cada foto ?
3) en que momento quieres que se 'actualice' cada foto ?

disculpa que sea tan 'pregunton' :D [es solo que]...
si me pongo a adivinar... [seguramente] NO voy a acertar con 'tu realidad' ;)

comentas?
saludos,
hector.
Respuesta Responder a este mensaje
#4 gabriel
25/09/2005 - 11:03 | Informe spam
Lo que necesito modificar de la rutina del mensaje #5, es que sean 2
archivos.
y lo que no entiendo de la rutina, es de donde busca los archivos.
Gracias

"Héctor Miguel" wrote in message
news:
hola, gabriel !

> Lo que quiero es duplicar la rutina, 2 fotos, 2 archivos, 2 posiciones
> Gracias

[precisamente] el mensaje #5 del enlace apuntado anteriormente...
-> 'hace'... dos tercios de lo que solicitas [antes y ahora]...
-> 2 fotos... 2 posiciones... [pero] 1 solo archivo
[asi es como se habia solicitado en la consulta 'original'] ;)

en el mensaje #7 del enlace apuntado... te preguntaba algunos detalles...
[solo para no tener que andar 'adivinando' o suponiendo donde se da cada


cosa] ;)
vuelvo a preguntarte [casi] lo mismo :-(
1) en donde se ubicaran ambas fotos ? [una en cual rango... y la


otra en cual rango...]
2) de donde hay que 'tomar' -la ruta a...- cada foto ?
3) en que momento quieres que se 'actualice' cada foto ?

disculpa que sea tan 'pregunton' :D [es solo que]...
si me pongo a adivinar... [seguramente] NO voy a acertar con 'tu realidad'


;)

comentas?
saludos,
hector.


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida