< návrat zpět
MS Excel
Téma: VBA - přesné umístění grafu
Zaslal/a smyslene 19.9.2016 7:53
ahoj
Nevím, jak docílit přesného umístění grafu
http://prnt.sc/cjo5qv
mám v makru
'Your data range for the chart
Set rng = ActiveSheet.Range("A" & grafdata1 & ":B" & grafdata2)
'Create a chart
Set cht = ActiveSheet.ChartObjects.Add( _
Left:=Cells(grafdata1, "d").Left, Width:=450, _
Top:=Cells(grafdata1 + 5, "d").Top, Height:=250)
'Give chart some data
cht.Chart.SetSourceData Source:=rng
grafdata1 = 194 a obrázek ukazuje ideální stav - levý horní roh grafu je umístěn v buňce "D199"
Data nezačínají vždy na řádku 194, ale mění se podle počtu řádků. A graf mám vždy posunutý nahoru a už mne to vytáčí
Nevíte někdo, jak přinutit graf aby byl tam kde chci? Díky
AL(19.9.2016 9:32)#032826 Data nezačínají vždy na řádku 194, ale mění se podle počtu řádků.
..no, a danú hodnotu (194 alebo inú) musíš potom načítať do tej premennej grafdata1 a použiť pre vlastnosť top bunky, potažmo grafu..
citovat
smyslene(19.9.2016 12:04)#032827 o tom právě píšu, že se to načte a stejně ten graf je mimo.
názorněji: data se začítají na řádku třeba 194, pak třeba 66, pak třeba 450 a graf není na místě 199, nebo 71, nebo 455, ale jinde a nevím proč.
citovat
elninoslov(19.9.2016 12:37)#032828 Toto mi fachá:
Sub Graf()
Dim Rng As Range, Cht As ChartObject, GrafData1 As Long, GrafData2 As Long
GrafData1 = 194
GrafData2 = 220
With ActiveSheet
Set Rng = .Range("A" & GrafData1 & ":B" & GrafData2)
Set Cht = .ChartObjects.Add(.Cells(GrafData1, "D").Left, .Cells(GrafData1 + 5, "D").Top, 450, 250) 'Create a chart
End With
Cht.Chart.SetSourceData Source:=Rng 'Give chart some data
End Subcitovat
AL(19.9.2016 13:24)#032830 Skontroluj si, aká hodnota sa ti načíta do premennej grafdata1, než kód vykreslí graf. Ja som ten tvoj kód vyskúšal a graf je umiestnený o 5 buniek nižšie, než je riadok s hodnotou rovnou premennnej grafdata1 - presne podľa očakávania. Čiže, problém bude v tvojom prípade asi s danou hodnotou premennej, ktorá zrejme nadobúda hodnotu inú, než čakáš.
citovat
smyslene(19.9.2016 13:47)#032831 krokuju makra F8 a hodnota je tam těch 194, proto žasnu, že ten graf je mimo
každopádně děkuju za odezvu
citovat