< návrat zpět

MS Excel

Téma: makro grafy rss

Zaslal/a matty 10.7.2014 7:51

Ahoj, nevíte někdo jaké jsou kódy pro vytvoření bodového grafu s vyhlazenými spojnicemi a s popisky os pomocí makra? Díky

Zaslat odpověď >
Strana:  1 2   další »
Pavlus(10.7.2014 12:06)#020453
avatar
Vyzkoušej záznamník maker a kód si případně následně uprav.
P.citovat
matty2211(11.7.2014 9:19)#020458
avatar
Zkoušel jsem záznamník, ale nevím si rady jak do grafu vložit popisky, nevíte někdo jak na to? Moc by mi to pomohlo, tady jsou kódy obkopírované ze záznamníku:
Sub graf2Napeti()
'
' graf2Napeti Makro
'

'
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""Napětí RF"""
ActiveChart.SeriesCollection(1).XValues = _
"='WLD303_01_01_P_0101_0101_140613'!$D$52:$D$186"
ActiveChart.SeriesCollection(1).Values = _
"='WLD303_01_01_P_0101_0101_140613'!$E$52:$E$186"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=""Síla uzavření"""
ActiveChart.SeriesCollection(2).XValues = _
"='WLD303_01_01_P_0101_0101_140613'!$D$52:$D$186"
ActiveChart.SeriesCollection(2).Values = _
"='WLD303_01_01_P_0101_0101_140613'!$F$52:$F$186"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = "=""Mřížkový proud"""
ActiveChart.SeriesCollection(3).XValues = _
"='WLD303_01_01_P_0101_0101_140613'!$D$52:$D$186"
ActiveChart.SeriesCollection(3).Values = _
"='WLD303_01_01_P_0101_0101_140613'!$G$52:$G$186"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).Name = "=""Tlak vzduchu"""
ActiveChart.SeriesCollection(4).XValues = _
"='WLD303_01_01_P_0101_0101_140613'!$D$52:$D$186"
ActiveChart.SeriesCollection(4).Values = _
"='WLD303_01_01_P_0101_0101_140613'!$H$52:$H$186"
ActiveWindow.SmallScroll Down:=-36
ActiveChart.ApplyLayout (1)
ActiveChart.ChartTitle.Select
Selection.Delete
ActiveSheet.ChartObjects("Graf 7").Activate
ActiveChart.Axes(xlValue).AxisTitle.Select
ActiveSheet.ChartObjects("Graf 7").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graf 7").Activate
ActiveChart.Axes(xlValue).Select
ActiveSheet.ChartObjects("Graf 7").Activate
ActiveChart.Axes(xlValue).MinimumScale = -50
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveSheet.ChartObjects("Graf 7").Activate
ActiveChart.Axes(xlValue).AxisTitle.Select
ActiveSheet.ChartObjects("Graf 7").Activate
ActiveChart.Axes(xlValue).AxisTitle.Select
ActiveSheet.ChartObjects("Graf 7").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graf 7").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graf 7").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
Selection.Delete
ActiveSheet.ChartObjects("Graf 7").Activate
ActiveSheet.ChartObjects("Graf 7").Activate
ActiveWindow.SmallScroll Down:=-15
End Subcitovat
marjankaj(11.7.2014 10:07)#020459
avatar
To sa "nedá" čítať. 6
Nevieš priložiť súbor? Alebo tam máš "citlivé" údaje?citovat
matty2211(11.7.2014 10:56)#020460
avatar
tady je ten soubor v txt
Příloha: txt20460_wld303_01_01_p_0101_0101_1406132334131.txt (9kB, staženo 36x)
citovat
misocko(11.7.2014 10:57)#020461
avatar
ak Ti mozem poradit , tak graf si vytvor rucne a iba data pre graf upravuj makrom (osobna skusenost). stravis vela csu vytvaranim makra na vytvorenie grafu a nakoniec zistis ze je to na .....citovat
matty2211(11.7.2014 11:01)#020462
avatar
problém je právě v tom, že mám těhle souborů stovky a do každého potřebuju udělat grafcitovat
marjankaj(11.7.2014 11:56)#020463
avatar

matty2211 napsal/a:

tady je ten soubor v txtPříloha: 20460_wld303_01_01_p_0101_0101_1406132334131.txt

No do "tohto" súboru ti asi nikto žiadne makro nevloží. 6citovat
lubo(11.7.2014 12:40)#020465
avatar
Jaké popisky chceš? Pokud to jsou popisky os tak


With ActiveChart.Axes(xlValue)
.MajorGridlines.Delete
.HasTitle = True
.AxisTitle.Text = "y osa"
End With

With ActiveChart.Axes(xlCategory)
.HasTitle = True
.AxisTitle.Text = "x osa"
End With


Mimochodem, co chceš dělat se stovkami grafů?citovat
icon eLCHa(11.7.2014 12:48)#020466
eLCHa
Vytvořte si jeden graf ručně a ten potom kódem kopírujte a měňte pouze zdrojová data.
Tedy pokud se jedná o tentýž graf ve stovce! souborůcitovat
matty2211(11.7.2014 13:23)#020467
avatar
Jj potřebuju popisky os pro bodový diagram s vyhlazenými spojnicemi. Tady je diagram co jsem zatim udelal.
Příloha: 7z20467_makro-vytvoreni-tabulky.7z (42kB, staženo 39x)
citovat

Strana:  1 2   další »

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje