![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.2ベストアンサー
- 回答日時:
ちょうど、マクロを作っていましたので紹介します。
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 で動作確認
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
- その他(Microsoft Office) ワードのマクロについて教えてください。 1 2023/01/21 16:01
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- Ameba(アメーバブログ) アメブロは、HTMLのタグの入力を許さないブログ・サイトですか? 1 2023/06/18 18:48
- ホームページ作成・プログラミング アメーバ・ブログは"HTMLタグ"を許可してないのですか? 2 2023/06/17 21:08
- フリーソフト 倍率自動調整して全画面表示できるフリーの画像ビューアー 1 2023/08/24 10:55
- Windows 8 Route Generator の使い方 1 2023/05/03 00:36
- Excel(エクセル) フォルダAから1つのファイルだけを、フォルダBへを移動するVBAについて 2 2022/07/25 11:45
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Word VBA 写真 挿入
Word(ワード)
-
【ワード】マクロで画像を選択する
Word(ワード)
-
ワードマクロで画像を選択する方法
Word(ワード)
-
-
4
ワードの図形をコピー&ペイストのマクロ
Word(ワード)
-
5
VBSでワードに画像を貼り付ける
Visual Basic(VBA)
-
6
wordのマクロで縮小して貼り付ける方法を教えてください。
Visual Basic(VBA)
-
7
wordでの指定オブジェクトの削除
Word(ワード)
-
8
Word VBA 表内の図を一括中央揃えにするマク
Word(ワード)
-
9
【VBA】写真の縦横比を変えずに貼り付ける
Visual Basic(VBA)
-
10
エクセル マクロ写真帳に一括で写真を張り付けたいです。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
Excelのワークシート上に検索窓...
-
マクロ 実行ボタンを押さずに...
-
複数ファイルにある特定のシー...
-
エラーになってないのにVBA...
-
Excel VBA のdebug(F8キー) が...
-
Accessのクエリを実行するショ...
-
モジュール内のマクロを全て実...
-
エクセルのマクロ機能で前のシ...
-
Excelを開いた時に表示さ...
-
エクセル 自動で別シートへ並...
-
ワードで画像を自動で挿入する方法
-
マクロボタンをある条件の時に...
-
エクセルに画像を貼付け縮小す...
-
EXCELのセルへ、デジタル時計を...
-
EXCEL 複数のシートの同一の位...
-
エクセルのマクロボタンがどん...
-
【Excel VBA】エラー番号400
-
GetAsyncKeyState(32) の動作が...
-
エクセル グラフの軸の最小値最...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
複数ファイルにある特定のシー...
-
Excel VBA のdebug(F8キー) が...
-
EXCELのセルへ、デジタル時計を...
-
エラーになってないのにVBA...
-
Excelを開いた時に表示さ...
-
Excelのワークシート上に検索窓...
-
【Excel VBA】エラー番号400
-
ワードからエクセルへ貼り付け...
-
Excelマクロでオプションボタン...
-
エクセルのマクロ機能で前のシ...
-
エクセルで複数のシートをまと...
-
Wordの画面を左右にスクロール...
-
エクセル グラフの軸の最小値最...
-
マクロ ブックをマクロなしでコ...
-
EXCEL 複数のシートの同一の位...
-
モジュール内のマクロを全て実...
-
Wordで「原稿用紙○枚」を換算す...
-
TeraTermのマクロについて
おすすめ情報