View Single Post
 
Old 03-14-2011, 01:49 AM
macropod's Avatar
macropod macropod is online now Windows 7 32bit Office 2000
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 20,552
macropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant future
Default

Hi biofodder,

Your code works fine. You can test it with:
Code:
Sub Test()
Dim x As InlineShape
For Each x In ActiveDocument.InlineShapes
  MsgBox x.AlternativeText
Next
End Sub
Are you sure you are working with InlineShape objects (ie shapes formatted as in-line with text) and not Shape objects (ie shapes not formatted as in-line with text)?
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote