Sub OpretGraf()

'Opretter og formatere graf

    With ActiveSheet.ChartObjects.Add _
            (Left:=10, Width:=800, Top:=10, Height:=400)
        .Chart.SetSourceData Source:=Sheets(1).Range("A:A,G:G")
        .Chart.ChartType = xlLine
        
        'Y-akse max og min
        
        .Chart.Axes(xlValue).MaximumScale = 40
        .Chart.Axes(xlValue).MinimumScale = -40
        .Chart.Axes(xlValue).MajorUnit = 5
        
        'Text på X- og Y-akse
        
        .Chart.Axes(xlCategory).TickLabelPosition = xlLow
        '.Chart.Axes(xlCategory).TickLabels.Offset = 1000
        .Chart.Axes(xlCategory).TickLabels.Font.Size = 10
        .Chart.Axes(xlCategory, xlPrimary).HasTitle = True
        .Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Log tidspunkt"
        
        
        .Chart.Axes(xlValue, xlPrimary).HasTitle = True
        .Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Spænding"
        
        'Font størrelse og tal format
        
        .Chart.Axes(xlValue).TickLabels.NumberFormat = "0"
        .Chart.Axes(xlValue).TickLabels.Font.Size = 12
        
        'Data linje tykkelse
        
        .Chart.SeriesCollection(1).format.Line.Weight = 1
        
        'Fjerner data label
        
        .Chart.HasLegend = False
        
        'Indsætter overskrift med logging interval. Start tid+dato - slut tid+dato
        
        .Chart.HasTitle = True
        .Chart.ChartTitle.Text = IIf([a2].Text < "", [a2].Text, [a2].End(xlDown).Text) & _
        " - " & Cells(Rows.Count, "A").End(xlUp).Text


    End With

End Sub