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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
ワードマクロで画像を選択する方法
Word(ワード)
-
Word VBA 写真 挿入
Word(ワード)
-
【ワード】マクロで画像を選択する
Word(ワード)
-
-
4
wordのマクロで縮小して貼り付ける方法を教えてください。
Visual Basic(VBA)
-
5
VBSでワードに画像を貼り付ける
Visual Basic(VBA)
-
6
ワードの図形をコピー&ペイストのマクロ
Word(ワード)
-
7
Word VBA 表内の図を一括中央揃えにするマク
Word(ワード)
-
8
wordでの指定オブジェクトの削除
Word(ワード)
-
9
エクセル マクロ写真帳に一括で写真を張り付けたいです。
Visual Basic(VBA)
-
10
【VBA】写真の縦横比を変えずに貼り付ける
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBA のdebug(F8キー) が...
-
ローマ字→カタカナへ変換(エク...
-
EXCELのセルへ、デジタル時計を...
-
エクセル グラフの軸の最小値最...
-
エクセルのマクロ機能で前のシ...
-
Excel文字列中の太字(Bold)部分...
-
EXCEL2000 VBA マクロ実行中に...
-
Image J ソフトの使い方
-
マクロ 実行ボタンを押さずに...
-
エラーになってないのにVBA...
-
ワードで一連作業の繰り返し
-
Excelマクロでオプションボタン...
-
マクロ ブックをマクロなしでコ...
-
【Excel VBA】エラー番号400
-
Excelのワークシート上に検索窓...
-
テキストボックスに入力したシ...
-
複数ファイルにある特定のシー...
-
UWSCからエクセルのマクロを実行
-
GetAsyncKeyState(32) の動作が...
-
Wordの画面を左右にスクロール...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
複数ファイルにある特定のシー...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
Excelを開いた時に表示さ...
-
エラーになってないのにVBA...
-
Excel VBA のdebug(F8キー) が...
-
ワードからエクセルへ貼り付け...
-
エクセルのマクロ機能で前のシ...
-
Excelのワークシート上に検索窓...
-
モジュール内のマクロを全て実...
-
エクセル グラフの軸の最小値最...
-
EXCEL 複数のシートの同一の位...
-
エクセルで複数のシートをまと...
-
【Excel VBA】エラー番号400
-
Excelマクロでオプションボタン...
-
Wordの画面を左右にスクロール...
-
マクロ ブックをマクロなしでコ...
-
Wordで「原稿用紙○枚」を換算す...
-
AccessのテーブルデータをExcel...
おすすめ情報