Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23858 / 76732

←次へ　｜　前へ→


	【58230】Re:ＶＢＡグラフ

田原 - 08/10/12(日) 21:57 -


	引用なし

	パスワード

▼かみちゃんさん：

こんばんは。田原です
ご回答ありがとうございます。

手動では可能です。評価するTEST項目が縦にたくさん並んでおり
繰り返し処理の部分が良く分からないです。
下記が現在作成したマクロコードです（一番最初の結果のみグラフ作成）。

Sub RunGraph()
'この部分の繰り返し処理はどうするか？
'評価結果が何回あるか計算させてFor文で繰り返す。
UGraph "G3:G55", 900, 200, 400, 200　
End Sub

Sub UGraph(rng, L, T, W, H)

ShName = ActiveSheet.Name

'チャ－トを作成時指定
With ActiveSheet.ChartObjects.Add(L, T, W, H)

.Chart.ChartType = xlColumnClustered
.Chart.SetSourceData Source:=ActiveSheet.Range(rng), _
PlotBy:=xlColumns
.Chart.Location Where:=xlLocationAsObject, Name:=ShName

'プロット内の色
　　ActiveChart.PlotArea.Select
　　Selection.Interior.ColorIndex = 2
　　
　　 With ActiveChart
　　　　.HasTitle = True
　　　　.ChartTitle.Select
　　　　
　　　　'Characters.Text に変数が使えるのか？
　　　　.ChartTitle.Characters.Text = "Comment:VDD=5.5V,HV=20V,S_IDDH "
　　　　
　　　　.Axes(xlCategory, xlPrimary).HasTitle = True
　　　　.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Value"
　　　　.Axes(xlValue, xlPrimary).HasTitle = True
　　　　.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "n"

　　　　'繰り返し処理の場合　Collection内の数値はcount upするだけ？
　　　　'シート名に変数は使用できないのか？　別のファイルに適用不可・・
　　　　.SeriesCollection(1).XValues = "=P60050A_hst_081008!R4C1: R55C1"　

　　End With

>こんにちは。かみちゃん　です。
>
>>グラフを自動で作成したいのですが作成出来ません。
>
>手動ではできるのですか？
>できるのであれば、「マクロの記録」で記録してみましたか？
>記録してみて、わからないところがあるなら、記録したコードを提示してみませんか？

1 hits

▼

【58216】ＶＢＡグラフ 田原 08/10/12(日) 2:55