View Single Post
 
Old 05-09-2024, 07:58 PM
brownees brownees is offline Windows 10 Office 2021
Novice
 
Join Date: May 2022
Location: Tauranga, New Zealand
Posts: 8
brownees is on a distinguished road
Default 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
Reply With Quote