マンガでよめる痔のこと・薬のこと

ワードにて、エクセルの値を利用して差し込みをしています。
ワード文章内にグラフをオブジェクトで作成しておりますが、そのグラフではワークシートが独立しているため、毎回数字を入力しないといけません。

こちらとしては、ワードに差し込まれたデータをそのままグラフが反映してくれるとありがたいんですが・・・

エクセルなら簡単にでき、問題もないのですが、何せ文章が中心となるため、ワードでの操作が作業効率が良いです。
オブジェクトのグラフの数値も差し込みってできないものでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (1件)

以下の方法は如何でしょう。



1.エクセルで、データ(表)とグラフを作成する。
2.データとグラフをそれぞれワードにコピーする。
貼り付け時、右下のアイコン「貼り付けオプション」で
表は「貼り付け先の表のスタイルに合わせてExcelにリンク」を、
グラフは、「Excelグラフへリンク」をそれぞれ選択する。

アイコン「貼り付けオプション」が表示されない場合
メニューバー「ツール」の「オプション」から
タグ「編集と日本語入力」で
「切り取り/貼り付けのオプション」の
「[貼り付けオプション]を表示する」にチェックを入れる。

以上、バージョン2003で出来ました。
    • good
    • 1
この回答へのお礼

遅くなりました.回答ありがとうございます.
参考にして取り組んでみます.

お礼日時:2008/03/30 21:42

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qexcelからexcelへの差し込み印刷

お世話になります。

excelでwordへの差し込み印刷をよく利用するのですが、
同様に、
excelのデータをexcelに流し込んで印刷する方法はありますでしょうか。

excelの名簿のデータを
excelの表のフォーマットに流し込んで
1人づつ印刷したいのですが。

お分かりの方いらっしゃいました教えてください。
どうぞ宜しくお願い致します。

Aベストアンサー

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

上記の品をお送り申し上げます。
ご査収ください

以上
Xの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,2,FALSE)
Yの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,3,FALSE)
Zの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,4,FALSE)

---
結果

送り状

住所山田 三郎
氏名東京都江東区

品物かばん

上記の品をお送り申し上げます。
ご査収ください

以上
ここで
VBE画面で標準モジュールに
Sub test01()
For i = 1 To 2 '人数分
Range("H1") = i
Range("A1:G20").PrintOut '印刷範囲は各人同じとする
Next i
End Sub
を張り付け、実行する。
山田、植田分の紙が2枚印刷されました。
これは質問者はVBAの経験も無いでしょうと、最低限にしてあります。
VBAを勉強してください。
別ブックにある名簿を対象などは複雑になるので避けています。

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

...続きを読む

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

Excel2000、Word2000を使っています。
Excelで1行が1名のデータとなっています。列になっている10項目に対してレーダーチャートを作り、Wordに貼り付け、1人ごとに結果票を配りたいと思っています。
ただ、人数がおおいため、一人分ずつ(1行ずつ)レーダーチャートをつくり、貼り付けするのは避けたいと思っています。

Wordにテンプレートを作り、数値については差込しています。
レーダーチャートについてはリンクをかけるなど、差込印刷と同じようなニュアンスで作成することは出来ないのでしょうか。

Aベストアンサー

具体的になってきました。
Excelファイルのデータベース範囲はA~Wの23列で、1行目がヘッダ、2行目以下が1行ごとに1名のデータ、そして、その中のL~Uの10列がグラフチャートの範囲ということですね。
Word側に13列のテーブルがあるとします。行数は2で1行目はヘッダとし、Excelデータベースのヘッダとあわせます(A~K,V,W列)。
マクロは、A~K列がループでもいいのですが、Word側の12,13列目とExcel側のV,W列を対応させなければなりませんので、この部分はループからはずして、個別に記入します。また、Wordでのグラフの表示位置はShapesオブジェクトのTop,leftプロパティで操作します。
総合的に、次のようなマクロ例になります。

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

With ActiveDocument
  id = .ScrollBar1.Value
  Application.ScreenUpdating = False
  For x = 1 To 11
   .Tables(1).Cell(2, x).Select
    Selection.TypeText Text:=MySheet.Cells(id, x).Value
  Next x
  .Tables(1).Cell(2, 12).Select
   Selection.TypeText Text:=MySheet.Cells(id, 22).Value
  .Tables(1).Cell(2, 13).Select
   Selection.TypeText Text:=MySheet.Cells(id, 23).Value
  .Shapes(2).Delete
