kn1cht

Sub MakeProgressBar()
    Const r As String = "00"    '色・RGB値のR
    Const g As String = "99"    '色・RGB値のG
    Const b As String = "00"    '色・RGB値のB
    Const pbH As Long = 10     '高さ
    Const pbBG As Single = 0.6  '背景の透過性

    Dim i As Long
    Dim s As Shape