Hi, I have a macro that will change a selected image in size, this works perfectly. I would also like the image to format as Wrapped behind text. I have a tried a few options and they won’t work and come up as an error. Could someone help with this, much appreciated.

Sub SizeDrawingLandscape()
' ResizeImage Macro
' Selected image(s) are resized to A4
Dim shape As InlineShape


' iterate all selected shapes
For Each shape In Selection.InlineShapes
' remain aspect ratio
shape.LockAspectRatio = msoTrue
' set size to A4
shape.Width = CentimetersToPoints(29.7)
shape.Height = CentimetersToPoints(21)
Next
End Sub

Inline shapes won't allow text wrapping so you would need to convert them to shapes to allow the wrapping to occur.

This old post by Greg Maxey shows you the relevant code https://www.msofficeforums.com/156186-post2.html

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Thanks for that. Sorted my problem