Ｐａｇｅ 639 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼グラフ作成の自動化 TOSHI 03/1/26(日) 21:17 ┗Re:グラフ作成の自動化 ポンタ 03/1/29(水) 12:40 ┗Re:グラフ作成の自動化 TOSHI 03/1/30(木) 2:03 ─────────────────────────────────────── ■題名 ： グラフ作成の自動化 ■名前 ： TOSHI <nakayama@do-frontier.com> ■日付 ： 03/1/26(日) 21:17 -------------------------------------------------------------------------
| 皆さんお世話になります スミマセン、教えてください。 ＶＢＡを利用して、列はＡからＣ列まで、行は数値が入っている行までをグラフエリアとして、別のシートに埋め込みグラフとして作成したいと思います。 どのようにＶＢＡを組んだら良いでしょうか？ アドバイスお願いします。 |
| レスが付いていないので、出てきました。 グラフはほとんど使わないのですが、 こんな感じではないかと思います。 お試しください。 Sub Test() Dim 対象セル As Range Dim MyChart As Chart Set 対象セル = Worksheets("Sheet1").Range("A1").CurrentRegion Set MyChart = Charts.Add MyChart.ChartType = xlColumnClustered Call MyChart.SetSourceData(対象セル, xlColumns) Call MyChart.Location(xlLocationAsObject, "Sheet2") End Sub |
| 助かりました〜！！ 少々息詰まってました･･･ ありがとうございました |