Вот с этим сложнее.
Дело в том, что эта галочка действует в пределах экранной формы, а не во внутренних данных документа. Результатом является то, что в ячейку записывается не абсолютный, а относительный путь. Не признак, а просто немного другой результат.
То есть для выполнения требования придется выбирать текст из ячейки, вырезать из него относительный адрес и опять записывать в ту же ячейку.
Если что-то пойдет не так, то можно испортить гиперссылки.
Но в принципе можно попробовать вот такой модифицированный макрос (опять же для селектированных шейпов).
Код:
Sub ttt()
For Each shp In ActiveWindow.Selection
shp.CellsSRC(visSectionObject, visRowEvent, visEvtCellDblClick).FormulaU = "CALLTHIS(""ThisDocument.goXLS"")"
s = shp.CellsSRC(visSectionHyperlink, visRow1stHyperlink, visHLinkAddress).ResultStr(0)
pos = InStrRev(s, "\")
s1 = Mid(s, pos + 1, Len(s) - pos)
shp.CellsSRC(visSectionHyperlink, visRow1stHyperlink, visHLinkAddress).FormulaU = Chr(34) & s1 & Chr(34)
Next
End Sub