MS Excel

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

Vyzkoušej záznamník maker a kód si případně následně uprav.
P.citovat

matty2211(11.7.2014 9:19)#020458

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

To sa "nedá" čítať.

Nevieš priložiť súbor? Alebo tam máš "citlivé" údaje?citovat

matty2211(11.7.2014 10:56)#020460

tady je ten soubor v txt

Příloha: txt

20460_wld303_01_01_p_0101_0101_1406132334131.txt (9kB, staženo 35x)

citovat

misocko(11.7.2014 10:57)#020461

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

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

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ží.

citovat

lubo(11.7.2014 12:40)#020465

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