画像を大量に撮影してアルバムのようにコメントをつけたいときの使用方法
画像と同じ数だけの表を作成して、マクロを下記のように設定する
For i = 1 To 48
If i <10 Then
Else
j = "Z:\画像\工場見学_0" & i & ".jpg"
End If
Selection.InlineShapes.AddPicture FileName:= _
j, LinkToFile:= _
False, SaveWithDocument:=True
Selection.MoveDown Unit:=wdLine, Count:=1
Next
画像と同じ数だけの表を作成して、マクロを下記のように設定する
For i = 1 To 48
If i <10 Then
Else
j = "Z:\画像\工場見学_0" & i & ".jpg"
End If
Selection.InlineShapes.AddPicture FileName:= _
j, LinkToFile:= _
False, SaveWithDocument:=True
Selection.MoveDown Unit:=wdLine, Count:=1
Next