View Single Post
 
Old 01-23-2020, 11:13 PM
kae0088 kae0088 is offline Windows 7 64bit Office 2010 32bit
Novice
 
Join Date: May 2012
Location: Melbourne, Australia
Posts: 2
kae0088 is on a distinguished road
Default

Rather than insert the shape and caption in a single cell table, I prefer to put them together in a group. The group is itself a floating shape that can be moved around, the sequence numbering changing if necessary – don’t forget to update all fields to get the new seq numbers.

The macro AddCaptionToFloatingShape will add a caption and group the caption with the shape.
Code:
Sub AddCaptionToFloatingShape()
Dim aShape As Shape
Dim shpName1 As String
Dim shpName2 As String
    If Selection.ShapeRange.Count <> 1 Then MsgBox "Floating shape not selected": Exit Sub
    shpName1 = Selection.ShapeRange(1).Name
    If Dialogs(wdDialogInsertCaption).Show Then
        shpName2 = Selection.ShapeRange(1).Name
        Selection.ShapeRange(1).Anchor.Select
        Selection.Collapse
        Set aShape = ActiveDocument.Shapes.Range(Array(shpName1, shpName2)).Group
    End If
End Sub
Reply With Quote