No.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
'マクロの設置方法が不明な場合は質問ください。
お返事が遅くなり申し訳有りませんでした。
ご教示いただいた方法で完璧でした!!
今まで、Excelでしかマクロを使ったことは
なかったのですが、
新しい使い方が分かり今後WORDマクロの道を
開拓していくことにしました。
本当にどうもありがとうございました。
p.s.
最初のDir関数の呼び出しのとき、
第2引数で「VbDirectory」を指定していますが、
ヘルプを見ると、ファイルを取得するときは、
「VbNormal」と書いてあります。
ですが、実行すると、
きちんとファイル名が入ってくるのは、
私のヘルプの見間違いなのでしょうか?
この1点だけ教えていただければ
ありがたいです。
よろしくお願いします。
No.1
- 回答日時:
こんばんはっ。
誰も回答されて無いようなので、全然見当違いかもしれませんが、
回答します。
>ファイル名が貼り付けられてしまい
と書かれていますが、
例えば、「CAT.GIF」という名前の画像であれば、Wordに
「CAT.GIF」と表示されるのでしょうか?
そうであれば、理由がわかりませんが、
我が家のPCはドラッグでもちゃんと図は表示されます。
ちなみに{ }こんな括弧に囲まれた感じではないですか?
そうであれば、フィールドコードが表示されているので、
ALTキーを押しながらF9を押してみてください。(または
ツール→オプション→表示タブ→フィールドコードというところに
チェックが入っていませんか?)
そうであれば、フィールドコードが非表示になれば、
ドラッグしてきた図は、表示されるようになるのですが、
>大量のGIFファイルを貼り付けたいのですが、
というのに、ちょっと引っかかります。
かりに、フィールドコードが原因だったとして、ちゃんと表示されるようになっても、ドラッグで図を挿入する方法を使うと、ファイルがものすごく
重くなってしまいますよっ。
(挿入→図→ファイルとは少し違う方法で張り付いてしまうんです)
フィールドコードが原因でなければ、ワードにどのように張り付くのか(表示されるのか)詳しく教えて下さい。
この回答への補足
連絡が遅くなりすみません。
ワードには、枠付きで
「CAT.GIF」という名前が表示されます。
フィールドコードではないようです。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
どんなプログラムを書いても指...
-
フルパスから最後のディレクト...
-
「UNCパスはサポートされません...
-
FTPでputすると空ファイルが出...
-
絶対パスの絶対て英語で何でし...
-
ExcelVBAでカレントディレクト...
-
windows.hがincludeされない
-
C言語を用いたファイルの一括削...
-
セルに入力されたパスでフォル...
-
ファイルやディレクトリの存在...
-
ファイルのパスを動的に取得
-
VB2008からDLLを呼出し使いたい。
-
Delphiでエラーが出ます
-
ネットワーク上のコンピュータ...
-
いやーマイクロソフトには苦労...
-
fopenで別ディレクトリにファイ...
-
GetPrivateProfileStringでini...
-
VBAでサブフォルダ内の写真サイ...
-
webアプリケーションでの画像フ...
-
C言語でファイルを読み込みたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フルパスから最後のディレクト...
-
FTPでputすると空ファイルが出...
-
どんなプログラムを書いても指...
-
ExcelVBAでカレントディレクト...
-
絶対パスの絶対て英語で何でし...
-
windows.hがincludeされない
-
「UNCパスはサポートされません...
-
ファイルやディレクトリの存在...
-
ネットワーク上のコンピュータ...
-
マイクラでPythonのプログラミ...
-
C言語を用いたファイルの一括削...
-
GetPrivateProfileStringでini...
-
ExcelVBA サーバーの(共有フォ...
-
fopenで別ディレクトリにファイ...
-
セルに入力されたパスでフォル...
-
エクセルVBAで相対パスでファイ...
-
AfxLoadLibrary関数で、DLLのハ...
-
新規作成ファイルパスが有効か...
-
FTPでリモートのファイル一覧取得
-
webアプリケーションでの画像フ...
おすすめ情報