Diagram., kombinere xy og stablet stolpe. Gjerne VBA-løsning

i VBA kan man velge sekundær Y akse ved å skrive:
AxisGroup = 1.
finnes det en tilsvarende metode for å velge sekundær x-akse?

Prøv at se på

http://peltiertech.com/Excel/Charts/ClusterColAndLine.html

Hvis det var det du ønskede, skal du altså ikke øge pointene - jeg har jo ikke rigtigt lavet noget.

hei sjap
siden så ineteresant ut, men her er verdiene samlet som stolper i grupper ved siden av hverandere. jeg ønsker dem oppe på hverandere.

tror det jeg kaller stblet stolpe kalles
Staced Columns på engelsk

oyejo -> Det har du jo ret i. Jeg havde ikke set nærmere efter - jeg tænkte blot at det kunne ændres via indstillinger. Men jeg kan godt se at det duer ikke i det eksempel. Beklager.

Straks har jeg en ny idé:

- Du laver dit stolpediagram som normalt
- Tilføj data og vælg dem, der skal vises i xy-diagram
- Marker de nye data i diagrammet og angiv at de skal bruge de sekundære akser
- Mens den nye serie stadig er markeret kan du angive, at diagramtypen skal være xy
- Husk eventuelt lige at rette x-værdierne i serien

Prøv det!

Du behøver jo strengt taget ikke bruge xy. Da dit x-akse format (på dine måledata) er datotid, kan du lige så godt bruge diagramtypen Kurve. Kombinationen af diagramtypen Kurve og datotidsformatet giver nogen fordele, ved formatering af akserne (kan f.eks. angive at der skal være 2 måneder mellem aksemærker).

Hei sjap!
din ide 15:45:11 fungerer faktisk ganske bra.
den med kurve og datotid format fikk jeg problemer med fordi den minste oppløsning på tidsskalen var 1 dag.
( er det riktig? ... jeg fikk den ikke til å fungere)
Har lagt inn en ny kolonne mellom kolonne E og F med etiketter, som blir benyttet av dataseriene i (nå) kolonne F Og G.

Skal se litt mere på siden du henviste til,
det var noe stoff der om en 3. y-akse
Takker for hjelpen så langt, men lar spørsmålet stå åpent til over helgen.
Kanskje det kommer flere innspill.

Ønsker deg en riktig god helg :-)


PS! En revidert makro ble slik:
Sub Cht()
Dim i As Long
  Dim Cht As Chart
  Set Cht = Charts.Add
  With Cht
      .ChartType = xlColumnStacked
      .SetSourceData Source:=Sheets("Ark1 ").Range("F1:H5"), PlotBy:=xlRows
      .SeriesCollection.Add Source:=Sheets("Ark1 ").Range("A1:E25"), _
        Rowcol:=xlColumns, SeriesLabels:=True, _
        CategoryLabels:=True, Replace:=False
      For i = 5 To 8
        .SeriesCollection(i).ChartType = xlXYScatterLinesNoMarkers
      Next
  End With
End Sub

Hei oyejo
Jeg tror du har ret i at mindste opløsning på tidsskala er 1 dag. Jeg er vant til at operere med daglige data, så jeg tænkte ikke på at du havde en finere opløsning.

Også god helg til dig :0)

Hei sjap,
takker så mye for hjelpen, vet ikke hva jeg skulle gjort uten Eksperten :-)
du finner resten av dine point's her.
http://www.eksperten.dk/spm/525543
mvh
oyejo