Thread: [Solved] How to change properties of selected shapes
View Single Post
 
Old 08-09-2017, 04:11 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
For a single selected shape you could change:
With ActiveDocument.Shapes(1)
to:
With Selection.ShapeRange(1)
You could, of course, change the index # to refer to the 2nd, 3rd, etc. Shape in the document or selection, as appropriate. For multiple shapes, you'd need to implement a loop.

To work with text in a shape, refer to its .TextFrame.TextRange property.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote