Sub BarraProgreso()

 'contar el numero de slides
  scount = ActivePresentation.Slides.Count

    
 ' copia la barra de las slide 1 al resto de slides
 ActivePresentation.Slides(1).Shapes("_barra_progreso").Copy
 For j = 2 To scount
  ActivePresentation.Slides(j).Shapes.Paste
 Next j
   
 'tamaño de la página
  ancho = Application.ActivePresentation.PageSetup.SlideWidth
   
 ' tamaño minimo
 minimo = ancho / scount
    
 'tamaño de la barrita por cada slide
   
 For j = 1 To scount
   ActivePresentation.Slides(j).Shapes("_barra_progreso").Width = minimo * j
 Next j

End Sub