INSERTAR VARIAS IMAGENES EN VARIOS RANGOS A PARTIR DE VARIAS CELDAS

21/10/2006 - 07:10 por pejelagarto | Informe spam

Es el CÓDIGO DE ABAJO; solo que habrá lo siguiente:

IMAGEN 1:
1.- Directorio: >>> "C:\Excel\portadas\"
2.- CELDA A1: Nombre de las PORTADAS>>> Portada1,portada2, portada3,
portada4, portadaN
3.- RANGO DE VISUALIZACION>>> B1:D:20

IMAGEN 2:
1.- Directorio: >>> "C:\Excel\Croquis\"
2.- CELDA A1: Nombre de los CROQUIS>>> Croquis1, Croquis2, Croquis3,
Croquis4, CroquisN
3.- RANGO DE VISUALIZACION>>> B30:D:50

IMAGEN 3:
1.- Directorio: >>> "C:\Excel\Credencial\"
2.- CELDA A1: Nombre de los CREDENCIALES>>> Credencial1,
Credencial2, Credencial3, Credencial4, CredencialN
3.- RANGO DE VISUALIZACION>>> B60:D:80

ESO ES TODO LO KE QUIERO HACER, Y PRECISAMENTE ESTO PORQUE NO KIERO KE
SEA MUY PESADO EL ARCHIVO.

De verdad JURO ke NO VUELVO A PREGUNTAR.. Gracias de antemano y
quedo de USTEDES.
herchan@gmail.com.
El CÓDIGO DE AKÁABAJO LO HACE BIEN, solo ke lo hace PARA UN ARCHIVO Y
PARA UN RANGO. 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:\Excel\" & [a1] & ".JPG"
If Dir(De_donde) = "" Then Exit Sub
Set Foto = Me.Pictures.Insert(De_donde)
With Me.Range("f1:h21")
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

Siga el debate

18 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#16 Ivan

29/10/2006 - 01:42 | Informe spam

hola Hector Miguel, como siempre, gracias por tu ayuda

aunque en realidad creo que me he explicado mal en cuanto a 'imprimir
movimiento' se refiere (al final te comento), estoy empezando a probar
los controles que mencionas (bueno, hasta ahora solo he puesto el
WebBrowser en un formulario y estoy intentando comprender sus
propiedades)

y, aunque de momento probablemente no los use para el proyecto, de cara
a no retrasarlo mucho mas (me da la impresion de que debe haber
bastante que investigar en el tema, al menos para comprenderlo), creo
que me pueden venir muy bien de cara a sustituir la actual presentacion
a posteriori, cuando tenga claro algo un poco mas atractivo, aunque
tenga que sustituir algun modulo o lo que haga falta en los archivos
repartidos.

segun vaya avanzando me imagino que acabare consultando/te las dudas,
que supongo surgiran por doquier..

en cuanto a mi consulta, en realidad me referia a imprimir
desplazamiento y variacion de tamaño a los controles Form Image a
traves de una hoja asi como a las fotos contenidas en ellos (por
cierto, y solo por confirmarlo, ¿recibiste el archivo con la
presentacion?, no me fio mucho de mi correo -o mas bien de mi uso de
el-), de cara a disminuir el riesgo de corrupcion del archivo

en cualquier caso, una vez comprendidos los conceptos y manera de
'incrustar una vez y vincular' y salvo consejo especifico en contra,
creo que mantendre el uso de los shapes, para no seguir mareando la
perdiz.

bueno, disculpa el rollo, y en cuanto me meta en el fregado de las
animaciones te comento

un saludo y hasta pronto
Ivan

Responder a este mensaje

#17 Héctor Miguel

29/10/2006 - 01:54 | Informe spam

hola, Ivan !

__ 1 __

... me referia a imprimir desplazamiento y variacion de tama#o a los controles Form Image
a traves de una hoja asi como a las fotos contenidas en ellos

1) si es posible, [solo que] me parace que 'en tu caso' se trataria de un 'doble trabajo' :-(
[ajustar las dimensiones y posicion... primero del 'contenedor' y luego de 'la imagen'] -?-

__ 2 __

(por cierto, y solo por confirmarlo, recibiste el archivo con la presentacion?
no me fio mucho de mi correo -o mas bien de mi uso de el-)
de cara a disminuir el riesgo de corrupcion del archivo [...]

2) acuso recibo :) [es solo que 'el tiempo' no ma de para mucho] :D

saludos,
hector.

Responder a este mensaje

#18 Ivan

29/10/2006 - 02:02 | Informe spam

gracias Hector

no hay problema ni prisas

un saludo
Ivan

Siga el debate Respuesta

Responder a este mensaje

Ads by Google