Sziasztok!

Verax, gondolkoztam színezett cellákban, viszont az a baj, hogy egy adott pontban egyszerre kettő, vagy akár több járat is lehet.

Imre, kipróbáltam az általad javasoltakat, meg is próbáltam hozzá megírni a makrót, amivel sikerült is megrajzolnom egy „járatot”, egyszerűsítve, de a végén hibát jelez.

`Sub vonal()

Dim all, ido, mi, i As Variant

i = 2

Do Until Sheets(„Menetrend páros”).Cells(i, 2) = „”

all = Sheets(„Menetrend páros”).Cells(i, 4).Value
ido = Sheets(„Menetrend páros”).Cells(i, 5).Value
mi = Sheets(„Menetrend páros”).Cells(i + 1, 5) – Sheets(„Menetrend”).Cells(i, 5)

Sheets(„Ábra”).Shapes.AddLine BeginX:=Cells(all, ido).Left, BeginY:=Cells(all, ido).Top, EndX:=Cells(all + 1, ido + mi).Left, _
EndY:=Cells(all + 1, ido + mi).Top

i = i + 1

Loop

Do Until Sheets(„Menetrend páratlan”).Cells(i, 2) = „”

all = Sheets(„Menetrend páratlan”).Cells(i, 4).Value
ido = Sheets(„Menetrend páratlan”).Cells(i, 5).Value
mi = Sheets(„Menetrend páratlan”).Cells(i + 1, 5) – Sheets(„Menetrend”).Cells(i, 5)

Sheets(„Ábra”).Shapes.AddLine BeginX:=Cells(all, ido).Left, BeginY:=Cells(all, ido).Top, EndX:=Cells(all + 1, ido + mi).Left, _
EndY:=Cells(all + 1, ido + mi).Top

i = i + 1

Loop

End Sub

Azt szeretném kérdezni, hogy hol a hiba a kódban?
A rajzolt vonalak 4-5 óra között vannak, a kéket rajzoltam a makróval, a pirosat szabadon.
A cél az lenne, hogy úgy, mint a pirosnál, makróval tudjak olyan vonalat rajzolni a járatoknak, amik egyrészt tudják az egyes megállókban az állásidőt értelmezni, másrészt, ha van rá lehetőség, folyamatos vonalak, melyeket ha kell, egy az egyben lehet mozgatni. Van lehetőség esetleg a vonalaknak konkrét töréspontokat koordinátával definiálni?
Hogyan tudok egy ilyen vonalat megformázni, színre, vastagságra?
Tudom -e indítani a vonalat a cella jobb alsó sarkától? (Top helyett a bottom alkalmazása nem sikerült…)
A végcél az lenne, hogy (sokkal) több járatot is tudjak ábrázolni egy ilyen grafikonon, és az útvonal(függőleges tengely) is viszonylag egyszerűen variálható legyen.

Válaszotokat előre is köszönöm!

Üdv: Gábor

Köszönöm!