Excel - vba - preset-Achsenbeschriftungen für ein makro - Diagramm generiert

Habe ich ein problem. Sagen wir mal, der Einfachheit halber, ich bin eine einfache Verarbeitung zwei colunms von Daten wiederholt und die Ausgabe ist ein plot, so dass ich ein makro aufgezeichnet. Aber das problem ist, ich will um die Achsenbeschriftungen in das Diagramm, wie ich will, so wie Sie haben (die gleiche) Beton-Namen, jedes mal, die ich das makro ausführen. Aber die vba - makro-code zeichnet keine Informationen über den Unterschied zwischen der X und die Y Achse, und die Folge ist, dass die eine Achse label überschrieben oder gibt es zwei gleiche Achsen-Beschriftungen in der makro - Diagramm generiert. Ich füge hinzu: code-Beispiel (in dem code, ich entfernte alle unnötigen Daten, und solche, die verhindern, dass das makro ausgeführt wird das nächste mal).
Was ich will (ich entschuldige mich für diese unhöfliche Formulierung, aber ich wollte nur streng Zustand, was ist meine Idee): ich möchte eine Lösung haben, so, dass jedes mal, wenn ich das makro ausführen, ich habe eine andere Tabelle, aber mit der gleichen Achse label-Namen, D. H., X-Achse: U [V], Y-Achse: I [A]

code:

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.ApplyLayout (1)
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""I-V char"""
ActiveChart.SeriesCollection(1).XValues = "=hviezd1!$D$2:$D$193"
ActiveChart.SeriesCollection(1).Values = "=hviezd1!$E$2:$E$193"
ActiveChart.Axes(xlValue).AxisTitle.Select
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "I [A]"
ActiveChart.Axes(xlValue).AxisTitle.Select
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "U [V]"

Ich habe versucht das makro aufzuzeichnen, die von verschiedenen Möglichkeiten, wie durch die tool-Leiste in excel (auch mehr Möglichkeiten, durch diese), durch die Tastatur, aber keine aufgezeichneten code enthält alle Informationen, die sich unterscheiden zwischen X-und Y-Achse.

Ich bin mit einem excel 2007 (wie ich gelesen habe, bevor Sie in anderen Fragen, die 2007 excel Diagramm makro-recorder ist ziemlich schlecht und das problem, ich Rede von möglicherweise durch diese verursacht), aber ich freue mich für jede gute Antwort, die helfen können, mein problem zu lösen. Danke für deine Antwort.

InformationsquelleAutor JaroM | 2014-04-14
  1. 3

    Hier ist ein nettes VBA-Skript zum zeichnen eines Balkendiagramms. Sie brauchen, um Veränderungen in der Zelle Werte machen es für Sie arbeiten. Bei mir funktionierte es gut. Dies ist eine Art von Hinweis vielen Dank an alle die net-Usern aus, die ich gelernt VBA (nicht expert level noch)....

    Sub yourMethodName()

Dim myChart As Chart, cht As ChartObject
Dim rngChart As Range, desinationSheet As String
destinationSheet = ActiveSheet.Name
Set myChart = Charts.Add
Set myChart = myChart.Location(Where:=xlLocationAsObject, Name:=destinationSheet)
myChart.SetSourceData Source:=Range("D37:E38").CurrentRegion, PlotBy:=xlColumns
myChart.ChartType = xlColumnClustered
ActiveSheet.ChartObjects(1).Activate
Set cht = ActiveChart.Parent
'Y-axis value is set up below
cht.Chart.Axes(xlValue).MinimumScale = 1
cht.Chart.Axes(xlValue).MaximumScale = 1
' X axis and Y axiz titles
With cht
'X axis title
cht.Chart.Axes(xlCategory, xlPrimary).HasTitle = True
cht.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "All CRs"
 'y-axis title
cht.Chart.Axes(xlValue, xlPrimary).HasTitle = True
cht.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "% Complete"
End With

'Chart area is set up below
Set rngChart = Range("B12:G33")
cht.Left = rngChart.Left
cht.Top = rngChart.Top
cht.Width = rngChart.Width
cht.Height = rngChart.Height
Range("A37").Select

End Sub
    InformationsquelleAutor prm
  2. 0

    Diese:

    With ActiveChart 

 'X axis name
.Axes(xlCategory, xlPrimary).HasTitle = True 
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "X-Axis" 
 'y-axis name
.Axes(xlValue, xlPrimary).HasTitle = True 
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Y-Axis" 
End With
    • Ich danke Ihnen sehr für Ihre Antwort, es hat geholfen!
    InformationsquelleAutor Adach1979
Schreibe einen Kommentar