VBA 読み込んだエクセルファイルからグラフの集約させたい

Question

■実現したいこと
エクセルファイルの中に散布図で作成されたグラフシートがありますが、これを1つに集約して表示させたいです。
画像3と画像5が散布図になりますが、これをVBAで1つに集約可能でしょうか。
完成したのが、画像6になります。
集約した際に、1つ目のファイルは、赤で表現し、2つ目のファイルは、青で表現させたいです。

■分からないこと
対象のエクセルファイルを読み込んだ後、どうやってグラフを集約させるか分からないです。

■前提
対象のエクセルファイルを読み込んだプログラムは作成したのですが続きが難しい状態です。

画像が以下になります。

画像1
この画像は、実行画面です。
③の「錘のグラフ集約」ボタンを押すと、①と②の散布図のグラフが集約。
結果画面は、この実行ファイルの別シートでお願いします。

画像2
画像1で選択した「1.錘の散布図ファイル」の[記入]シートです。

画像3
画像2で作成した[散布図]シートです。

画像4
画像1で選択した「2.錘の散布図ファイル」の[記入]シートです。

画像5
画像4で作成した[散布図]シートです。

画像6
これが完成イメージなります。

コードが以下になります。

Private Sub File_Select_Button1_Click()
'-------------------------------------------------------------------------------
'   File_Select_Button1
'   説明
'       1.錘の散布図ファイル選択 クリック時
'-------------------------------------------------------------------------------
    Dim FType As String     'ファイルの種類
    Dim Prompt As String    'ダイアログのタイトル
    Dim Target As String    '任意読み込むパス
    Dim FPath As Variant    'ファイル参照パス
    Dim Pos As Long         '参照先のセル
    Dim WS As Worksheet     '対象シート名
    
    Set WS = Worksheets("グラフデータ読み込み")
    
    '----- 選択できるファイルの種類を".xls"に限定
    FType = "Excelブック,*.xls"
    
    '----- ダイアログのタイトルを指定
    Prompt = "錘の散布図ファイルを選択して下さい"
    
    '----- ファイル参照ダイアログの表示
    FPath = Application.GetOpenFilename(FType, , Prompt)
    
    
    '----- ダイアログでキャンセルボタンが押された場合は処理を終了
    If FPath = False Then
        End
    End If
    
        '----- H6セルにファイル名をセット
    WS.Cells(6, 8).Value = FPath
    Pos = InStrRev(Cells(6, 8).Value, "\")

End Sub

Private Sub File_Select_Button2_Click()
'-------------------------------------------------------------------------------
'   File_Select_Button2
'   説明
'       2.錘の散布図ファイル選択 クリック時
'-------------------------------------------------------------------------------
    Dim Ftype_2 As String   'ファイルの種類
    Dim Prompt_2 As String  'ダイアログのタイトル
    Dim Target_2 As String  '任意読み込むパス
    Dim FPath_2 As Variant  'ファイル参照パス
    Dim Pos_2 As String     '参照先のセル
    Dim WS_2 As Worksheet   '対象シート名
    
    Set WS_2 = Worksheets("グラフデータ読み込み")

    '----- 選択できるファイルの種類を".xls"に限定
    Ftype_2 = "Excelブック,*.xls"
    
    '----- ダイアログのタイトルを指定
    Prompt_2 = "錘の散布図ファイルを選択して下さい"
    
    '----- ファイル参照ダイアログの表示
    FPath_2 = Application.GetOpenFilename(Ftype_2, , Prompt_2)
    
    '----- ダイアログでキャンセルボタンが押された場合は処理を終了
    If FPath_2 = False Then
        End
    End If
    
    '----- H16セルにファイル名をセット
    WS_2.Cells(11, 8).Value = FPath_2
    Pos_2 = InStrRev(Cells(11, 8).Value, "\")

End Sub

Private Sub GraphAggregationButton_Click()
'-------------------------------------------------------------------------------
'   GraphAggregationButton
'   説明
'       錘のグラフ集約 クリック時
'-------------------------------------------------------------------------------
    Dim wbk1 As Workbook     '錘の散布図ファイル 読み込み1
    Dim wbk2 As Workbook     '錘の散布図ファイル 読み込み2
    Dim wshCmp As Worksheet  '錘のグラフ集約：[グラフデータ読み込み]シート
    
    Set wshCmp = Worksheets("グラフデータ読み込み")
    
    Set wbk1 = Workbooks.Open(wshCmp.Range("H6").Value, ReadOnly:=True)
    Set wbk2 = Workbooks.Open(wshCmp.Range("H11").Value, ReadOnly:=True)
    
    
End Sub

GraphAggregationButton_Click()から集約化を書いてますが、どうやって記述したらよいか分からない状態です。

よろしくお願いいたします。

Answer 1

今回の質問とは関係ないかも知れませんが、File_Select_Button1_ClickとFile_Select_Button2_Clickはほぼ同じプログラムが書かれているので、共通化しましょう。

GraphAggregationButton_Clickのグラフの書き方等は自身で調べて下さい。
２本にする方法はこちらが参考になると思います。
特に重要だと思った部分を記載しておきます。

ActiveChart.SetSourceData Range(Cells(1, 1), Cells(N, 3)), xlColumns ' 離れた列は Union で Range を作成すれば良いル

ActiveChart.SeriesCollection(1).Name = "sin(x)"
ActiveChart.SeriesCollection(2).Name = "cos(x)"  ' (グラフ1本なら不要)

Comments

[qqkf]

回答ありがとうございます。
もともと作成されたグラフシートから集約できるのでしょうか。
このコードだとグラフから作成してると感じました。

[stdio]

> もともと作成されたグラフシートから集約できるのでしょうか。
可能ですが、散布図のデータに新しいデータを追加した後、グラフの方は再構成する形になります。
リンクの方でもその為にあえてグラフを削除してから、再度グラフを作成していますよね。