
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を探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
FTPでputすると空ファイルが出...
-
フルパスから最後のディレクト...
-
セルに入力されたパスでフォル...
-
絶対パスの絶対て英語で何でし...
-
fopenで別ディレクトリにファイ...
-
visual c++ 2010 使ってます。
-
ハードリンクとシンボリックリンク
-
ファイルのパスを動的に取得
-
#include fileを絶対パスで指定...
-
ファイルダイアログのカレント...
-
windows.hがincludeされない
-
既存のコードから C++ プロジェ...
-
再帰について
-
エクセルVBAで相対パスでファイ...
-
ネットワーク上のコンピュータ...
-
ソフトウェアからオープンされ...
-
C#でカレントディレクトリの取...
-
cgiでのフォルダの中のファイル数
-
ファイルやディレクトリの存在...
-
SSI #include virtual="~"
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
どんなプログラムを書いても指...
-
フルパスから最後のディレクト...
-
FTPでputすると空ファイルが出...
-
ファイルやディレクトリの存在...
-
絶対パスの絶対て英語で何でし...
-
「UNCパスはサポートされません...
-
ExcelVBAでカレントディレクト...
-
fopenで別ディレクトリにファイ...
-
windows.hがincludeされない
-
セルに入力されたパスでフォル...
-
ネットワーク上のコンピュータ...
-
webアプリケーションでの画像フ...
-
ExcelVBA サーバーの(共有フォ...
-
C言語を用いたファイルの一括削...
-
FTPでリモートのファイル一覧取得
-
ファイルダイアログのカレント...
-
GetPrivateProfileStringでini...
-
AfxLoadLibrary関数で、DLLのハ...
-
Ubuntu テキストファイルをどこ...
-
エクセルVBAで相対パスでファイ...
おすすめ情報