Comments on: Barra de progreso en tus presentaciones

By: Rafa

Rafa — Sun, 13 Sep 2009 10:37:32 +0000

Un retoque:

Sub AddProgressBar()
On Error Resume Next
With ActivePresentation

For y = 1 To .Slides.Count

.Slides(y).Shapes(“PB”).Delete

Set s = .Slides(y).Shapes.AddShape(msoShapeRectangle, _
0, .PageSetup.SlideHeight – 12, _
y * .PageSetup.SlideWidth / .Slides.Count, 12)

s.TextFrame.TextRange.Text = CStr(Round(y * 100 / .Slides.Count)) + ” %”

With s
With .TextFrame.TextRange.Font
.Size = 11
.Color.RGB = RGB(250, 250, 250)
End With
End With

s.Fill.ForeColor.RGB = RGB(127, 0, 0)

s.Name = “PB”

Next y:

End With
End Sub

Alberto — Mon, 20 Apr 2009 16:05:16 +0000

Hola buen aporte pero que crees lo ejecuto y todo y no aparece nada tengo vista premium, me gustraria tu opinion

Daniel — Sun, 12 Apr 2009 23:17:19 +0000

ohhhh ya lo arreglé, en vez de la variable Y va X

Daniel — Sun, 12 Apr 2009 23:09:13 +0000

hola, tengo un problema al ejecutar el macro :/

‘ Error de compilación:

Referencia de variable de control Next no válida ‘