お世話になっています。

MS ord2000を使っています。

WORDに
大量のGIFファイルを貼り付けたいのですが、

 メニュー/挿入/図/ファイル

では、1つずつしか選択できません。

エクスプローラで複数選択して、
WORDにドラッグしたらできるかと
思ってやってみたのですが、
ファイル名が貼り付けられてしまい
図が表示できません。

どなたか良い方法がありましたら、
ご教示願います。

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

A 回答 (2件)

下のマクロで可能です。



同じフォルダにあるgifファイルを全て
ワードに貼り付けます。
付けたくないものも、あるものはすべて
貼り付けるので、貼付け用のフォルダを別に用意して
希望の画像だけを集めておいてください。

最初にフォルダのパスを入力します。
C:\WINDOWS\
のように\で終わってください。

一枚ごとにファイル名を表示しながら
順番に貼付けます。
全部貼り付けたら終わります。

一枚ごとのファイル名の表示が不要なら
表示をやめることもできます。
(中段にある
MsgBox ファイル名
を消去してください)




Sub 画像gifを一括投入()

ディレクトリ1 = InputBox("ディレクトリを指定してください。", "題名", "C:\WINDOWS\")

ディレクトリ2 = ディレクトリ1 & "*.gif"
ファイル名 = Dir(ディレクトリ2, vbDirectory) 'ファイル名取得

Do While ファイル名 <> "" 'ファイル名が空になるまで

MsgBox ファイル名
フルパス名 = ディレクトリ1 & ファイル名
Selection.InlineShapes.AddPicture FileName:= _
フルパス名, LinkToFile:=False, SaveWithDocument:=True

ファイル名 = Dir '次のファイル名取得
Loop

End Sub




'マクロの設置方法が不明な場合は質問ください。
    • good
    • 0
この回答へのお礼

お返事が遅くなり申し訳有りませんでした。

ご教示いただいた方法で完璧でした!!

今まで、Excelでしかマクロを使ったことは
なかったのですが、
新しい使い方が分かり今後WORDマクロの道を
開拓していくことにしました。

本当にどうもありがとうございました。

p.s.
最初のDir関数の呼び出しのとき、
第2引数で「VbDirectory」を指定していますが、
ヘルプを見ると、ファイルを取得するときは、
「VbNormal」と書いてあります。

ですが、実行すると、
きちんとファイル名が入ってくるのは、
私のヘルプの見間違いなのでしょうか?

この1点だけ教えていただければ
ありがたいです。

よろしくお願いします。

お礼日時:2002/04/02 10:51

こんばんはっ。


誰も回答されて無いようなので、全然見当違いかもしれませんが、
回答します。

>ファイル名が貼り付けられてしまい

と書かれていますが、

例えば、「CAT.GIF」という名前の画像であれば、Wordに
「CAT.GIF」と表示されるのでしょうか?

そうであれば、理由がわかりませんが、

我が家のPCはドラッグでもちゃんと図は表示されます。

ちなみに{   }こんな括弧に囲まれた感じではないですか?
そうであれば、フィールドコードが表示されているので、

ALTキーを押しながらF9を押してみてください。(または
ツール→オプション→表示タブ→フィールドコードというところに
チェックが入っていませんか?)

そうであれば、フィールドコードが非表示になれば、
ドラッグしてきた図は、表示されるようになるのですが、

>大量のGIFファイルを貼り付けたいのですが、

というのに、ちょっと引っかかります。
かりに、フィールドコードが原因だったとして、ちゃんと表示されるようになっても、ドラッグで図を挿入する方法を使うと、ファイルがものすごく
重くなってしまいますよっ。
(挿入→図→ファイルとは少し違う方法で張り付いてしまうんです)

フィールドコードが原因でなければ、ワードにどのように張り付くのか(表示されるのか)詳しく教えて下さい。

この回答への補足

連絡が遅くなりすみません。

ワードには、枠付きで
「CAT.GIF」という名前が表示されます。

フィールドコードではないようです。

よろしくお願いします。

補足日時:2002/03/11 10:46
    • good
    • 0

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

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

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

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

Q「古い圧縮ファイル」の確認方法

Dドライブのディスクのクリーンアップをしたいのですが、実行できるものが、「古い圧縮ファイル」の削除しかありません。

「古い圧縮ファイル」がどのプログラムかを確認する方法を教えてください。

また、圧縮されたファイルの名前は青くなるらしいのですが、見つかりません。どうしてでしょうか
圧縮ファイルは1G弱あります。

Aベストアンサー

http://www.atmarkit.co.jp/fwin2k/win2ktips/106cleanup/106cleanup.html

初期設定では、50日以上アクセスの無かったファイルに対して、圧縮が行われます。
当然、圧縮してからでないと、ファイル名は青色にはなりませんので、ディスク・クリーンアップでの候補段階では、黒色のままです。


尚、設定によっては青色表示にならない場合も有りますけど。

http://121ware.com/qasearch/1007/app/nec.jsp?005084

QWord ページの色/塗りつぶし効果/図/図の選択/ファイルから 写真画面全体に表示したい。

Word2013
ページの色/塗りつぶし効果/図/図の選択/ファイルから
で背景に写真を入れると写真が732KBの場合写真の
一部しか表示されません。
全体を取り込む方法ああれば教えてください。
上の画像:塗りつぶし効果で取り込んだもの
下の画像:オリジナル画像

Aベストアンサー

[塗りつぶし効果]を使うのはやめて、直接ヘッダーを開いて画像を配置を
するか、[透かし]で[にじみ]のチェックをはずして挿入して拡大・縮小を
してください。
https://oshiete.goo.ne.jp/qa/9129911.html

Qファイルの圧縮方法

AVIやMPGの画像ファイルを圧縮する方法を教えてください。900mb位のファイルをCD-Rに落とし込める700mbまで圧縮したいんですが。できれば、zipやlzhなどの後で解凍しなくてはいけないような圧縮方法ではなく、多少画像が荒くなってもファイルを単純に縮小させるような方法を教えていただけると有り難いのですが。。
因みに、TMPGEncを試してみたんですが、どうもうまくいかなくて。。ファイルサイズが元のファイルより逆に大きくなってしまうんです。
すいませんが、宜しくお願いします。

Aベストアンサー

画像圧縮?くす(^^
エンコはTMPGEncやaviutlでやるのがふつーです。
ええ 絶対! 
aviutl
http://ruriruri.zone.ne.jp/aviutl/

zipとかで圧縮しても意味ありません サイズ的に。

で、TMPGEncで元より大きくなるのは問題は
コーデック、画像サイズ、 音声ファイルなど
理由はいっぱいあります。対処は類似質問みて↓
http://oshiete1.goo.ne.jp/kotaeru.php3?q=625581

だから圧縮というか再エンコードが面倒なら
ファイルをテキトーな部分でカットする方向性はどお?
CD-R 2枚に保存 450 450 くらいでカット。
対処は類似質問みて↓
http://oshiete1.goo.ne.jp/kotaeru.php3?q=610331
ではでは!

追伸
カンタンにならrmファイルに変更かなあ
でも画質は落ちますよ
ネット配信 ストリーミング形式でどぞ!
RealplusG2とかRealEncoderで変換
でもaviでもないしmpegでもないですけど、どお?

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=610331

画像圧縮?くす(^^
エンコはTMPGEncやaviutlでやるのがふつーです。
ええ 絶対! 
aviutl
http://ruriruri.zone.ne.jp/aviutl/

zipとかで圧縮しても意味ありません サイズ的に。

で、TMPGEncで元より大きくなるのは問題は
コーデック、画像サイズ、 音声ファイルなど
理由はいっぱいあります。対処は類似質問みて↓
http://oshiete1.goo.ne.jp/kotaeru.php3?q=625581

だから圧縮というか再エンコードが面倒なら
ファイルをテキトーな部分でカットする方向性はどお?
CD-R 2枚に保存 450...続きを読む

QWord2016で デザイン→ページ色→塗りつぶし効果→図→図の選択から選択しました。

https://support.office.com/ja-jp/article/Word-2016-for-Windows-%E3%81%A7%E8%83%8C%E6%99%AF%E3%82%84%E8%89%B2%E3%82%92%E5%A4%89%E6%9B%B4%E3%81%99%E3%82%8B-db481e61-7af6-4063-bbcd-b276054a5515
 以上ですが!背景色~図を選択後、色なしにして消そうとしましたが、色なしがグレーアウト
状態なので消すことができません?
 なぜ消せないのでしょうか?
よろしくお願いします。

Aベストアンサー

ホームタブでも同じかな、

Qファイルの圧縮方法が解りません

窓の杜やベクター等に置かれている、フリーの圧縮、解凍ソフトをダウンロードしていますが、テキストファイルや、画像ファイルの圧縮方法が解りません。何方か教えて頂けませんか?

Aベストアンサー

ソフトの開発者のサイトで質問することをお奨めします。

ソフトごとに操作方法が異なりますので、使用しているソフト名すらない状態では誰も必要とする回答を出せません。

窓の杜やベクターでは開発者のサイトへのリンクがありますから、そこからアクセスできますよ。

Qword2003です、図を挿入、図を選択した時のみ、図のメニューが出る

word2003です、図を挿入、図を選択した時のみ、図のメニューが出る設定方法教えてください

Aベストアンサー

>今は表示→ツールバー→図で出していますが、以前は図にチェク無しでも図を挿入、図を選択した時のみ、図のメニューが出ました、出なくなりました、ので質問しました。

出なくなるのは、図ツールバーがアクティブな時(図を選択しているとき)×で閉じてしまうと次に図を選択してもツールバーが出なくなります。

Qpsdファイルの圧縮方法

psdファイルの圧縮方法を教えてください。(基本的質問で恐縮ですが)
win98です。なお、ファイルは9MB程度ですが、圧縮したものを解凍する際、鮮明度が落ちずに元通りの画像で開けますでしょうか?

Aベストアンサー

●大きなサイズのファイルを分割して送付

+Lhaca 1.20 デラックス版での分割方法
http://park8.wakwak.com/~app/Lhaca/

 1. インストールは、ダウンロードした Lhaca120.exe を実行する。
 2. デスクトップに作成された +Lhaca のショートカットに、
   対象のファイルをALTキーを押しながらドロップする。
 3. 保存場所を聞いてくるので、望みの場所を指定する。
   (圧縮形式は、相手が解凍できる形式を選ぶ。)
 4. 分割されたファイル群と結合用のバッチファイルが作成される。
   (デフォルトでは 1.2MB を上限として分割される。)
   (このサイズは +Lhaca で変更できる。)
 5. (4)のファイル全てを、容量を超えないようにメールに添付して送信
   する。
   (添付ファイル総数を本文に明記すること。)
 6. 受け取った側は、全ての添付ファイルを一箇所に集めて、バッチファ
   イルを実行する。
   (操作手順は、本文に明記すること。)
 7. 分割されたファイルが結合されるので、結合された圧縮ファイルを解
   凍する。
 8. 9MBのファイルが解凍されるので、作業する。


これでどうかな!?

※他の圧縮ソフトも分割機能が備わっていると思うが・・・

●大きなサイズのファイルを分割して送付

+Lhaca 1.20 デラックス版での分割方法
http://park8.wakwak.com/~app/Lhaca/

 1. インストールは、ダウンロードした Lhaca120.exe を実行する。
 2. デスクトップに作成された +Lhaca のショートカットに、
   対象のファイルをALTキーを押しながらドロップする。
 3. 保存場所を聞いてくるので、望みの場所を指定する。
   (圧縮形式は、相手が解凍できる形式を選ぶ。)
 4. 分割されたファイル群と結合用のバッチファイルが作成される。
   (...続きを読む

Q文字をコピーし、形式を選択して貼り付け 図(拡張メタファイル)で張り付けると右方向に空白で貼りつく。

文字を一文字コピーし、図形として張り付けたいのですが
形式を選択して貼り付け 「図(拡張メタファイル)」や
「Microsoft Word 文書オブジェクト」で張り付けると
右方向に余白がついてしまいます。
つけないで貼り付ける方法は、ありませんか?

Aベストアンサー

貼り付け後に右クリックして、図の書式設定を選択したままメニュー「トリミング」を選択し、幅を修正すればよいのでは。

QNTFS圧縮したファイルを全部まとめて戻す方法

NTFS圧縮したファイルをプロパティからひとつひとつチェックをはずして戻すのではなく、圧縮されたファイルを全部まとめて元に戻す方法ってあるのでしょうか?

Aベストアンサー

圧縮を解除したいファイルを全て選択した状態で
→プロパティ→NTFS圧縮のチェックを外す→OK

それらのファイルがフォルダに入っているなら
フォルダのプロパティからやってもいい。
(サブフォルダにも適用するか尋ねられるからOKにする)

Qword文書へのアニメgif 貼り付け

アニメについて全く経験ありません。アニメーションgifの素材提供のサイトで動くアニメgif をそのまま持ってきてすぐ画面上にのせれば、動くかとおもったら止まっている画像しか表示されない。自分でまたアニメGIF作成の工程をいれないと画像をうごかせないのでしょうか。ご教授ください。

Aベストアンサー

Word 2002 (SP3) で
クリップアートの挿入の作業ウィンドウで、
「人」で検索して表示される右下に星型のアイコンが表示されている
クリップを Word に挿入して

[ファイル]⇒[ブラウザでプレビュー] か
[Webページとして保存] して、もう一度開いてみると動きます。
これと同じだと思います。


人気Q&Aランキング

おすすめ情報