Power Point - Macro para cargar fotos

 
Vista:
sin imagen de perfil
Val: 1
Ha disminuido 1 puesto en Power Point (en relación al último mes)
Gráfica de Power Point

Macro para cargar fotos

Publicado por Jonathan jonathanpinales@yahoo.com.mx (5 intervenciones) el 11/05/2018 19:28:25
Saludos a todos en el foro
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder