I'm an absolute caveman when it comes to VBA. My skills are capped at scouring forums, copy pasting, and failing repeatedly.

The following is a result of Frankenstein-ing and mild editing but it appears to work at resizing and halfway captioning the images. I would however, like the images to be captioned with the Folder name. Let's say the folder is called 'Basement', how can I get the caption to read 'Figure ## - Basement' where ## is figured magically by the following macro:

Sub Caption()
'
' Caption_Image Macro
'
'
Dim objPic As InlineShape

For Each objPic In ActiveDocument.InlineShapes
objPic.Select
Selection.InsertCaption Label:="Figure", TitleAutoText:="", Title:="", _
Position:=wdCaptionPositionBelow, ExcludeLabel:=0
Next objPic

'
' Resize_Image Macro
'
'
Dim i As Long
With ActiveDocument
For i = 1 To .InlineShapes.Count
With .InlineShapes(i)
.ScaleHeight = 60
.ScaleWidth = 60
End With
Next i
End With

End Sub