[Resolvido]Redimensionar Imagem conforme % (Termometro)

Bom dia!

preciso criar alguns termômetros com escala de:

0%
30%
50%
70%
100%

a Ideia é colocar o desenho de um termômetro e uma imagem vermelha (um quadro) que redimensiona dentro do termômetro (temperatura) conforme a porcentagem informada

a duvida é como fazer para imagem redimensionar conforme a escala?

obrigado pela ajuda.

Olá Nois,

Acho que pode resolver com algo assim:

Código:

Dim xTer
xTer = 35  ' alterar para o campo origem
   
    If xTer = 0 Then
        MsgBox "Está a zero", vbInformation, ""
    ElseIf xTer >= 30 Then
        MsgBox "Está a 30", vbInformation, ""
    ElseIf xTer >= 50 Then
        MsgBox "Está a 50", vbInformation, ""
    ElseIf xTer >= 70 Then
        MsgBox "Está a 70", vbInformation, ""
    ElseIf xTer = 100 Then
        MsgBox "Está a 100", vbInformation, ""
    End If

Será alterar a MsgBox por indicar o caminho da imagem.
Abraço

Ola!

eu preciso de algo visual mesmo, pois ira servir para um outro projeto similar, tipo exemplo abaixo onde se preenche dentro da estrutura

no entanto ao inves de ser na horizontal, seja na vertical

__________________________
|||||||||||| 30%
__________________________

__________________________
|||||||||||||||||||50%
__________________________


vou tentar com um grafico pode ser que de certo

Olá,
Seria colocar a imagem visível conforme a percentagem.
Tal como descreve na mensagem n. 1.
Graficos pode se uma alternativa.
Também pode ter um objecto a dimensionar a altura por código.
Abraço

eu imaginei de inicio um retangulo que redimensione conforme o tamanho informado em uma caixa de texto

mas nao achei ainda nada parecido sem complicações

Olá Nois,
Veja se é isso ou ajuda:
https://www.maximoaccess.com/t30888-exemplo-termometro-grafico-na-vertical

Abraço

Isso que eu estava procurando, muito obrigado mais uma vez

Olá Nois,
Fico feliz por ter ajudado.
Obrigado pelo retorno.
Abraço