Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Macro para carga de fotografias

01/09/2003 - 15:26 por Guillermo Garay | Informe spam
Ayuda Hacer una pregunta
Hola, como estan, mi inquietud que me trae a estos foros es la siguiente,
estoy realizango una macro para automatizar la carga de fotografias tomadas
con una camara digital, desde una plantilla, hasta ahora la carga la realiza
bien, pero tengo que traspazarlas de un tamaño determinado (11cm x 9cn),
porque la imagen la importa en tamaño original, y me ocupa mucho espacio en
la hoja, si alguien me podria dar una mano le estaria muy agradecido.
Gracias,

Guillermo Garay


Aqui va en código:

Sub Macrofo()
'
' Macro1 Macro
'
Selection.InlineShapes.AddPicture FileName:="A:\MVC-001S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-002S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-003S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-004S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-005S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-006S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-007S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-008S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-009S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-010S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-011S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-012S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-013S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-014S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-015S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-016S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-017S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-018S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-019S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-020S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-021S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-022S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-023S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-024S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-025S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-026S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-027S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-028S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-029S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-030S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-031S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-032S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-033S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-034S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-035S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-036S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-037S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-038S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-039S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-040S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-041S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-042S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-043S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-044S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-045S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-046S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-047S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-048S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-049S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-050S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:\MVC-051S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph

ActiveWindow.ActivePane.SmallScroll Down:=3
End Sub
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 marrokin
24/04/2012 - 23:28 | Informe spam
Guillermo Garay escribió el 01/09/2003 15:26 :
Hola, como estan, mi inquietud que me trae a estos foros es la siguiente,
estoy realizango una macro para automatizar la carga de fotografias tomadas
con una camara digital, desde una plantilla, hasta ahora la carga la realiza
bien, pero tengo que traspazarlas de un tamaño determinado (11cm x 9cn),
porque la imagen la importa en tamaño original, y me ocupa mucho espacio
en
la hoja, si alguien me podria dar una mano le estaria muy agradecido.
Gracias,

Guillermo Garay


Aqui va en código:

Sub Macrofo()
'
' Macro1 Macro
'
Selection.InlineShapes.AddPicture FileName:="A:MVC-001S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-002S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-003S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-004S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-005S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-006S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-007S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-008S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-009S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-010S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-011S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-012S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-013S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-014S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-015S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-016S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-017S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-018S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-019S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-020S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-021S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-022S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-023S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-024S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-025S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-026S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-027S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-028S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-029S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-030S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-031S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-032S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-033S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-034S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-035S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-036S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-037S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-038S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-039S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-040S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-041S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-042S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-043S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-044S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-045S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-046S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-047S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-048S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-049S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-050S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:="A:MVC-051S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph

ActiveWindow.ActivePane.SmallScroll Down:=3
End Sub


Hola!!!

Primero no uses tango código
cerciórate de tener un consecutivo en tus fotografías

segundo graba una macro en donde insertes una forma la dimensionas para que te quede de 1cm x 1cm detienes la macro
revisas en vb el valor de las dimensiones de tu forma y ese valor llamalo "FC" por decirlo de alguna forma


luego utiliza

a= (desde donde quieres empezar)
b= (hasta donde quieres llegar)


For i= a to b
Selection.InlineShapes.AddPicture FileName:="A:\MVC-" & a & "S.JPG",
LinkToFile _
:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.TypeParagraph
Selection.Width=11 * FC
Selection.Height=9 * FC

next


Espero te haya servido mi ayuda

Preguntas similares

 

Busqueda sugerida :