Pegar Imagenes en libro

[chantencia]

Estimados expertos, acudo a ustedes ya que de tanto buscar no he podido encontrar solucion a mi problema, que es el siguiente.

Tengo un Libro con 2 hojas y aprox. 1800 fotos, en una hoja 1 tengo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Hola:

Sube el fichero (solo una muestra) en formato 2003 (.xls)

 

[chantencia]

Antoni,

aca va el archivo en excel 2003, atento a tus comentarios.

 

[Macro Antonio]

Hola:

Dame todo el día de mañana a ver que puedo hacer.

Mientras, contéstame a:

¿ Cada modelo tiene siempre 4 filas ?
¿ Siempre van a ser todas las imágenes las que hay que copiar?
¿ La hoja de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[chantencia]

te contesto:

Cada modelo tiene siempre 4 filas ?, no, existen otros modelos que tiene mas filas
¿ Siempre van a ser todas las imágenes las que hay que copiar...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[sailepaty]

Haber ahi va algo no muy depurado pero parece que sirve.

1.-En la Hoja1 corre la macro que crea los nombres de las fotos

<i>
</i>Sub CreateNames()
    Dim pSh As Shape
    Dim sSheet  As...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[chantencia]

Muchas Gracias sailepaty, estuvo muy cerca de lo que quiero, la idea que tienes es lo que quiero

te mando mi correo para poder enviarte el arhivo original y puedas modificar la macro de acuerdo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Una simple variante con la que no agrego más que eso...

If pSh.Type = 13 Then
            'pSh.Name = "P" + Range(pSh.TopLeftCell.Address).Offset(0, -1).Value
            pSh.Name = "P" &...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[sailepaty]

Buena variante, me parece que queda mas clara la linea de esa forma.

Saludos

 

[Macro Antonio]

Hola a todos:

Ahí te dejo una macro.

La macro está dividida en tres partes

1) Copiando la idea de sailepaty, renombramos los nombres de las imágenes de la Hoja1 con el código del modelo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[sailepaty]

Aquí va una versión recortada del archivo que le envié a Valencia, donde se puede definir en una lista/tabla el nombre de la hoja(s) donde están las fotos y en otra lista/tabla el nombre de la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[chantencia]

Bueno, no me queda mas que agradecerles a sailepaty y Antoni por la ayuda, quedo mas que satisfecho por su ayuda, y si pueden, ayudenme con esos detalles, de todas maneras seguire preguntando en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

La siguiente Macro en la Hoja FOTOS combina las celdas con el mismo código que sean contiguas. También carezco de tiempo y entusiasmo, así que dejo en otras manos empalmarla con el resto de los...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[chantencia]

se agradece el aporte Galileogali, lo aplicare en las hojas que lo necesito, despues de toda las ayudas recibidas doy por cerrado el caso.

Muchisimas gracias.

 

[galileogali]

se agradece el aporte Galileogali, lo aplicare en las hojas que lo necesito, despues de toda las ayudas recibidas doy por cerrado el caso.

Muchisimas gracias.

...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[chantencia]

ok, no pretendia dar por cerrado el tema, solo que para mi ya quedo ok, es mas que nada eso, perdon si me exprese mal o si falte a alguna regla del foro no fue mi intencion y pido mis mas sinceras...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí