Sorry it took so long for me to get back to this, but I did resolve the issue I was having. For some reason whenever i tried to change the height or width using oshape.width or oshape.height Word would crash, so i was able to work around it by using oshape.scalewidth. I'm sure there is a cleaner, or nicer way to go about it, but this is what i ended up with

Set oRng = wdDoc.Range
    oRng.Font.Color = -587137025
    For Each oShape In oRng.InlineShapes
              If oShape.Width > wdApp.InchesToPoints(6.5) Then
                W = oShape.Width
        PWidth = (468 / W) * 100
       oShape.ScaleWidth = PWidth
            End If
    Next oShape