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