Setting Object Width as a percentage

I am creating a cimple Macro in Word. I have pasted in an Excel Object and want a macro that allows me to set the width of the object to 18.5 cm or 83%. This is easy to do, but when recording the macro the height defaults to 16.5cm (which is about 83% of the height of the object).

However, each object I paste into the Word document will be of different height (but the same width). Therefore the macro needs to set the object to 83% or 18.5cm and 83% of the height.

I have the following code in the macro:

Selection.InlineShapes(1).LockAspectRatio = msoTrue
Selection.InlineShapes(1).Height = 464.3
Selection.InlineShapes(1).Width = 524.4

How to I change the height to set to a percentage or change relative to a width of 524.4 (I am fairly new to VBA!).

Many thanks,

Gregor