質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.03%

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

解決済

回答 2

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 2,432

yamatail

score 32

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

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

+1

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

    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)

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/10/15 13:36

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

    キャンセル

check解決した方法

0

ファイルを読み込む際の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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.03%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる