Sub Macro1()
Dim oRng As Range
Dim oLink As Hyperlink
Dim oShape As InlineShape
    Set oRng = Selection.Range
    oRng.Paste
    For Each oLink In oRng.Hyperlinks 'If there is one
        oLink.Delete
    Next oLink
    For Each oShape In oRng.InlineShapes
        With oShape
            .Width = InchesToPoints(3) 'The width sets the size of the image with the same aspect ratio
        End With
    Next oShape
lbl_Exit:
    Set oRng = Nothing
    Set oLink = Nothing
    Set oShape = Nothing
    Exit Sub
End Sub