Programación General > VBA

 Crear hojas con una lista de imagenes

(1/1)

splinter72:
Hola a todos,

Tengo un listado de imagenes en una hoja llamada "listgraf" en la
columna B, a partir de B2, con ellas tengo que elaborar una hoja con
cada una de ellas en un formato que se encuentra en la hoja "grafic",
pero son mas de 1000, pregunta:


Un codigo para generar las hojas automaticamente por cada imagen y que
incruste o pege cada imagen en el formato de la hoja "grafic" con
cierta dimension (aunque esto lo haria manual si es que no se puede
dar un tamaño, ya sea con celdas o resolucion) y le de un nombre a la
hoja de manera consecutiva "grafic2", "grafic3", etc.


Que tengan buen dia y agradezco su apoyo

F_Tanori:
Hola,

He leido varias veces tu mensaje, y no logro comprender lo que deseas hacer. puedes explicarlo mas detalladamente


Saludos

arielb:
Hola, bueno la verdad si hay que leerlo varias veces.
Voy a dar una respuesta con lo que creo que comprendí.


--- Código: Visual Basic ---Sub imagenes()                Dim cantidad As Integer      'Seleccionar el primer registro donde se encuentran los datos   Range("B3").Select   'Selecciona hasta el último registro donde se encuentra   Range(Selection, Selection.End(xlDown)).Select    If TypeName(Selection) = "Range" Then     'contar la cantidad de registros contados     cantidad = Selection.Count   End If   'agregar la cantidad de hojas según los registros seleccionados   For i = 1 To cantidad    Sheets.Add After:=Sheets(Sheets.Count)    Sheets(Sheets.Count).Select    Sheets(Sheets.Count).Name = "NombreCampo" + CStr(i)       Next i  End Sub
Con referente a las imagenes no comprendo si lo que habrá en la celda es la ruta de la imagen o la misma imagen.

Navegación

[0] Índice de Mensajes