Diagram

Hej Jannick.

Jeg har engang lavet nedenstående hvor 2 vandrette \"søjler\" tegnes i en picture-box og illustrerer værdier:  Forbrug i forhold til budget, farveskrift for overforbrug.

Sub Lab2_Click ()
  Dim ialt, fo0, fo1, re0, re1, fra As Variant
  Dim dag, fa1, fa2 As Integer
  ramgraf.Visible = True
  ramgraf.ZOrder
  fra = DateValue(txtdato.Text)
  dag = ((Month(fra) - 1) * 30) + Day(fra)
  graf.Cls
  graf.DrawWidth = 1
  graf.BackColor = QBColor(15)
  fa1 = 9
  fa2 = 10
  graf.Scale (0, 0)-(110, 50)
  ialt = Val(labbu.Caption)
  fo0 = 30 * f / dag
  re0 = 30 * (ialt - f) / (365 - dag)
  If fo0 + re0 = 0 Then Exit Sub
  fo1 = Int((100 * fo0) / (fo0 + re0))
  re1 = Int((100 * re0) / (fo0 + re0))
  If re0 <= 0 Then
    fa2 = 12
    re1 = 0
    fo1 = 100
  End If
  labforpct.Caption = fo1
  labrestpct.Caption = re1
  labforbrdgl.Caption = Format(f / dag, \"###.##\")
  labrestdgl.Caption = Format((ialt - f) / (365 - dag), \"###.##\")
  If re1 <= 0 Then graf.BackColor = QBColor(12)
  graf.DrawWidth = 15
  If fo1 > 0 Then graf.Line (0, 15)-(fo1, 15), QBColor(fa1), B
  If re1 > 0 Then graf.Line (0, 35)-(re1, 35), QBColor(fa2), B
End Sub

Jeg har været kreativ dengang - 1998.  Måske inspiration?

M.v.h.  Jørn

Hej Jannick

Excel\'s indbyggede graffunktion er helt sikkert tilstrækkeligt til at løse dit problem. Jeg har endnu ikke haft et diagram/kurve/søjle problem, som Excel ikke har kunnet løse.

Send evt. dine data i xls-format til jan_vogt_hansen@hotmail.com

Så skal jeg returnere nogle eksempler.

Lukker det meget gamle spg, løste det med en komponent.