MyGpObj.Values = "=Sheet1!R" & id & "C12:R" & id & "C21"
MySheet.ChartObjects(1).Copy
Selection.Paste
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.WrapFormat.AllowOverlap = True
  With .Shapes(2)
    .WrapFormat.Side = wdWrapBoth
    .WrapFormat.Type = 3
    .ZOrder 5
    .Top = 50
    .Left = -180
  End With
Application.ScreenUpdating = True
Selection.MoveDown Unit:=wdLine, Count:=1
ERRHAND:
Set wkbObj = Nothing
Set MySheet = Nothing
Set MyGpObj = Nothing
End Sub

具体的になってきました。
Excelファイルのデータベース範囲はA~Wの23列で、1行目がヘッダ、2行目以下が1行ごとに1名のデータ、そして、その中のL~Uの10列がグラフチャートの範囲ということですね。
Word側に13列のテーブルがあるとします。行数は2で1行目はヘッダとし、Excelデータベースのヘッダとあわせます(A~K,V,W列)。
マクロは、A~K列がループでもいいのですが、Word側の12,13列目とExcel側のV,W列を対応させなければなりませんので、この部分はループからはずして、個別に記入します。また、Word...続きを読む

Qエクセルから帳票形式に差込印刷したいのですが

皆さん初めまして!

エクセルで1万件に近いデータがあります。

これらを帳票形式に差込印刷したいと思えば、ワードの「差込印刷」機能以外に、エクセル自体で行なうことは不可能でしょうか?

(例:請求データを請求書フォームに印刷)

ワードの差込印刷は便利ですが、エクセルデータ形式(特に金額のカンマ区切り表示が必要なため)を参照する際は、フィールド設定の数の制限が22列まで?で・・・行き詰っています(私は約40列あります)。

エクセル・ワードの操作は上級手前の操作まではいけますが、
エクセルでVBA、差込印刷マクロを作るとまではいけないもので・・・何か妙案がありましたらご教示願います・・・

Aベストアンサー

#01です。出血大サービスです(^^;
ただし不具合以外の修正はご自身でお願いします。
2行目~4行目と項目の定義の箇所は再度設定し直してください。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub InsPrint()
Const org As String = "Sheet1" '元データのシート名
Const prs As String = "Sheet2" '印刷するシート名
Const strt As Integer = 2 '元データの実データ開始行
Dim idx, fromL, toL As Long
Dim oSht, pSht As Worksheet
Dim res, res2
 Set oSht = Worksheets(org)
 Set pSht = Worksheets(prs)
 res = MsgBox("印刷行範囲を指定しますか?" & Chr(13) & _
  "はい:指定する、いいえ:指定しないで全件印刷、CANCEL:印刷しない", vbYesNoCancel)
 Select Case res
  Case Is = vbCancel
   Exit Sub
  Case Is = vbYes
   res2 = Application.InputBox("印刷開始行を半角数字で入力して下さい", Type:=1)
   If TypeName(res2) = "Boolean" Then
    MsgBox "印刷を中止しました", vbOKOnly
    Exit Sub
   Else
    If res2 >= strt And res2 <= oSht.Range("A65536").End(xlUp).Row Then
     fromL = res2
    Else
     MsgBox "開始行が不適切です。印刷を中止しました", vbOKOnly
     Exit Sub
    End If
   End If
   res2 = Application.InputBox("印刷する最終行を入力して下さい" & Chr(13) & _
     "99999を入力すると最終行まで印刷します", Type:=1)
   If TypeName(res2) = "Boolean" Then
    MsgBox "印刷を中止しました", vbOKOnly
    Exit Sub
   Else
    If res2 = 99999 Then
     toL = oSht.Range("A65536").End(xlUp).Row
    Else
     If res2 >= fromL And res2 <= oSht.Range("A65536").End(xlUp).Row Then
      toL = res2
     Else
      MsgBox "最終行が不適切です。印刷を中止しました", vbOKOnly
      Exit Sub
     End If
    End If
   End If
  Case Else
   fromL = strt
   toL = oSht.Range("A65536").End(xlUp).Row
 End Select

 For idx = fromL To toL
'以下の行を項目数だけコピーして定義する
  pSht.Range("A1").Value = oSht.Cells(idx, "A").Value
'
  pSht.PrintOut '印刷
'5頁につき8秒休止する
  If (idx Mod 5) = 0 Then
   DoEvents
   Sleep 8000
  End If
 Next idx
End Sub

#01です。出血大サービスです(^^;
ただし不具合以外の修正はご自身でお願いします。
2行目~4行目と項目の定義の箇所は再度設定し直してください。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub InsPrint()
Const org As String = "Sheet1" '元データのシート名
Const prs As String = "Sheet2" '印刷するシート名
Const strt As Integer = 2 '元データの実データ開始行
Dim idx, fromL, toL As Long
Dim oSht, pSht As Worksheet
Dim res, res2
 Set oSht = Works...続きを読む

Q成績管理(個人カルテ)をエクセルで

学校に勤務しています。
タイトルは成績管理となっていますが、テストの結果等の数字の処理はなんとかできています。
ところが、個人懇談などに使う資料づくりをエクセルでしたいのです。

まず、クラスの名簿があります。
出席番号順に縦に名前が並びます。
横には項目が並びます。
たとえば、担当している係、また所属するクラブ活動などです。
こういう一覧は、普通に作成していますが、それをそのまま懇談などで使うと、本人の情報ばかりでなく、クラスの他の生徒の情報も見えてしまいます。
そこで、シートの2枚目以降を個人データのカルテのようにつくりたいのです。シートの2枚目は出席番号1番、3枚目は出席番号2番・・というように。
当然、一枚目の情報が2枚目以降に反映される必要があります。
私の頼りない知識では、セルに=を入力して、1枚目の必要なセルを指定すれば、反映させることはできます。しかし、それではひとつひとつすべて入力しないといけません。クラス30人分のシートをつくるだけでかなり時間がかかります。
便利な方法はないでしょうか。
また、すでにそういうシートの形式がどこかに紹介されていましたら教えてください。

学校に勤務しています。
タイトルは成績管理となっていますが、テストの結果等の数字の処理はなんとかできています。
ところが、個人懇談などに使う資料づくりをエクセルでしたいのです。

まず、クラスの名簿があります。
出席番号順に縦に名前が並びます。
横には項目が並びます。
たとえば、担当している係、また所属するクラブ活動などです。
こういう一覧は、普通に作成していますが、それをそのまま懇談などで使うと、本人の情報ばかりでなく、クラスの他の生徒の情報も見えてしまいます。
そこで...続きを読む

Aベストアンサー

訂正です。もっといいやり方がありました。


B2に出席番号を入力すれば、データが自動的に変わりますので、シートを人数分用意する必要はありません。
元データのsheet1と個人データのsheet2だけで十分です。

2.
sheet2で
A1 =INDIRECT("Sheet1!R1C"&ROW(),FALSE)
以下項目の数と同じだけの行にオートフィル
B2 =INDIRECT("Sheet1!R"&$B$1+1&"C"&ROW(),0)
以下A列の最後と同じ行までオートフィル
とすればsheet2の2つのセルに関数を入力するだけで、後はオートフィルでできます。

もっとも、sheet2のA列は
1.sheet1のタイトルが入っている範囲をコピー
2.sheet2のA1を選択
3.「編集」-「形式を指定して貼り付け」で「行列を入れ替える」にレ点を入れて、OKを押す
の方が手っ取り早いです。

Qエクセルの表をワードで作成した文章に挿入するには

エクセルで作った表をワードで作成した文章に挿入、また、逆にワードで作成した文章や図をエクセルに挿入するにはどうすればよいでしょうか?

Aベストアンサー

エクセルで作った表をワードに挿入するには

1、エクセルを開き、表をコピー
2、ワードを開き、編集メニュー→形式を選択して貼り付け
3、貼りつける形式を「Microsoft Excelワークシート」にしてOK


ワードで作成した文書をエクセルに挿入するには
1、挿入→オブジェクト→ファイルから→ファイルを選択

でうまく行きませんか?

また、ワードの文書全部を選択してコピーして、エクセルに貼り付けではどうですか?

Qエクセル 0や空白のセルをグラフに反映させない方法

以下の点でどなたかお教えください。

H18.1~H20.12までの毎月の売上高を表に記載し、その表を元にグラフを作成しています。グラフに反映させる表の範囲はH18.1~H20.12の全てです。
そのためまだ経過していない期間のセルが空白になり、そこがグラフに反映され見づらくなります。
データを入力する都度グラフの範囲を変更すればいいのですが、うまく算式や設定等で空白や0円となっているセルをグラフに反映させない方法はありますか?

お手数ですが、よろしくお願いいたします。

Aベストアンサー

売上高のセルは数式で求められているのですよね?
それなら
=IF(現在の数式=0,NA(),現在の数式)
としてみてください。
つまり、0の場合はN/Aエラーにしてしまうんです。N/Aエラーはグラフに反映されません。

Qエクセルの名簿一覧表からすでにエクセルで作られている一人づつのシートに差込印刷

エクセルでできている名簿リストから、すでにエクセルでできている個人別のシートに差込印刷したいのです。一人ずつセル参照で作ることはできるのですが、全部で300人分くらいあるのでワードの差込印刷のように一度にできる方法が知りたいのです。本日中にやらねばならないので手作業では、間に合いそうにありませんしVBAの勉強をしている余裕もありません。

Aベストアンサー

VBAでもない解答をします。ただファイル-印刷の操作を
300回すること。最終部のようにすれば、VBAで自動化も出来ます。
(1)Sheet2のA1:E3に住所録が
氏名郵便番号住所1住所2
山田 和郎111-1111東京都小平市新町2-1-2光マンション222
木之下 重雄222-2222東京都三鷹市本町4-3-2三国荘201
あるとします。本番ではA1:E300とかに住所録があります。
(2)Sheet1は印刷する画面シートです。
F1セルに2、
F2に="Sheet2!A"&F1
F3に="Sheet2!B"&F1
F4に="Sheet2!C"&F1
F5に="Sheet2!D"&F1
F6に="Sheet2!E"&F1
郵便番号を置くセルをB3として式=INDIRECT(F3)
府県市を入れるセルをB5として式=INDIRECT(F4)
町番地を入れるセルをB6として式=INDIRECT(F5)
気付を入れるセルをC6として式=INDIRECT(F6)
名前を入れるセルをB8として式=INDIRECT(F2)
C8に「様」を入れる。
(3)F1セルが2の時は
111-1111

東京都小平市
新町2-1-2光マンション222

山田 和郎様
となりますが、このA1:C8を印刷する。
(4)F1セルの値を3に変える(3を入力する)と
222-2222

東京都三鷹市
本町4-3-2三国荘201

木之下 重雄様
と瞬時に変るが、これを印刷する。
(5)F1を4、5、6、・・・と変えて印刷、変えて印刷すれば良い。
この(5)の部分だけをマクロの記録やVBAにすれば、
同じVBAでも既解答よりずっと易しいと思いますがいかがででしょうか。
Sub test01()
Worksheets("sheet1").Activate
For i = 2 To 3 '300
Cells(1, "F") = i
Range("a1:c8").PrintOut
Next i
End Sub
行高、セル幅、フォントサイズなどは手動で設定。
氏名、郵便番号、住所を置くセルは自由に出来ます。
上記でF1:F6も自由に別列に設定できます。

VBAでもない解答をします。ただファイル-印刷の操作を
300回すること。最終部のようにすれば、VBAで自動化も出来ます。
(1)Sheet2のA1:E3に住所録が
氏名郵便番号住所1住所2
山田 和郎111-1111東京都小平市新町2-1-2光マンション222
木之下 重雄222-2222東京都三鷹市本町4-3-2三国荘201
あるとします。本番ではA1:E300とかに住所録があります。
(2)Sheet1は印刷する画面シートです。
F1セルに2、
F2に="Sheet2!A"&F1
F3に="Sheet2!B"&F1
F4に="Sheet2!...続きを読む

Qパワーポイントでの差し込み印刷

