[VBA]グラフを作りたいです！（＾－＾ｖ

質問

教えて下さい。
テキストファイルの内容を元に自動的グラフを作りたいです。

【C:\Temp\data.csv】の中身
-----------------------------------
1回目,10.50%
2回目,30.45%
3回目,70.45%
-----------------------------------

横軸には「n回目」の文字列を、縦軸には「n%」数値を入れたいです。
なんとか静的にグラフを作ることは出来ましたが、これを自動化したいと思っています。

【サンプルvba】
-----------------------------------
Private Const LOGFILE = "C:\Temp\data.csv"

Private Sub CommandButton1_Click()

' グラフオブジェクト作成(位置,サイズ)
With Sheet1.ChartObjects.Add(10, 50, 400, 150).Chart

.ChartType = xlLine ' 折れ線グラフ
.Axes(xlValue).MaximumScale = 100 ' 縦軸最大値
.Axes(xlValue).MinimumScale = 0 ' 縦軸最小値

' グラフデータ内容
With .SeriesCollection.NewSeries

' グラフ名
.Name = "テスト"

' 縦軸 (ここに%数値を入れたい)
.Values = "={10.50,30.45,70.45}"

' 横軸 (ここに回数を入れたい)
.XValues = "={""1回目"",""2回目"",""3回目""}"

End With

End With

End Sub
-----------------------------------

テキストファイルの内容は一定間隔で更新されるため自動的に取り込みたいです。
すいませんがよろしくおねがいします、、。（T▽T）ノ

回答No.1

Sayakonomimoto

http://excel.style-mods.net/tips_vba/tips_vba_6_06.htm

' グラフのタイトルを設定
ActiveChart.Axes(xlCategory, xlPrimary).HasTitle = True
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "ｎ回目"

' グラフのタイトルを設定
ActiveChart.Axes(xlValue, xlPrimary).HasTitle = True
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "n%"

こういった書き方で良いらしいです？

お礼

すいません、全然良いらしくないです。
やりたいことはテキストファイルを読み込んで
その読みんだ内容を元にグラフを作成したいです。