I was only joshing - I figured you had examined shapes from all angles (as it were), but recognized that those scenarios made captioning like trying to capture lightning in a bottle. A few years back I came up with the idea of putting a table in a text box to get the best advantages of both shapes and tables (it allows you to place more than one table in the same plane while also allowing you to tabularize text in the shape). It worked great as long as captions weren't needed. They could be inserted manually, of course, but I don't think automating captions would be very reliable.
For now I will just manually insert captions for shapes and can use your code to insert captions for uncaptioned inline shapes. When I adapted the inline code to work on tables, it doesn't recognize existing table captions and appends new ones. But I have a delete-caption-by-label macro that I can use to remove all table captions, and then create new ones by the table label.
Unless, of course, you want to take a whack at seeing why the code adapted for table captions (Sub ApplyTableCaptions) in the attached doesn't see existing captions?
|