OK time to start coding yourself!

Start by adding two more variables at the top of the code (based on the format code you already have)

Dim sngW As Single
Dim sngH As Single
Dim lngRot As Long
Dim sngL as Single
Dim sngT as Single

Use the two new variable to store and apply the oshp.Left and oshp.Top in the same way as Width and Height.

You can do it!