Tutorial - Grafico em gauge - parte 1

Como criar um grafico no formato Gauge (velocimetro)?

vejamos como:

- primeiramente consiga uma imagem de fundo para o gauge.
- em segundo um ponteiro.
- então insira um circulo (desenho) sem linha nem cor de fundo.
- agrupe o ponteiro e o circulo de forma a que a base do ponteiro fique no meio do circulo.
- após isto podemos criar o grafico com uma macro tipo esta:

     Dim Oldcell
     Dim Rng, Angle, i

Set Oldcell = ActiveCell 'define a célula atual para retorno
 Rng = Range("s12").Value ' define o angulo de 0 graus a 160 graus

    With ActiveSheet.Shapes("Grupo 5") 'este é o chape que irá girar
    .Rotation = 0 'reseta a zero a rotação
     For i = 1 To Rng 'define que para cada incremento de grau
         Range("r13").Value = (i / Range("r15").Value) * 10 'mostra no grafico o valor de acordo com: 10/160 * 100
         .IncrementRotation 1 ' define a velocidade do ponteiro, quanto maior, menor será a precisão
         DoEvents
     Next i
End With

Range("R13").Value = Range("l4").Value 'exibe o valor digitado para evitar arredondamentos

Oldcell.Select 'retorna a célula selecionada

'Build by Josemar © www.jmdias.com

ficando desta forma:


Mais tutos em breve...
Baixe a Planilha:

• Gauge chart.zip 66k
• Gauge chart 2009.xls 153k