Grafico gauge[português]
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:
[English] How to create a Gauge graphic speedometer?
let's see how:
- first get a background image for the gauge. - second a pointer. - then, insert a circle (drawing) without line or background color. - Group pointer and the circle so that the base of the pointer is in the middle of the circle. - after this we can create the graph with a macro like this:
Option Explicit
Sub GoSpeedRacer()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' '
' '
' Built by Josemar © www.jmdias.com '
' '
' Modified by Michael D. Newby '
' www.recursivecreavitity.com ' ' '
' '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Rng As Integer
Dim Speed As Integer
Dim i As Integer
i = 0
Rng = (Range("G24").Value / 100) * 160
Speed = Range("SpeedHold").Value
With ActiveSheet.Shapes("Grupo 5")
.Rotation = 0
Select Case Speed
Case 90 To 100
For i = 1 To Rng + 5
.IncrementRotation 1
DoEvents
Next i
Case 80 To 89
For i = 1 To Rng + 5 .IncrementRotation 1
DoEvents
Next i Case 70 To 79 For i = 1 To Rng + 3 .IncrementRotation 1
DoEvents
Next i Case 60 To 69 For i = 1 To Rng + 2 .IncrementRotation 1
DoEvents
Next i Case 50 To 59 For i = 1 To Rng + 1
.IncrementRotation 1
DoEvents
Next i Case 40 To 49 For i = 1 To Rng + 1 .IncrementRotation 1
DoEvents
Next i Case Else For i = 1 To Rng .IncrementRotation 1
DoEvents
Next i End Select
End With
Range("SpeedHold").Value = Speed
Range("E7").Select
End Sub
ficando desta forma: |
|
 Updating...
Ĉ Josemar Machado, 23 de mai. de 2011 15:53
Josemar Machado, 3 de out. de 2009 14:57
Ĉ Josemar Machado, 3 de out. de 2009 14:57
|