vba excel2010 散布図のデータ指定方法

Question

1つ目のマクロで、テキストファイルのデータをグラフにプロットさせます。

2つ目のマクロで、1つ目のテキストファイルが更新されていればその分のデータを追加し、
追加分グラフにも反映させるようなプログラムを作っています。

1つ目は出来ました。
以下、コード(グラフ作成部分)とイメージです。

    'グラフ作成
    Dim j As Integer
    Dim rowMax As Long
    Dim colMax As Long
    Dim MyRange As Range
    Dim chartObj As ChartObject
    Dim Color As String
    Dim ColorNo As Integer
    
    rowMax = Cells(Rows.Count, 1).End(xlUp).Row
    Cells(2, UBound(arr) + 2) = "rowMax"
    Cells(2, UBound(arr) + 3) = rowMax
    
    colMax = UBound(arr)
        
    Set MyRange = Columns("B:F")
    
    Set chartObj = ActiveSheet.ChartObjects.Add(500, 100, 450, 300)
    
    With chartObj.Chart
        '元データ範囲の設定
        .SetSourceData MyRange, xlColumns 'データ範囲
        .PlotArea.Interior.ColorIndex = 2 'プロットエリア背景色　城
        .ChartArea.Fill.BackColor.SchemeColor = 2 '背景色　白
        .Axes(xlCategory).MinimumScaleIsAuto = True
        .Axes(xlCategory).MaximumScaleIsAuto = True
        .HasTitle = True 'タイトル表示
        .ChartTitle.Text = "Data-Plot" 'タイトル
        '全系列に対する処理
        For j = 1 To .SeriesCollection.Count
            With .SeriesCollection(j)
                .ChartType = xlXYScatterLinesNoMarkers 'マーカー付き折れ線グラフ
                .MarkerSize = 2 'マーカーサイズ
                .Format.Fill.ForeColor.RGB = RGB(255, 255, 255) 'マーカー白抜き
                .Format.Line.Weight = 1.5 '線の細さ
                ColorNo = 4 + j
                .Format.Line.ForeColor.ObjectThemeColor = ColorNo '系列の色
                Select Case j
                    Case 1, 2, 3  '温度(K)
                        .MarkerStyle = xlMarkerStyleCircle '円形のマーカー
                        .AxisGroup = 1 '主軸
                    Case 4 '電圧(V)
                        .MarkerStyle = xlMarkerStyleX '円形のマーカー
                        .AxisGroup = 2 '第2軸
                End Select
            End With
        Next
    End With

これに、データを追加してデータ範囲を指定する時に指定方法がわからず上手くグラフを更新できません。
1つ目と同じ指定方法をしても青枠のようになってしまい、x軸が無くなってしまいます。

    'グラフプロット
    Dim MyRange As Range
    Dim Targetchart As ChartObject
    
    Set MyRange = Columns("B:F")
    Set Targetchart = ActiveSheet.ChartObjects(1)
    Targetchart.Chart.SetSourceData Source:=MyRange, PlotBy:=xlColumns

詳しい方、どうかご教授頂けませんでしょうか。
宜しくお願い致します。m(_ _)m

Answer 1

Set chartObj = ActiveSheet.ChartObjects.Add(500, 100, 450, 300)の前に
以下のように、グラフがあればグラフを一旦削除するステートメントを追加してはいかがでしょうか。
そうすれば、データを追加した場合でも１つ目のマクロをそのまま使えます。

    Set MyRange = Columns("B:F")

    If ActiveSheet.ChartObjects.Count > 0 Then
        ActiveSheet.ChartObjects.Delete
    End If

    Set chartObj = ActiveSheet.ChartObjects.Add(500, 100, 450, 300)

Comments

[yamatail]

ご助言ありがとうございます。理想の動作が実現しました。
一度消して、リメイクする場合、データが増えていくと少し重くなるでしょうかね。そこは、ちょっと使いながら検証してみます。
しかしながら、範囲をクリック&ドラックで変えるだけの動作なのにマクロだとややこしくなりますね。。。初心者の私には手を焼く作業です。

Answer 2

ファイルを読み込む際のMyRangeのデータ範囲を固定することで、2つ目のマクロの追加テキストがエクセルシートに追加したタイミングでグラフも更新するようになりました。

しかしデータ範囲をあまりに大きくしてしまうと、マクロ自体が重くなるようなので、注意が必要です。

tatsu99様のアドバイスのように一度消して、再描写のほうが早いような気がします。

    Dim MyRange As Range
    Dim Targetchart As ChartObject

    Set MyRange = Columns(Cells(1, 2), Cells(5000, 6))
    Set Targetchart = ActiveSheet.ChartObjects(1)
    Targetchart.Chart.SetSourceData Source:=MyRange, PlotBy:=xlColumns