Exemplo Termômetro - Gráfico na Vertical

Olá a todos,
A propósito de questão de colega, partilho exemplo de "Termômetro".
Também pode ser usado como Gráfico ou Barra de Progresso na vertical.
Será adaptar.

Código utilizado:

Código:

Private Sub xValor_AfterUpdate()
'Alvaro Teixeira  (ahteixeira) 2017 para MaximoAccess
Dim i As Integer
i = Me.xValor * 20

    If i = 0 Then
        Me.barra.Visible = False
    Else
        Me.barra.Height = i
        Me.barra.Top = 3000 - i
        Me.barra.Visible = True
    End If
End Sub

Abraço e bons estudos com o MaximoAccess

Belo exemplo Alvaro, obrigado pela partilha!

onde esta a planilha ?

Ola Ricardo,

Foi incluido na mensagem nr. 1 .

Nota, esta mensagem e a sua vão ser eliminadas.

Abraço