![selecting multiple images in word selecting multiple images in word](https://slidetodoc.com/presentation_image/25a481737f14bcc8477614a7cf76a8b5/image-41.jpg)
The default text wrapping style is “In Line with Text” when you paste the screen shot. The most frustrating part was that sometimes this would work and sometimes it would not. The problem was that I could not select all of the objects at the same time. I wanted to group the shapes and screen shot together so that they would be perfectly aligned as the document evolved. I would take a screen shot and then want to add arrows or shapes to highlight specific areas. I have had this same problem off and on since moving to Office 2010 and I think I've found a solution. Selection.Delete ' delete the initial rectangleĪ(ShapeItems).Select ' multiple select all objects inside the rectangle Icount = icount + 1 ' count of collected shapes If myshape.Left > leftx And myshape.Top > topy And myshape.Left + myshape.Width < rightx And myshape.Top + myshape.Height < bottomy Then Ishape = ishape + 1 ' count of all shapes Rightx = leftx + ActiveDocument.Shapes(iobj).Widthīottomy = topy + ActiveDocument.Shapes(iobj).Heightįor Each myshape In ActiveDocument.Shapes Leftx = ActiveDocument.Shapes(iobj).Left ' find corners Iobj = ' find the last object number corresponding to the selection rectangle just added ' Not yet tested when added to normal.dotmĭim ShapeItems() As Variant ' must be variant with Option Base 0. ' The run this macro by shortcut key from your document. ' Insert a rectangle around the objects you want to select (as you would have with the Select Objects cursor) ' Assign this macro to a Word keyboard shortcut, via File, Options, Customize Ribbon, Keyboard shortcuts, Categories = Macros, etc If I can do this in VBA, Microsoft can implement it in word 2010. (I am just an amateur.) My solution is not the most elegant but it shows that it can be done in Word 2010.īy the way, in doing this I found that if you name an object in Word VBA (e.g., "Rect1"), then copy it in Word, MS does not assign it a new unique name!! Stated in the code, I wrote the macro, assigned it to a shortcut key, then insert a new rectangle to surround the objects I want to select and run the macro via the shortcut. I had to change activesheet to activedocument but nothing else. I wrote a macro in Excel 2010 and copied it to Word 2010. It seems to me that it is nothing to do with the object model. Interesting conversation which I am new to.