Dwa wykresy na jednym, "secondary axis".

Bardzo ciekawe pytanie na stronach Altkom: mamy serie danych w dwóch różnych tabelach. Na osiach x daty. Zakresy osi x pokrywają się, ale nie ich "rozdzielczość". Nie można danych z tabeli drugiej uśrednić, tak by pasowały do zakresów dat z tabeli 1, bo można utracić jakąś dynamiczną zmianę.

Tworzymy wykres. Dla serii z drugiej tabeli zaznaczamy, że chcemy skorzystać z "secondary axis", drugiej osi. Jeżeli któraś z serii danych jest opisana drugą "secondary" osią y to na wstążce narzędzi Tabela ukażą się opcje umożliwiające dodanie drugiej osi x, następnie można w zakresach danych źródłowych wskazać drugi zakres osi x.

Wskazówki znalazłem tutaj: http://stackoverflow.com/questions/22492786/excel-2013-horizontal-secondary-axis. Ciekawe, czy można sobie ułatwić tworzenie takich wykresów za pomocą vba, np. ciekawa dyskusja na ten temat na stronach: http://answers.microsoft.com/ 
oraz tutaj http://www.mrexcel.com/... a przede wszystkim tutaj http://stackoverflow.com/

Mój roboczy kawałek kodu:

Sub AddChart()


With ActiveSheet.Shapes.AddChart.Chart
    '.Name = "TestChart"
    .SetSourceData Source:=Range("'Sheet1'!$B$7:$E$14")
    .ChartType = xlColumnClustered
    .SeriesCollection(3).ChartType = xlLine
    .SeriesCollection(3).AxisGroup = xlSecondary
    .HasLegend = False

       ' add labels to Axes

       .Axes(1, xlPrimary).HasTitle = True
       '.Axes(1, xlPrimary).AxisTitle.Text = "Time S"

       .Axes(2, xlPrimary).HasTitle = True
       '.Axes(2, xlPrimary).AxisTitle.Text = "Current mA"
         
         .Axes(2, xlSecondary).HasTitle = True
       '.Axes(2, xlSecondary).AxisTitle.Text = "Temperature deg C"




End With





'
'     .HasAxis(xlCategory, xlPrimary) = True
'     .HasAxis(xlCategory, xlSecondary) = True
'     .HasAxis(xlValue, xlPrimary) = True
'     .HasAxis(xlValue, xlSecondary) = True
'     .Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
'     .Axes(xlCategory, xlSecondary).CategoryType = xlAutomatic
'  End With




End Sub

Plik dwa wykresy w jednym (na razie bez vba)