Sub captionselectedphoto(control As IRibbonControl)
Dim shapesselected As Integer
Dim photos2caption As ShapeRange
Dim phototitle As String
shapesselected = Selection.ShapeRange.count
If shapesselected = 0 Then
MsgBox "Please select one or more photos to caption, then try again"
Exit Sub
End If
Set photos2caption = Selection.ShapeRange
If photos2caption.count > 1 Then photos2caption.Group
Application.ScreenRefresh
phototitle = InputBox("Photo title?")
Selection.InsertCaption Label:="Figure", TitleAutoText:="", _
Title:=": " & phototitle, Position:=wdCaptionPositionBelow, ExcludeLabel:=0
Set captionbox = ActiveDocument.Shapes(ActiveDocument.Shapes.count)
MsgBox photos2caption.Name 'returns "Group 20"
MsgBox captionbox.Name 'returns "Text Box 9"
ActiveDocument.Shapes.Range(Array(photos2caption.Name, captionbox.Name)).Group
End Sub
As you can see, I stuck in a couple msgboxes near the end to tell me the shape names. The return the expected names. What is most maddening is that I can run this test macro and it does exactly what I want:ActiveDocument.Shapes.Range(Array("Group 20", "Text Box 9")).Group
This is what I'm aiming for. Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE