< návrat zpět

MS Excel


Téma: Excel-graf XY, změna osy X rss

Zaslal/a 17.9.2014 10:17

Ahoj, potřebuji vytvořit graf XY, kde na X ose budu mít popisky (například EXIT 1, EXIT 2 ...), ale vzdálenost bude různá dle kilometru exitu.
Tedy potřebuji využít typickou vlastnost grafu XY, ale kilometry na ose X, potřebuji nahradit jiným popiskem.

Dík, snad jste to pochopili.

Zaslat odpověď >

icon #021598
avatar
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
icon #021599
avatar
pokus
Příloha: zip21599_pom.zip (6kB, staženo 28x)
citovat
#021600
avatar
Ta příloha je to, co potřebuji. Akorát nvm, jak si tam dostal ty popisky bodů??citovat
icon #021601
avatar
V grafe je použitá pomocná datová sada (Series2). Tá je sformátovaná tak, že nie je viditeľná čiara ani jednotlivé body. Sú u nej zobrazené akurát popisky, ktoré sú zeditované a upravené. Klikni si myškou napr na popisok exit1 (musíš 2x, aby si vybral iba jeden popisok, nie celú sadu) a v riadku vzorcov uvidíš, odkiaľ sa popisok ťahá. Dosť krkolomne sa to vysvetľuje, chce to poznať pár trikov a mať s tým trochu praxe 7citovat
#021605
avatar
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
icon #021607
avatar
akorát je to dost krkolomné
Pokiaľ prídeš na niečo jednoduchšie a budeš mať chuť s riešením sa podeliť, rád sa nechám poučiť 1
Ja by som preferoval v popisku okrem názvu exitu i jeho vzdialenosť, tu je malý pokus o vylepšenie
Příloha: zip21607_pom.zip (6kB, staženo 19x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse