ワードまたはエクセルで組織図作成

質問

word または　excel を使って作成する組織図に、いちいちテキストボックスをクリックして手入力するのでなくて、すでにあるデータ（姓名、生年月日、住所、電話番号などを含む）から姓と電話番号だけを指定した順に自動で入力したいのです。自分で考えた方法は、ワードで白組織図を作りプリントして、そのテキストボックスをセルに見立てて、エクセルのvbaでプログラムしたマクロで入力するというやりかたです。っとスマートで簡単な方法がありそうなので、教えていただけるとありがたいのですが・・・

回答No.2

enunokokoro · ベストアンサー

No.1の回答者です。

差し込み印刷をする方法ではなく、ExcelのVBAをすでに用意してあり、
それを使った場合の印刷方法をスマートにしたいのでしょうか？
それなら、この質問を締め切ってからカテゴリのExcelで再質問をして
VBAの修正方法を聞かれてはいかが。

使っているVBAをある程度提示て、どの部分を修正すれば希望の動作が
できるのかを聞かれたほうが早いです。
私はExcelのVBAの回答をしてアドバイスするほどのスキルはないので
エクセルのカテゴリでも回答をしませんし、この質問への補足としても
追記しません。

差し込み印刷をしたいのなら、別にWordのカテゴリで質問されたほうが
良いと思います。この質問を締め切るほうが良いとアドバイスするのは
他の回答が付かないためです。
その質問に私が回答をするかはわかりませんので、あしからず。

回答No.1

enunokokoro

Officeのバージョンが記載されていませんので、簡単なアドバイスだけ
です。例えば、Wordの場合なら差し込み印刷を使えば対応できます。
既にあるデータから姓と電話番号のデータを差し込めるようにします。

[組織図]と同じ配置になるように調整した文書を用意するだけなので、
マクロなどを作成しなくても可能です。

配置は組織図の作り方によるので、具体的なアドバイスはできません。
ですから、具体的なものを画像として添付するなどしてみてはいかが。
そうすれば、他の回答者からのアドバイスも付きやすいと思います。

お礼

adviceありがとうございました。バージョンは2007stdでした。「差し込み印刷」を使うことを全く思いつきませんでした。「差しこみ印刷」とは同文の文書を多数の人に送る場合、ひとりひとりの名前を差し込んで呼びかけたりして親近感（？）をあたえようとするもの、といった程度の認識しかありませんでした。もっと勉強して試してみようと思います。
いまやっておりますのは、35名の会員の電話連絡網を作るため、ワードのsmartart（エクセルにも同じsmartartがあることを今まで知りませんでした）でボックスが35ある“白”組織図を作りそれを35枚印刷して“用紙”を作ります。次にエクセルvbaで、(1)セルの行高と列幅をきめ、(2)既存の名簿から苗字と電話番号だけを変数にとり、(3)順序を指定してセルに入れ、先ほどの用紙をプリンターにセットして印刷します。

具体的には、

白組織図は：

　　　ボックス1　ボックス2　ボックス3　
　　　ボックス4

会員名簿は：

氏名　　　住所　電話番号　
阿部A三　甲府　055-11-1111
岸B助　　甲府　055-22-2222
左藤C作　甲府　055-33-3333
田仲D丸　甲府　055-44-4444

そしてこの名簿に、ボックス番号の項目を追加して次のように手入力します：

氏名　　　住所　電話番号　　ボックス番号
阿部A三　甲府　055-11-1111　　4
岸B助　　甲府　055-22-2222　　1
左藤C作　甲府　055-33-3333　　2
田仲D丸　甲府　055-44-4444　　3

ここでvbaで組んだプログラムを一発クリックすると次のように連絡網図ができあがります：（ここではボックスの枠は省略します）

　　　　岸　　　　　　左藤　　　　田仲
　　　055-22-2222　055-33-3333　055-44-4444

　　　　阿部
　　　055-11-1111

プログラムは行高、列幅の設定も含めて20行ぐらいです。これで実用的には問題はないのですが、二度プリントするというところが、どうも初歩的、原始的（？）な感じがして、もっとスマートなやりかたをどなたかに教えてもらえないかと考えて質問を投稿させていただいたような次第です。