Excel2000でレーダーチャートの自動作成・Wordへの自動挿入は可能か

追加質問についての回答です。 >（１）今回の元データは１行に氏名・年齢・受験日・総合結果・各項目結果１・２～・・・・ 薄々お判りとは思いますが、For～Nextの繰り返し回数が、列数に相当してます。ですから、たとえば、Excelの1列目から14列目ということであれば、 For x = 1 To 14 ということになります。グラフ範囲を変更する場合は、 MyGpObj.Values = "=Sheet1!R" & id & "C2:R" & id & "C11" で、C2は2列目（すなわちB列）、C11が11列目（すなわちK列）に相当するので、その数値を変えます。4列目から14列目までということであれば、C4,C14ですね。 ちなみに MyGpObj.XValues = "=Sheet1!R" & id & "C1" は、系列名を指定しているだけです。グラフに項目軸ラベルが無い場合は省略してかまいません。 > （２）Mucrosoft Officeで使用するマクロについて、どのような方法で >　　　習得されたのですか？これまで通常できる複数の操作をマクロに記録する >　　　位しか行っていなかったもので・・。もしよければ教えてください。 私も最初はマクロの記録からスタートしました。そして、キーワードをいちいち調べているうちに、自動記録のマクロは効率が悪い（回りくどい記述である）ことがわかりました。そこで、試行錯誤してマクロをスリムにする訓練をしました。このとき参考書は使わず、とにかくヘルプをよく読んでいました。そのうちだんだんと自分でマクロが組めるようになってきました。今でも参考書は殆ど使いません。いつも”ヘルプ”です。どーしてもわからない時は、karimen～氏がここで質問されているように、私も、しかるべき所で質問していますよ。

わかりました。オブジェクト形式が違ったようです。 マクロは元に戻して（回答＃３は破棄して）、＃２の回答の(2)と(3)に追記して順序を入れ替えます。 (2) Wordドキュメント上にコントロールツールボックスから、スクロールバーを１個配置してください。配置したスクロールバーを右クリックして、[オブジェクトの書式設定]＞[レイアウト（タブ）]＞[前面]＞[OK]とします。 (3) Wordドキュメント上に、2行10列のテーブル１個と、1)で作ったExcelグラフチャートを1個コピー＆ペーストしておきます。ペーストしたグラフチャートを右クリックして、[オブジェクトの書式設定]＞[レイアウト（タブ）]＞[前面]＞[OK]とします。デザインモードを終了します。 要は、Wordドキュメント上で、一度オブジェクト書式を設定し直すことで、Shapeオブジェクトとして認識するようになるみたいです。 これでだめだったら、私がテストで成功したサンプルをwebサーバに入れて、ダウンロードできるようにします。

> ●質問１ 試しに、Macro1の5行目の On Error GoTo ERRHAND を削除して実行してみて、 「実行時エラー・・・・指定したコレクションに対するインデックスが・・・・」 とかいうメッセージが出たら、For～Nxtループの下の ActiveDocument.Shapes(2).Delete を ActiveDocument.Shapes(1).Delete に変えてみてください。他のエラーが表示されたら、お知らせください。 ちなみにグラフ範囲の絶対参照はマクロに関係なく変わるようです。 > ●質問２ 間違いありません。なぜか文字コードに化けてしまったようです。

ではなるべく詳しく書きますので、参考になさってください。 (1) Sheet1に10列・行数任意のデータ（データ範囲"B2:C?" ?は任意行数とします）と、そのデータの任意の1行がグラフ範囲になっているレーダグラフチャートが1個あるファイルを作り、 C:\My Documents\Book1.xlsに保存します。 (2) Wordドキュメント上には、2行10列のテーブル１個と、1)で作ったExcelグラフチャートを1個コピー＆ペーストしておきます。 (3) Wordドキュメント上にコントロールツールボックスから、スクロールバーを１個配置してください。 (4) WordのVBEを起動し、[ツール]＞[参照設定]でExcelのオブジェクトライブラリの参照設定にチェックを入れます（Excel2000の場合は”Microsoft Excel 9.0 Object Library”）。 (5) Word-VBEのプロジェクトエクスプローラで、Project(ファイル名)を右クリックして、[挿入]＞[標準モジュール]を選択します。 (6) 同プロジェクトエクスプローラで、Project(ファイル名)àMicrosoft Word ObjectsàThisDocumentをダブルクリックして、コードウインドウを開き、次の２つのイベントプロシージャを転記します。 Private Sub Document_Open() 　Call ScrollBarSet End Sub Private Sub ScrollBar1_Change() 　ActiveDocument.Activate 　Call Macro1 End Sub (7) 同プロジェクトエクスプローラで、Project(ファイル名) à標準モジュールàModule1をダブルクリックして、コードウインドウを開き、次の２つのプロシージャを転記します。 Sub ScrollBarSet() Set wkbObj = CreateObject("C:\My Documents\Book1.xls") Set MySheet = wkbObj.Worksheets("Sheet1") ActiveDocument.ScrollBar1.Min = 2 ActiveDocument.ScrollBar1.Max = _ 　　MySheet.Range(MySheet.Cells(MySheet.Rows.Count, 1) _ 　　　.End(xlUp).Address).Row Set wkbObj = Nothing Set MySheet = Nothing End Sub Sub Macro1() Dim id As Integer Set wkbObj = CreateObject("C:\My Documents\Book1.xls") Set MySheet = wkbObj.Worksheets("Sheet1") Set MyGpObj = MySheet.ChartObjects(1).Chart.SeriesCollection(1) On Error GoTo ERRHAND id = ActiveDocument.ScrollBar1.Value Application.ScreenUpdating = False For x = 1 To 11 　　ActiveDocument.Tables(1).Cell(2, x).Select 　　Selection.TypeText Text:=MySheet.Cells(id, x).Value Next x ActiveDocument.Shapes(2).Delete MyGpObj.Values = "=Sheet1!R" & id & "C2:R" & id & "C11" MyGpObj.XValues = "=Sheet1!R" & id & "C1" MySheet.ChartObjects(1).Copy Selection.Paste Selection.ShapeRange.WrapFormat.Type = 3 Selection.ShapeRange.ZOrder 5 Selection.ShapeRange.IncrementTop 200 Application.ScreenUpdating = True ERRHAND: Set wkbObj = Nothing Set MySheet = Nothing Set MyGpObj = Nothing End Sub (8) Word-VBEを閉じます。Excelも閉じてかまいません。 (9) Wordドキュメント上のスクロールバーを動かしたり、up,downボタンを押すたびに、テーブルのデータと、グラフチャートが変化します。なお、グラフの編集はExcel側で行ってください。

Wordマクロを使ってExcelを操作するという方法があります（上級者向けです）。 Word VBEで、Excelのオブジェクトライブラリを参照させることで、Excelの操作ができます。Wordドキュメント上のデータをグラフに反映させる方法が見あたらないので、レコードが更新されるごとに元のExcelシート上でグラフを再作成し、それをWord上に貼り付けます。差込み機能を使ってExcelデータをWordに差し込んでもいいのですが、Excel側でグラフの参照範囲を変更させるので、Word側へのデータ差し込みもマクロを使います。まずはヒントまで、この方法を試したい場合はお知らせください。 当方はWIN2000+EXCEL2000+WORD2000で動作確認しました。