MS Excel

Tá vzdialenosť má byť vynesená na ose Y? V tom prípade by sa pravdepodobne nejednalo o XY graf, ale o čiarový graf s potlačením zobrazenia samotnej čiary, iba so zobrazením jednotlivých bodov...
edit: píšeš, že na ose X majú byť vzdialenosti jednotlivých Exitov, akurát nemajú byť zobrazené čísla, ale názvy Exitov. Čo má byť na ose y?citovat

Ta příloha je to, co potřebuji. Akorát nvm, jak si tam dostal ty popisky bodů??citovat

Jo jasné, akorát je to dost krkolomné. Mě nenapadla ta pomocná řada. Každopádně ten popisek lze dopsat pomocí skriptu, co jsem dříve našel...je to asi jednoduší při větším počtu.

Každopádně si pomohl, díky...


Sub AttachLabelsToPoints()

'Dimension variables.
Dim Counter As Integer, ChartName As String, xVals As String

' Disable screen updating while the subroutine is run.
Application.ScreenUpdating = False

'Store the formula for the first series in "xVals".
xVals = ActiveChart.SeriesCollection(1).Formula

'Extract the range for the data from xVals.
xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
Do While Left(xVals, 1) = ","
xVals = Mid(xVals, 2)
Loop

'Attach a label to each data point in the chart.
For Counter = 1 To Range(xVals).Cells.Count
ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
True
ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
Next Counter

End Subcitovat