画像の挿入

質問

デジカメで写した写真２０枚をワード（２０１０）に縮小（任意の大きさで）して一気に貼り付ける方法教えて下さい　　写真は個人ホルダーにあります

縮小；サムネイルの２倍くらい
写真；ＪＰＥＧ画像です

回答No.2

tsubuyuki

マクロを使えば可能ではあります。

ですが、
> 写真は個人ホルダーにあります
> 縮小；サムネイルの２倍くらい
という表現が出来てしまうようでは正直・・・です。
（何がおかしいかは別途ご自身で調査下さいませ。）

とりあえず、一応サンプルをどうぞ。

Sub Sample()
Dim FPath As String, FName As Variant
Dim CMem As Long, i As Long, j As Long
Dim PWid As Long

　　　　FPath = "C:\Users\UserName\Pictures\"　' フルパスで指定「￥」まで
　　　　FName = Dir(FPath & "*.jpg")
　　　　PWid = 32　　　　' 写真の「幅」
　　　　CMem = 4　　　　' 写真を「横に並べる数」
　　　　i = 0

　　　　Do While FName <> ""
　　　　　　　　Set sel = Selection.InlineShapes.AddPicture(FileName:=FName, _
　　　　　　　　　　　　　LinkToFile:=False, SaveWithDocument:=True)
　　　　　　　　sel.ConvertToShape.Select
　　　　　　　　With Selection.ShapeRange
　　　　　　　　　　　　.WrapFormat.Type = 3
　　　　　　　　　　　　.Width = MillimetersToPoints(PWid)
　　　　　　　　　　　　.Left = ActiveDocument.PageSetup.LeftMargin + MillimetersToPoints(PWid + 10) * i
　　　　　　　　　　　　.Top = ActiveDocument.PageSetup.TopMargin + MillimetersToPoints(PWid) * j
　　　　　　　　End With
　　　　　　　　FName = Dir
　　　　　　　　i = i + 1
　　　　　　　　If i = CMem Then
　　　　　　　　　　　　i = 0
　　　　　　　　　　　　j = j + 1
　　　　　　　　End If
　　　　Loop
End Sub

マクロの使い方・コードの内容までは説明するつもりはありませんので、
必要であれば別途ご自身でお調べ下さいませ。

回答No.1

dragon-man

縮小に関してはJtrimと言うフリーソフトが便利です。縮小もトリミングも自由自在です。
貼り付けに関しては普通にドラッグ＆ドロップでいいと思いますが、２０枚一気にやったら、貼り付け位置調整に手間がかかるかもしれません。２０枚程度なら１枚ずつやった方が無難では。