Resize images in word document using excel vba

Hi All,

I am stuck at resizing the image in word document using excel vba. I have the below code the resize all the images in word document with my excel vba. But I am getting error "Object doesnt support this kind of propery". Can someone step in to resolve the issue.

Dim PercentSize As Integer
Dim objWord
Dim objDoc
Dim objSelection
Dim objShapes

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("C:\Users\250861\Desktop\Image Resize\test.docx")
objWord.Visible = True
Set objSelection = objWord.Selection '- Error in the line
Set objShapes = objDoc.InlineShapes

For Each oIshp In objSelection.Shapes
With oIshp
.ScaleHeight = 700
.ScaleWidth = 200
End With
Next oIshp
End With

Thanks in advance