Help Improving Macro
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
|