# Barras de Progreso en Visual Basic

[Inicio](https://www.todoexpertos.com/) › [Visual Basic](https://www.todoexpertos.com/temas/visual-basic) › [Ingeniería Informática](https://www.todoexpertos.com/temas/ingenieria-informatica) › [Programación](https://www.todoexpertos.com/temas/programacion)

- Fecha de publicación: 2015-03-21
- Enlace canónico (HTML): https://www.todoexpertos.com/preguntas/5tx4hvfjjwwp4jbf/barras-de-progreso-en-visual-basic

## Pregunta

*Por Humberto Mercado* · 2015-03-21

Buen día.He estado intentando activar las barras de progreso en visual, pero cuando intento  insertar uno, no me permite porque la biblioteca no está registrada.Me pueden ayudar.Saludos

## Respuestas (1)

### 1. Respuesta aceptada de Dante Amor
*Fecha: 2015-03-21 · Votos: 1 (+1/-0)*

Entra al menú de VBA, herramientas, referencias y revisa que tengas estas:Ahora en herramientas, controles adicionales, busca los siguientes y márcalosSi no te funcionan entonces habría que adaptar un formularioTe anexo el código para simular un progressbarPrivate Sub UserForm_Activate()
'Referencia: http://support.microsoft.com/kb/211736/es
'Mod.Por.Dante Amor
    LProgress.Width = 0
    principal
End Sub
Sub principal()
'Por.Dante Amor
    Application.ScreenUpdating = False
    con = 1
    rep = 10
    Label1 = "Procesando ..."
    '
    fin = Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To fin
        '***
        '
        'Macro
        '
        '***
        If (con * 100) / fin >= rep Then
            UpdateProgressBar rep
            rep = rep + 10
        End If
        con = con + 1
    Next
    Application.ScreenUpdating = True
    Label1 = "Proceso Terminado"
End Sub
Sub UpdateProgressBar(ava)
'Por.Dante Amor
    UserForm1.Frame1.Caption = Int(ava) & " %"
    LProgress.Width = LProgress.Width + 30
    DoEvents
    Application.Wait Now + TimeValue("00:00:01")
End SubTambién te anexo el archivo para que lo pruebes.enlace externo Saludos. Dante Amor

Gracias Dante.El problema que  tengo es que  la biblioteca de "Microsoft windows commond controls-2 6.0" no la  tengo  disponible  para  activar en las referencias.¿Qué puedo hacer para que aparezca? Saludos.

Busca en la red para instalarla.O utiliza la otra opción que te envié

---
*Fuente: [https://www.todoexpertos.com/preguntas/5tx4hvfjjwwp4jbf/barras-de-progreso-en-visual-basic](https://www.todoexpertos.com/preguntas/5tx4hvfjjwwp4jbf/barras-de-progreso-en-visual-basic) — consultado el 2026-10-21. Al citar, enlaza la URL canónica e indica la fecha de consulta.*