Vertical progress bar with label and changing height - only "grows" downward

[kcsteele]

I created a horizontal progress bar by increasing the width value of a label, and the label grew to the right, which was fine.

I then tried to create a vertical progress bar, but it grows down instead of up from the bottom.



Sub RunStatusBar4(cellNum As Integer, totalCells As Integer)
With StatusBar
.Bar4.Height = 426 * (cellNum / totalCells)
.FrameProgressBarFull.Caption = Int((cellNum / totalCells) * 100) & "%"
.LabelTotalValuesChanged = cellNum
End With
End Sub

[p45cal]

I think I can do this, but could you attach a workbook with the progress bar as it is, then I can be sure any solution I offer is going to work for you?

[kcsteele]

thanks, here it is

[kcsteele]

I didn't fix it but I found a workaround, just put a label on top and made it grow backwards. barsizeGlobal is the height of the label which is taken from the height property at the start, instead of hardcoding it like I did above.


Sub RunStatusBar4(cellNum As Integer, totalCells As Integer) With UserForm1
'.Bar4.Height = barsizeGlobal * (cellNum / totalCells)
.Bar4White.Height = barsizeGlobal - (barsizeGlobal * (cellNum / totalCells))
.FrameProgressBarFull.Caption = Int((cellNum / totalCells) * 100) & "%"
End With
End Sub

Attached the fix for anyone else who might run into it, unless you know a different way. I was thinking maybe there's a property that sets the "anchor" or the text behavior on the label, or a way to rotate it, but didn't find anything.

[p45cal]

try on your first attached file:
Sub RunStatusBar4(cellNum As Integer, totalCells As Integer)
With UserForm1
ht = 426 * (cellNum / totalCells)
.Bar4.Top = 426 - ht
.Bar4.Height = ht
.FrameProgressBarFull.Caption = Int((cellNum / totalCells) * 100) & "%"
End With
End Sub

[arnelgp]

you can also set the Bar4 (green) to "Bring Forward" and use this code (same as #5):

Sub RunStatusBar4(cellNum As Integer, totalCells As Integer) Dim h As Integer
With UserForm1
'.Bar4.Height = barsizeGlobal * (cellNum / totalCells)
'.Bar4White.Height = barsizeGlobal - (barsizeGlobal * (cellNum / totalCells))
With .Bar4
h = barsizeGlobal * (cellNum / totalCells)
.Top = barsizeGlobal - h
.Height = h
End With
.FrameProgressBarFull.Caption = Int((cellNum / totalCells) * 100) & "%"
End With
End Sub


Private Sub UserForm_Initialize()
With Me.Bar4
.Height = 0
.Top = barsizeGlobal
End With
End Sub




Private Sub CommandButton1_Click()
ThisWorkbook.runit
End Sub

[kcsteele]

Thanks so much to both of you, this is more what I was looking for! :yes