「夫を成功」へ導く妻の秘訣 座談会

Windows XPでWord2003を使っています。
ワードで作った表の中に写真(図)をファイルから挿入しています。
図を表に挿入た後のサイズ変更はできるのですが、ファイルから挿入した際に決まったサイズで表に図を挿入できればと思っております。
現状では、そのまま挿入すると表の高さが変わって図全体が表示されます。また、表の高さと幅を固定させて挿入すと、今度は図が表の高さをはみ出してしまい図全体が表示されない状態です。
挿入る写真が多いため予め図や表に挿入る図のサイズを固定する設定方法を探しています。
挿入する写真の元サイズは様々ですが縦横比は固定しています。
宜しくお願いします。

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

A 回答 (2件)

表内に直接写真を挿入すると上手くいかないですよね。


あまり良い方法では無いですが、挿入したい表に[テキストボックス]を
配置します。

[テキストボックスの書式設定]→[色と線]タブにある[線]を[なし]にし
[塗りつぶし]も[なし]にします。
[サイズ]タブで挿入したいサイズを指定します。
[テキストボックス]タブで[テキストボックスと文字列の間隔]にて[0mm]
をすべてに設定して、[描画オブジェクト内で文字列を折り返す]だけに
チェックを入れます。

テキストボックス内の段落書式が[標準]スタイルのままなので、1行の
設定を解除します。
テキストボックス内で文字カーソルが点滅しているのを確認してから、
メニューの[書式]→[段落]→[段落]タブにある[1ページの行数を ~ ]
のチェックを外し、テキストボックス内に隙間が出来ないようにします。

このテキストボックスを、定型句に登録するなりコピーするなりして、
表の各セルに配置します。
ちなみにテキストボックスは[行内]配置にしないようにして下さい。
トラブルの元になるようなので。

この方法が駄目ならば、マクロを利用してサイズ変更した図を各セルに
配置する方法になるかと思います。
これについては、別質問をし、タイトルにWordマクロであることを明示
すれば、マクロについて回答する方がいるのでマクロを提示して下さる
と思います。

私は、まだまだマクロについて回答できるほどの力量を持ち合わせては
いないので、マクロについては回答を入れません。
    • good
    • 0
この回答へのお礼

お礼が遅くなって申し訳ございませんでした。
とても参考になりなんとか解決しました。
ありがとうございました。

お礼日時:2007/01/15 19:32

まず 図の挿入ですが、「図形描画」の「オートシェイプ」機能を使うとよいと思います。


オートシェイプの基本図形から四角を選択し入れたい位置に挿入します。その上で右クリックをして書式設定を選びます。「サイズ」を指定します。
「色と線」タブから「塗りつぶし」→「塗りつぶし効果」→タブで「図」を選択します。「図の選択」で写真を選択します。
オートシェイプ内に写真が挿入されます。
下記に図入りでやり方が掲載されていますので、ご覧ください。
http://www.lac-key.net/tec/no4.htm

図を配置よく並べるには下記サイトを参考にしてください。
http://allabout.co.jp/study/pcbasic/closeup/CU20 …
    • good
    • 1
この回答へのお礼

お礼が遅くなって申し訳ございませんでした。
とても参考になりなんとか解決しました。
ありがとうございました。

お礼日時:2007/01/15 19:32

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

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

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

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

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

Qワードに貼り付けた画像サイズの変更

ワードで画像をいくつか貼り付けました。
その画像のサイズを小さくしたいのですが、一度にまとめて行う方法はありますか。
一度でなくても画像のサイズがそろえられればOKです。

Aベストアンサー

>選択すると端に黒い四角が現れ
これは[行内]に挿入されていますね。
他の回答者が回答しているものは、[行内]以外の浮動配置(前面/四角など)
に対して有効な方法であって、[行内]配置はテキストと同じで一括に選択
するのが基本機能では無理なのです。

マクロを使用するか、一つの画像のサイズを変更したら次の画像に対して
繰り返しの[ F4 ]キーで設定を繰り返す方法で比較的楽に作業が出来ると
思います。

ちなみにWord2002では、画像などのオブジェクトを挿入する形式を設定の
オプションが用意されています。
メニューから[ツール]→[オプション]→[編集と日本語入力]タブにある
[図を挿入貼り付ける形式]が[行内]ですから、[前面]などに変更します。
設定以降に挿入された画像などは、すべて[前面]などに変更されますので
他の回答者が説明した方法で可能になります。

Qワードマクロで画像を選択する方法

「図の挿入」を使って画像ファイルから読み込んで貼り付けた画像を、ワードマクロで選択したいと思っています。
どのようなコードを書けばいいか、教えてください。

ちなみに、以前どなたかがされた質問に対する回答(http://oshiete1.goo.ne.jp/qa2224793.html)で
ActiveDocument.Content.ShapeRange.Select
を使うという方法が提示されていましたが、「図の挿入」で読み込んだ画像ファイルには使えないようです。

よろしくお願いします。

Aベストアンサー

#1のご回答がありますが
私も判らずながらやってみました。
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/vbawd11/html/woobjInlineShapes1.asp
にInlineShapes の説明があります。
ーー
まずエクセルの操作で、挿入ー図ーファイルからでファイル名を指定します。
するとInlineShapes のオブジェクトになるようで、
Sub test02()
For Each ishape In ActiveDocument.InlineShapes
ishape.ConvertToShape
Next ishape

End Sub
を実行するとShape オブジェクトに変換できます。
Sub test01()
Dim pc As Object
Dim ishape As Object
MsgBox ActiveDocument.Shapes.Count
MsgBox ActiveDocument.InlineShapes.Count
For Each pc In ActiveDocument.Shapes
MsgBox pc.Name
Next
End Sub
を実行しますと
メッセージボックスで2と0がでて
Picture 6
などと表示できます。
Sub test03()
ActiveDocument.Shapes("Picture 6").Select
Selection.Delete
End Sub
で削除できました。
ーーー
InlineShapeを捉える件ですが
http://www.keep-on.com/excelyou/2001lng4/200112/01120012.txt
に書いておられますが
Indexでしか捕らえられないのかもしれません。
Sub test04()
MsgBox ActiveDocument.InlineShapes.Count
n = ActiveDocument.InlineShapes.Count
For i = 1 To n
MsgBox ActiveDocument.InlineShapes(i).Height
Next i
End Sub
私もNameでやってみましたができませんでした。
他に方法があるのかどうかわかりません。
Shapes->InlineShapeは選択したものにつき
Sub ConvertToInlineShape()
With Selection
' \\ If we selected a Shape then convert to InlineShape
If .Type = wdSelectionShape Then
.ShapeRange(1).ConvertToInlineShape
End If
End With
End Sub
というコードを見つけました。
Pictureの判別は
Sub test05()
Dim inlineShape
For Each inlineShape In ActiveDocument.InlineShapes
If inlineShape.Type = wdInlineShapePicture Then
MsgBox inlineShape.Height
End If
Next
End Sub
を見つけました。

#1のご回答がありますが
私も判らずながらやってみました。
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/vbawd11/html/woobjInlineShapes1.asp
にInlineShapes の説明があります。
ーー
まずエクセルの操作で、挿入ー図ーファイルからでファイル名を指定します。
するとInlineShapes のオブジェクトになるようで、
Sub test02()
For Each ishape In ActiveDocument.InlineShapes
ishape.ConvertToShape
Next ishape

End Sub
を実行するとShape オブジェクトに変換で...続きを読む

Q写真を希望の大きさで貼り付ける

デジカメで撮った写真をWord 2013のファイルに貼り付けると小さい写真が貼り付けられます。貼り付けた後でその写真を右クリックして、「レイアウトの詳細設定→サイズ→倍率」と進むと、35%など小さな値が表示されています。

もちろん、貼り付けた後で拡大すれば希望の大きさになるのですが、枚数が多いととても時間がかかります。

Photoshopで解像度を変更してみたり描画キャンバス内に貼り付けてみたりしたのですが、全く改善されません。

唯一、テキストボックスを希望の大きさに作っておいてその中に貼り付けると、希望の大きさで(つまり、テキストボックス内に丁度収まる最大の大きさで)貼り付けることができることが分かりました。

テキストボックス内に貼り付ける以外に、縦横比は元のままで、希望の大きさで貼り付ける方法はないでしょうか。

Aベストアンサー

挿入した画像は、本文領域と同じサイズになっているのでは?

余白(裁ちトンボで区切られた位置)の内側と同じサイズになるのが
仕様みたいなものですね。[行内]でも[前面]でも余白内になるので、
余白幅が広いと画像も小さくなります。

左右の余白の半分ぐらいになる場合は、[段組み]が設定されていて、
その段の幅と同じ横幅になっている可能性もあります。

余白を小さくしたり、段組みを解除すれば、挿入した画像のサイズは
ページ全体に近いサイズになると思います。

[テキストボックス]へと貼り付けた画像サイズが大きいのは、余白や
段組みの影響を受けない本文以外のためですね。

Qワードで画像を自動で挿入する方法

ワード2000を使用しています。フォルダにgif画像が200個程入っており(ファイル名は毎回変わります)、これをワードに1つずつ画像を挿入する作業をしているのですが、自動で処理するようなフリーソフトや方法があれば教えて下さい。出来れば挿入したファイル名も表示されるとうれしいのですが・・
宜しくお願い致します。

Aベストアンサー

ちょうど、マクロを作っていましたので紹介します。

Sub 画像取込()
myFolda = "C:\My Documents\My Pictures" '-gifファイルのフォルダ
Set fs = Application.FileSearch
DoEvents
With fs
 .NewSearch
 .LookIn = myFolda
 .SearchSubFolders = False
 .FileName = "*.gif"
 If .Execute() > 0 Then
  For I = 1 To .FoundFiles.Count
   myfname = .FoundFiles(I)
   Selection.TypeParagraph
   Selection.InlineShapes.AddPicture FileName:= _
   myfname, LinkToFile _
    :=False, SaveWithDocument:=True
   Selection.TypeParagraph
   Selection.TypeText Text:= _
   Right(.FoundFiles(I), _
    Len(.FoundFiles(I)) - Len(myFolda) - 1)
   Selection.TypeParagraph
  Next I
 End If
End With
MsgBox "貼り付け完了"
End Sub

上記"Sub 画像取込()"から"End Sub"までがマクロになります。この例ではC:\My Documents\My Picturesのフォルダにあるgifファイルすべてが対象です。適宜フォルダへのパスを変更してください。
マクロの実行方法ですが、
1, 画像ファイルを貼り付けるword文書を開いて、Alt+F11キーを押します。
2, VisualBasicEditorが立ち上がりますので、左の方のプロジェクトエクスプローラのTisDocumentが選択されているのを確認して、コードウインドウに上記マクロをコピー&ペーストしてください。
3, VisualBasicEditorを閉じて、Alt+F8キーを押すとマクロリストのダイアログが立ち上がりますので、"画像取込"を選択して"実行"をクリックします。

マクロはコマンドボタンに登録することもできます。

windows2000 word2000 で動作確認

ちょうど、マクロを作っていましたので紹介します。

Sub 画像取込()
myFolda = "C:\My Documents\My Pictures" '-gifファイルのフォルダ
Set fs = Application.FileSearch
DoEvents
With fs
 .NewSearch
 .LookIn = myFolda
 .SearchSubFolders = False
 .FileName = "*.gif"
 If .Execute() > 0 Then
  For I = 1 To .FoundFiles.Count
   myfname = .FoundFiles(I)
   Selection.TypeParagraph
   Selection.InlineShapes.AddPicture FileName:= _
   myfname, LinkToFile ...続きを読む

QWord VBA 写真 挿入

Excel で写真の挿入VBAは 皆さんのご回答を元になんとか出来ました。
回答者さま 有難う御座いました。
挿入したファイル(写真)のサイズ変更(見た目のサイズ)も出来ます。


ところが、
Wordへの写真挿入 
サイズの変更 になりますと、(VBAで記述したいのに)

「図の書式設定」自体効きません。

↑ 「マクロの記録」をしても、出来ません。
(ボタンは False 状態)


「マクロの記録」で出来ないという事は
つまり、Wordでは無理って考えれば良いのでしょうか。

Aベストアンサー

こんにちは。KenKen_SP です。

> つまり、Wordでは無理って考えれば良いのでしょうか。

何をやりたいのか具体的に書かれてないので、コメントし難いのですが、
とりあえず、画像を挿入したいなら、

  Application.Dialogs(wdDialogInsertPicture).Show

で画像挿入のダイアログを表示できます。また、ファイル名を指定して画像を
挿入し、各種操作するには、

Sub Sample()

  Dim PIC As Shape
  Dim strFilename As String

  strFilename = "C:\Sample.jpg"

  Set PIC = ActiveDocument.Shapes.AddPicture(strFilename)
  With PIC
    .LockAspectRatio = msoTrue ' 縦横比を保つ
    ' ミリメートル指定でサイズを変更する場合(例:50mm)
    .Width = MillimetersToPoints(50)
    ' 水平方向の位置を決めるときの基準点を余白に設定
    .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
    ' 垂直方向の位置を決めるときの基準点を余白に設定
    .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
    ' ミリメートル指定で余白位置からの場所を指定(例:上10mm、左10mm)
    .Top = MillimetersToPoints(10)
    .Left = MillimetersToPoints(10)
    ' さらに動かしてみる(例:20ポイントずらす)
    ' ミリメートル指定なら .IncrementTop MillimetersToPoints(10) で 10mm
    .IncrementTop 20
    .IncrementLeft 20
    ' さらに回転(例:90度)
    .IncrementRotation 90#
  End With
  Set PIC = Nothing

End Sub

こんな感じで。微妙に Excel とは違いますが、基本は一緒です。

こんにちは。KenKen_SP です。

> つまり、Wordでは無理って考えれば良いのでしょうか。

何をやりたいのか具体的に書かれてないので、コメントし難いのですが、
とりあえず、画像を挿入したいなら、

  Application.Dialogs(wdDialogInsertPicture).Show

で画像挿入のダイアログを表示できます。また、ファイル名を指定して画像を
挿入し、各種操作するには、

Sub Sample()

  Dim PIC As Shape
  Dim strFilename As String

  strFilename = "C:\Sample.jpg"

  Set PIC = Acti...続きを読む

QWordで、1ページを丸ごと削除するには?

1ページしか必要ないのに、真っ白な2ページ目がその下に表示されてしまった場合、この余分な2ページ目を一括削除(消去)する為に、何かいい方法があるでしょうか?

Aベストアンサー

<表示されてしまった場合>
これはそれなりに理由があるわけで、改ページや改行によって、次のページにまで入力が及んでいる時にそうなります。
特に罫線で表を作成し、ページの下一杯まで罫線を引いたときなどには、よくなる現象です。

さて、メニューの「表示」で段落記号にチェックが入っていないと、改行や改ページなどの入力情報が見えず、白紙のページを全て選択→削除してもそのままということが良くあります。
1 改行マークが白紙のページの先頭に入っていれば、それをBackSpaceで消してやる。
2 罫線を使っている場合は、それでも効果がない場合がありますが、その時は行数を増やしてやる。
などの方法があります。

Qエクセルで作った表を丁度いいサイズでワードに貼り付けるには?

教えてください。苦労して作った英文レポートに、エクセルの表を貼り付けたいのですが、そのまま切り取ってきてやったら、か過ぎて元のレポートがぐちゃぐちゃになってしまいました。どうしたらいいのでしょうか?宜しくお願いします。

Aベストアンサー

まず、貼り付けてレイアウトなどが崩れたら、あせらず「元に戻す」をしましょう。

まずエクセルで貼り付けたい表部分をコピーします。
次にワードで「編集」⇒「形式を選択して貼り付け」で
Microsoft Office Excel ワークシート~~~(たぶん一番上)を選んで貼り付けます。

すると大きさが変えられます。
また、ワードにて貼り付けたオブジェクトの書式設定で
「レイアウト」を「背面」か「前面」にすると表の位置で元の文字などが移動しないので編集が楽になると思います。。

Qエクセルに画像を貼付け縮小する作業をマクロにしたいのですが、

エクセルに画像を貼付け縮小する作業をマクロにしたいのですが、
分からない部分があって困ってます。

(1)挿入したいセルにカーソルを合わせる
(2)マクロ
 挿入-図-ファイル-図の挿入-図の書式設定-サイズ-30%

この作業を覚えさせると以下になりました。

Sub Macro3()
ActiveSheet.Pictures.Insert("C:\Documents and Settings\デスクトップ\1.JPG") _
.Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 360#
Selection.ShapeRange.Width = 480#
Selection.ShapeRange.Rotation = 0#
End Sub

これだと、写真が指定されてしまいます。
マクロの途中で止まって任意の写真を都度選べるようにできますか?
膨大な量の写真をセルに並べていきたいのです。

エクセルに画像を貼付け縮小する作業をマクロにしたいのですが、
分からない部分があって困ってます。

(1)挿入したいセルにカーソルを合わせる
(2)マクロ
 挿入-図-ファイル-図の挿入-図の書式設定-サイズ-30%

この作業を覚えさせると以下になりました。

Sub Macro3()
ActiveSheet.Pictures.Insert("C:\Documents and Settings\デスクトップ\1.JPG") _
.Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 360#
Selection.ShapeRange.Width =...続きを読む

Aベストアンサー

私も画像の取り込みでマクロをいじった経験があります。
こういうのはどうでしょう?(今動作確認できないのですが…)

Sub test()
ActiveSheet.Pictures.Insert(Application.GetOpenFilename).Select
Selection.Height = Selection.Height * 0.3
Selection.Width = Selection.Width * 0.3
End Sub

QMS-WordのVBAで図形サイズの指定(100%)方法

MS-WordのVBAで図形サイズの指定(100%)方法

Word2000です。VBAは知らない(嫌い)ですが、時々必要になり、通常はマクロ記録したものを多少手直ししたりして使用しています。今回の問題ではマクロ記録すると100%ではなく、ある特定のサイズを指定したように記録されます。100%で指定するには、どのようなコードになるのでしょうか?

Aベストアンサー

記録されたコードを提示できないでしょうか。

Qパワーポイントで、図を貼り付けると自動的にサイズ調整

 検索しましたが、うまく見つかりませんでしたので質問します。
 パワーポイントで、別のページから図や数式(数式エディタによるもの)をコピーして貼り付ける場合に、もともとそこにあった表やページのタイトルの大きさが勝手に変化してしまいます。
 崩れてしまった配置や大きさを元に戻すのが大変で、困っています。そのようにならない設定がありましたらお教えください。

Aベストアンサー

お使いになっているバージョンは、2002以降でしょうか?

もしもそうなら、ツールメニューの中の「オートコレクトのオプション」。その中に「挿入したオブジェクトの自動レイアウト」っていう項目があります。チェックが入っているはずですので、それを取ってみて下さい。

解決するといいのですが・・・。


人気Q&Aランキング