No.1
- 回答日時:
こんばんはっ。
誰も回答されて無いようなので、全然見当違いかもしれませんが、
回答します。
>ファイル名が貼り付けられてしまい
と書かれていますが、
例えば、「CAT.GIF」という名前の画像であれば、Wordに
「CAT.GIF」と表示されるのでしょうか?
そうであれば、理由がわかりませんが、
我が家のPCはドラッグでもちゃんと図は表示されます。
ちなみに{ }こんな括弧に囲まれた感じではないですか?
そうであれば、フィールドコードが表示されているので、
ALTキーを押しながらF9を押してみてください。(または
ツール→オプション→表示タブ→フィールドコードというところに
チェックが入っていませんか?)
そうであれば、フィールドコードが非表示になれば、
ドラッグしてきた図は、表示されるようになるのですが、
>大量のGIFファイルを貼り付けたいのですが、
というのに、ちょっと引っかかります。
かりに、フィールドコードが原因だったとして、ちゃんと表示されるようになっても、ドラッグで図を挿入する方法を使うと、ファイルがものすごく
重くなってしまいますよっ。
(挿入→図→ファイルとは少し違う方法で張り付いてしまうんです)
フィールドコードが原因でなければ、ワードにどのように張り付くのか(表示されるのか)詳しく教えて下さい。
この回答への補足
連絡が遅くなりすみません。
ワードには、枠付きで
「CAT.GIF」という名前が表示されます。
フィールドコードではないようです。
よろしくお願いします。
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点だけ教えていただければ
ありがたいです。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- その他(Microsoft Office) Wordを変換してExcelに挿入 2 2022/07/04 23:59
- Excel(エクセル) Excelから複数のWordファイルを操作する方法について教えて頂きたい。 やりたいことは、複数のW 2 2022/07/26 20:11
- Word(ワード) PCで作ったwordをスマホで編集しようとすると「このファイルは読み取り専用です。」と表示される。 3 2023/05/30 14:51
- その他(Microsoft Office) officeのWordで作成した文章をメール添付してしたい 3 2023/08/07 07:12
- Word(ワード) Office 365のWordでオブジェクト挿入であるWord文書にほかのWord文書やPDFを貼り 2 2022/05/09 15:57
- Word(ワード) Word 2016のマクロを Word 2021のWordでキー動作させたい 3 2023/04/12 16:14
- Word(ワード) スマホWord使用法 1 2023/01/06 18:10
- iOS iPhone用動画保存アプリiCapのデータは外付けUSBメモリに保存できますか? 1 2022/10/18 17:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フルパスから最後のディレクト...
-
マイクラでPythonのプログラミ...
-
どんなプログラムを書いても指...
-
windows.hがincludeされない
-
ShellExecute、エクスプローラ...
-
webアプリケーションでの画像フ...
-
ファイルやディレクトリの存在...
-
FindFirstFileについて
-
C言語を用いたファイルの一括削...
-
ThisWorkbook.Pathについて
-
Paiza Cloudです。学籍番号と氏...
-
Paiza Cloudです。 どうやれば...
-
ページ読み込み時に自動的にsub...
-
C言語初心者の質問失礼します。
-
ドラッグアンドドロップでファ...
-
xismoについてです!開こうとす...
-
iniファイルに追記がしたいです。
-
ASP .NETでファイル選択ダイア...
-
EXCEL VBAでテキストファイルの...
-
WAVファイル同士の結合が可...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
どんなプログラムを書いても指...
-
フルパスから最後のディレクト...
-
FTPでputすると空ファイルが出...
-
windows.hがincludeされない
-
ExcelVBAでカレントディレクト...
-
「UNCパスはサポートされません...
-
マイクラでPythonのプログラミ...
-
C言語を用いたファイルの一括削...
-
fopenで別ディレクトリにファイ...
-
GetPrivateProfileStringでini...
-
ファイルやディレクトリの存在...
-
ネットワーク上のコンピュータ...
-
ExcelVBA サーバーの(共有フォ...
-
エクセルVBAで相対パスでファイ...
-
pythonでの日本語操作
-
VBAで自身のファイル名を取得す...
-
webアプリケーションでの画像フ...
-
絶対パスの絶対て英語で何でし...
-
FTPでリモートのファイル一覧取得
-
ファイルダイアログのカレント...
おすすめ情報