Power Point - crear un bucle en ppt

   
Vista:
Imágen de perfil de Emiliano

crear un bucle en ppt

Publicado por Emiliano (3 intervenciones) el 08/06/2017 22:17:52
Buenas tardes
necesito crear un bucle en una presentación de power point donde en cada diapositiva ay solo una captura de pantalla para que recorra todas las diapositivas de mi presentación no obstante el numero de diapositivas no siempre sera el mismo y en todas las diapositivas se aplique el sig código

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
Sub tamaño()
'modificaremos el tamaño de la imagen
Dim n As Byte
With ActiveWindow.Selection.SlideRange
For n = 1 To 1
With .Shapes(n)
.Fill.Transparency = 0
.LockAspectRatio = msoFalse
.Height = 500
.Width = 900
.IncrementLeft 175 * IIf((n - 1) Mod 2, -1, 1)
.IncrementTop 100 * IIf(n > 2, -1, 1)
End With
Next
End With


'sentramos la imagen en la diapositiva
Dim mi_imagen As Shape
Set mi_imagen = ActivePresentation.Slides(1).Shapes(1)
With mi_imagen
        .Left = 30
        .Top = 20
End With
End Sub


por su atención muchas gracias
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