Insert photo reference inside callout
Hi all, text in caps below indicates my problem. Thanks in advance...
Sub InsertPhotoRefInsideCallout()
'
' Inserts photo label and number reference into callout
'Paste new autotext callout
Selection.TypeText "x"
Selection.Range.InsertAutoText
'WANTING FOLLOWING LINE TO MOVE CURSOR INSIDE CALLOUT SO PHOTO REFERENCE BELOW CAN BE PASTED
ActiveDocument.Shapes.Range(Array("Rounded Rectangular Callout 38")).Select
'Paste "Photo 1" reference in callout
Selection.InsertCrossReference ReferenceType:="Photo", ReferenceKind:= _
wdOnlyLabelAndNumber, ReferenceItem:="1", InsertAsHyperlink:=False, _
IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
End Sub
|