Wrap Square and Resize Selected Picture

modene1 · #1 04-09-2019, 11:31 PM

Hi folks,

I'm a novice to VB and, despite extensive searching, can't figure the code to

1) LockAspectRatio = True
2) WrapFormat.Type = wdWrapSquare
3) ShapeHeight = InchesToPoints(0.6)

on the selected picture.

It would save a massive amount of time when inserting images into Word.

Essentially, I'll setup a keystroke to activate the finished code as a macro. ... if that's the best way to do it...?

Thanks!

macropod · #2 04-10-2019, 01:40 AM

Try:

Code:

Sub Demo()
Dim Shp As Shape
With Selection
  If .InlineShapes.Count > 0 Then
    Set Shp = .InlineShapes(1).ConvertToShape
  ElseIf .ShapeRange.Count > 0 Then
    Set Shp = .ShapeRange(1)
  End If
End With
If Not Shp Is Nothing Then
  With Shp
    .LockAspectRatio = True
    .WrapFormat.Type = wdWrapSquare
    .Height = InchesToPoints(0.6)
  End With
End If
Set Shp = Nothing
End Sub

Alternatively, if you're doing bulk insertions, see: https://www.msofficeforums.com/word-...html#post47919

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Changing picture wrap text to Square	Yonatanx3	Word VBA	2	01-20-2019 03:49 PM
Wrap Text Inside Picture	marconexcel	Drawing and Graphics	2	02-02-2018 05:01 PM
Wrap TABLES around picture?	ShankedS	Word Tables	2	11-16-2015 04:27 PM
Word - Resize image to specified selected cells' dimensions	FaizanRoshan	Word VBA	7	10-18-2015 03:34 PM
Tiny square but no picture pasted	Seafarer	Word	3	12-28-2011 05:35 PM