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

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