Macro para cargar fotos
Publicado por Jonathan (5 intervenciones) el 11/05/2018 19:28:25
Saludos a todos en el foro
Tengo el sigiente codigo:
Este codigo ANTES me servia para que en una carpeta creada en c de Nombre fotos con la extensiòn "jpg" y numeros consecutivos del 1 al "n", me las colocaba de manera automàtica en la diapositiva, con espacio para dos fotos, si excedia entonces creaba otra diapositiva con el mismo formato y agregaba las demàs fotos, ahora ya no funciona ni reconoce el còdigo.
¡Alguien podria ayudarme?
La presentaciòn de powerPoint solo tiene una diapositiva y un formato establecido y lo trato de hacer es que por medio de una macro me cargue las fotos en la presentaciòn de a dos por siapositiva, en la carpeta puede haber mil fotos, pero si yo quiero que solo sea de la foto numero 1 a la 50, entonces se necesitarian 25 diapositivas y me cargaria dos en cada una
¡Còmo le puedo hacer?
Desde ya muchas gracias por la atenciòn
Jonathan Gutièrrez
Tengo el sigiente codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="C:\Fotos\1.JPG", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-449, Top:=-599, Width:=1440, Height:=1920).Select
With ActiveWindow.Selection.ShapeRange
.Fill.Transparency = 0#
.Height = 1149.12
.Width = 861.75
End With
With ActiveWindow.Selection.ShapeRange
.Fill.Transparency = 0#
.Height = 478.88
.Width = 359.38
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 232.38
.IncrementTop 342#
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 198.5
.IncrementTop 238.12
End With
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.67, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.67, msoFalse, msoScaleFromBottomRight
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 130.38
.IncrementTop 51#
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 79.38
.IncrementTop 22.75
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft -39.75
.IncrementTop -11.38
End With
ActiveWindow.Selection.ShapeRange.ScaleWidth 1.32, msoFalse, msoScaleFromTopLeft
ActiveWindow.Selection.ShapeRange.ScaleWidth 1.07, msoFalse, msoScaleFromBottomRight
ActiveWindow.Selection.ShapeRange.ScaleHeight 0.91, msoFalse, msoScaleFromBottomRight
ActiveWindow.Selection.ShapeRange.IncrementTop -1#
ActiveWindow.Selection.ShapeRange.IncrementTop -1#
ActiveWindow.Selection.ShapeRange.IncrementTop -1#
ActiveWindow.Selection.ShapeRange.IncrementTop -1#
ActiveWindow.Selection.ShapeRange.IncrementTop -1#
ActiveWindow.Selection.ShapeRange.IncrementTop -1#
ActiveWindow.Selection.ShapeRange.ScaleHeight 0.89, msoFalse, msoScaleFromTopLeft
ActiveWindow.Selection.ShapeRange.ScaleHeight 0.98, msoFalse, msoScaleFromTopLeft
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActiveWindow.Selection.SlideRange.Duplicate.SlideIndex
ActiveWindow.Selection.SlideRange.Shapes("Picture 28").Select
With ActiveWindow.Selection.ShapeRange
.IncrementLeft -1.38
.IncrementTop -0.62
End With
ActiveWindow.Selection.ShapeRange.Delete
End Sub
Este codigo ANTES me servia para que en una carpeta creada en c de Nombre fotos con la extensiòn "jpg" y numeros consecutivos del 1 al "n", me las colocaba de manera automàtica en la diapositiva, con espacio para dos fotos, si excedia entonces creaba otra diapositiva con el mismo formato y agregaba las demàs fotos, ahora ya no funciona ni reconoce el còdigo.
¡Alguien podria ayudarme?
La presentaciòn de powerPoint solo tiene una diapositiva y un formato establecido y lo trato de hacer es que por medio de una macro me cargue las fotos en la presentaciòn de a dos por siapositiva, en la carpeta puede haber mil fotos, pero si yo quiero que solo sea de la foto numero 1 a la 50, entonces se necesitarian 25 diapositivas y me cargaria dos en cada una
¡Còmo le puedo hacer?
Desde ya muchas gracias por la atenciòn
Jonathan Gutièrrez
- Macro-Rev-2.rar(757,6 KB)
Valora esta pregunta
0