パワーポイントに差込印刷をしたいのですが、可能でしょうか?
表彰状に、エクセルのリスト(部署、名前などのリスト)から、大量数の表彰状を作成したいのですが、どなたか方法を教えていただけないでしょうか?
台紙の雛形データはパワーポイントです。

よろしくお願いいたします。

Aベストアンサー

ANo.2 です。

偶然表彰状のテンプレート+文例集のページを見付けましたので、下記しておきます。

「表彰状 フレーム テンプレート ファクトリー」
http://www.printout.jp/factory/shoujou/

Qエクセルで自動でグラフを生成する方法について。

エクセルで自動でグラフを生成する方法について。
エクセルで自動でグラフを生成する方法を探しています。
例えば以下のようなデータがあったときに
4 3 6 1
この4つのデータを、例えばあるセルをクリックすると自動でこの4つのデータの円グラフがでるような機能を作りたいと考えています。
おそらくマクロを使えばすぐにできるのかと思いますが、
マクロはまったく使ったことがないので分かりません。
こちらのグラフ生成方法、もしくはマクロの使い方に関して分かりやすいサイトを知っている方いらっしゃいましたら、教えていただけると幸いです。

Aベストアンサー

そのマクロは削除して作り直した方が早いです。
何回でも作れますから。不要なマクロは削除しておいて下さい。

次に作る時は、以下のサイトを参考にして、VBエディターを開き、
ある1行を削除してみて下さい。下の方にあります。

http://www.interq.or.jp/neptune/pctec/rakrak/dai4/top.html

こうすると、違うセル範囲を選択して、ボタンを押すだけでグラフが
できます。登録ボタンは「オートシェイプ」でもいいのですが、
「フォーム」の「ボタン」にしてみて下さい。


ところで、グラフの自動生成なら、マクロを使わなくてもできます。

1つは、
完成したグラフを選択し、右クリック。「グラフの種類」→「ユーザー設定」
タブの下にある「選択元」で「ユーザー定義」を選択。「追加」をクリック。
「任意のグラフ名」と「説明」を入力し、OK。

次回から、任意のセル範囲を選択し、通常通り作る際「グラフの種類」の中で
「ユーザー設定」→「ユーザー定義」をクリックすると、このグラフが登録
されているので、クリックして選択。 しかし、きれいなグラフになりませんが。

もう1つの、お勧めの方法は、
既存のグラフをCtrlを押しながらドラッグして、コピーし、右クリック→
「元のデータ」で範囲を選択し直せば、目的の範囲のグラフが即座にできます。

最速なのが、任意の範囲を選択し、F11キーを押すだけで「棒グラフ」
がグラフ専用シート」に一瞬で作成されます。棒グラフですが、
これを変更すればいいのです。右クリックし「場所」を「オブジェクト」
にすれば、思ったシートに移せます。

グラフでしたら、マクロを使うより、以上の方法の何れかの方法がエラーが出ずに
使いやすいです。

全部試してみて、使いやすい方法をお選び下さい。

そのマクロは削除して作り直した方が早いです。
何回でも作れますから。不要なマクロは削除しておいて下さい。

次に作る時は、以下のサイトを参考にして、VBエディターを開き、
ある1行を削除してみて下さい。下の方にあります。

http://www.interq.or.jp/neptune/pctec/rakrak/dai4/top.html

こうすると、違うセル範囲を選択して、ボタンを押すだけでグラフが
できます。登録ボタンは「オートシェイプ」でもいいのですが、
「フォーム」の「ボタン」にしてみて下さい。


ところで、グラフの自動生成なら、マ...続きを読む

Qwordでの自動計算(パーセント表示)について

ワードで書類のテンプレートを作成しております。
その中で簡単な表があり、フォームを使って自動計算をさせたのですが、なぜかパーセント表示がうまく出ません。
小数点第2位まで表示させたいのですが、番号書式を0.00%に設定しても、小数点以下が、すべて.00%で出てしまいます。(整数にされてしまってます)

小数点第2位まできちんと表示させたいのですが、どのようにしたらよいのでしょうか。

Aベストアンサー

その例の場合は
番号書式は何も選択しないで(Deleteなどで消す)、計算式で式のところに
「=C2/B2*100 \# 0.00%」を入力すれば表示されると思います。


人気Q&Aランキング