自動數據範圍識別當繪製圖形的Excel VBA

Question

我有一個生成數據的兩個colums一個VBA代碼。這種分析重複產生在同一列，但對於不同的條件和場所的第一次迭代的輸出低於這個數據更多的數據。如何讓代碼生成生成的旁邊，每個數據塊中的XY散點圖與流暢的線條？我的嘗試是在下面，但是我遇到了三個問題：1）它只在調試停止宏之前生成一個圖形，2）它生成一個條形圖而不是散點圖3）如何獲得生成的每個圖形按比例放置在它正在繪製的數據旁邊，我得到一列圖表？

Sub TestExample() 

    Dim NoIteration As Integer 
    Dim Iteration As Integer 
    NoIteration = Range("N26").Value 

    Dim YieldIteration As Integer 
    Dim NoOfJumps As Long 
    Dim minyield As Long 
    Dim maxyield As Long 
    Dim jump As Long 
     NoOfJumps = Range("Q24").Value 
     minyield = Range("Q25").Value 
     maxyield = Range("Q26").Value 
     jump = Range("Q27").Value 

    Dim xaxis As Range 
    Dim yaxis As Range 
     Dim c As Chart 
     Dim Sh As String 
     Sh = ActiveSheet.Name 


    Range("M29:T1000").Select 
    Selection.Clear 

    For jump = 0 To NoOfJumps 


     For Iteration = 0 To NoIteration 
        'Print Intervals 
        Range("M30").Offset(NoIteration + Iteration + 4, 0).Value = Range("V19").Value * Iteration 

        'Solve weights for minimum Spot SD for each given interval 
        SolverReset 
        SolverOk SetCell:="$T$18", MaxMinVal:=2, ValueOf:="0", ByChange:="$O$20:$R$20" 
        SolverAdd CellRef:="$T$17", Relation:=2, FormulaText:=Range("M30").Offset(NoIteration + Iteration + 4, 0).Value 
        SolverAdd CellRef:="$T$20", Relation:=2, FormulaText:=1 
        SolverAdd CellRef:="$T$7", Relation:=1, FormulaText:=minyield + jump 'State min required yield 
        SolverAdd CellRef:="$T$7", Relation:=3, FormulaText:=maxyield + jump 'State max required yield 
        SolverAdd CellRef:="$O$20:$R$20", Relation:=3, FormulaText:="0" 
        SolverSolve UserFinish:=True 
        SolverFinish KeepFinal:=1 

        'Print Income Return, SD 
        Range("N30").Offset(Iteration + jump * 50, 0).Value = Range("T7").Value 
        Range("O30").Offset(Iteration + jump * 50, 0).Value = Range("T8").Value 

        'Print Spot Return, SD 
        Range("N30").Offset(NoIteration + Iteration + 4 + jump * 50, 0).Value = Range("T17").Value 
        Range("O30").Offset(NoIteration + Iteration + 4 + jump * 50, 0).Value = Range("T18").Value 


        'Print Total Return, SD 
        Range("N30").Offset(NoIteration * 2 + Iteration + 8 + jump * 50, 0).Value = Range("AC17").Value 
        Range("O30").Offset(NoIteration * 2 + Iteration + 8 + jump * 50, 0).Value = Range("AC18").Value 


     Next Iteration 

     Set yaxis = Range(Range("N30").Offset(Iteration + jump * 50, 0), Range("N30").End(xlDown)) 
     Set xaxis = Range(Range("O30").Offset(Iteration + jump * 50, 0), Range("$O30").End(xlDown)) 


Set c = ActiveWorkbook.Charts.Add 
ActiveChart.Location Where:=xlLocationAsObject, Name:=Sh 
'Set c = c.Location(Where:=xlLocationAsObject, Name:="Sheet1") 
With c 
    .ChartType = xlXYScatterLines 
    ' set other chart properties 
End With 

Dim s As Series 
Set s = c.SeriesCollection.NewSeries 
With s 
    .Values = yaxis 
    .XValues = xaxis 

End With 


    Next jump 
End Sub 

Answer 1

1. 有可能是這是很難的問題很多的分析時，我們沒有您正在使用的數據。但是，請參閱下一個可能有用的問題並解決第一個問題。

2. 如果你終於把你的圖表作爲ChartObject一些表，你可以做到這一點有點不同的方式。此外，默認情況下新圖表是酒吧風格。爲了避免它改變成則ScatterLines（我想原因有一些例外）嘗試（在某些領域，而不是你）使用下面的代碼：

   Dim c As Chart ==>變化爲Dim c as Shape

全部分開始：Set c=Activeworkbook.Charts.Add直到End With用下面的代碼替換：

Set c = Sheets(Sh).Shapes.AddChart(xlXYScatterLines, 10, 10, 200, 200) 

Dim s As Series 
Set s = c.Chart.SeriesCollection.NewSeries 
With s 
    .Values = yaxis 
    .XValues = xaxis 

End With 

1. 要設置的位置你圖表嘗試循環結束前使用類似的解決方案：但

   'setting position 
   With c 
       .Left = Range("M10").Offset(0,1).Left 
       .Top = Range("M10").Offset(0,1).Top 
   End With 
   

，而不是Range("M10")把你的數據範圍的參考。

Answer 2

此代碼在列中查找代碼並繪製指定範圍內的圖。當第一個代碼通過循環時，它抵消了查找和繪圖。

Dim srs As Series 

Set cht = ActiveChart 
'GRAPH 1 
    Set rng1 = ActiveSheet.Range(Range("W30").Offset(jump * 50, 0), Range("AA40").Offset(jump * 50, 0)) 


With ActiveSheet.ChartObjects.Add(Left:=rng1.Left, Width:=rng1.Width, Top:=rng1.Top, Height:=rng1.Height) 
'(Left:=100, Width:=375, Top:=75, Height:=225) 
    .Chart.ChartType = xlXYScatterLines 

    Set srs = .Chart.SeriesCollection.NewSeries 
    srs.Name = "Graph1" ' 
    srs.XValues = Range(Range("O30").Offset(jump * 50, 0), Range("O30").Offset(jump * 50, 0).End(xlDown)) 
    srs.Values = Range(Range("N30").Offset(jump * 50, 0), Range("N30").Offset(jump * 50, 0).End(xlDown)) 

End With 
    End With