Make a macro apply only on selected pictures

Mattia · #1 11-09-2017, 09:30 AM

Hello everyone,

I am using a MACRO to resize all the pictures in my word document :

Code:

Sub Macro1()
For Each image In ActiveDocument.InlineShapes
image.Width = 115
Next
End Sub

The MACRO works pretty well but apply to my whole document and then to all the pictures.

I would like this MACRO to apply only on my selection (I select a part with text and pictures) and then to only change the size of the selected pictures.

I hope someone could help me with that

Thanks

See you

macropod · #2 11-09-2017, 01:40 PM

Try:

Code:

Sub Macro1()
Dim Image As InlineShape
For Each Image In Selection.InlineShapes
  Image.Width = 115
Next
End Sub

Mattia · #3 11-10-2017, 12:52 AM

Hello,
Thank you very much Macropod, You saved my day, it is working perfectly.
Have a great day
Bye

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can i make excel retrieve selected text?	peterpiper	Excel	1	07-11-2017 03:49 AM
Macro to apply artistic effect to selected picture in Microsoft Word 2010.	staicumihai	Word VBA	2	11-24-2016 01:41 AM
How to make outlook rules apply to outbox folder?	1466211	Outlook	0	04-19-2016 05:18 AM
how do i apply any change to all pictures in one document	greenil	Word	0	06-18-2013 12:56 AM
Macro to apply style to selected tables	ubns	Word	1	08-02-2012 04:09 AM