Ввод формулы в шейп-листе для множества шейпов разом

kukhmaster

Добрый день!

Есть необходимость разом для множества выделенных шейпов (линии и текст) прописать =CALLTHIS("ThisDocument.goXLS") в шейп-листе - ивентс - ивентДблКлик

сам в макросах не силен. искал на форуме и в интернете макросы для похожих целей - не нашел.

Товарищи, подскажите!

Tumanov

Вот это должно работать

Код:

Sub ttt()
    For Each shp In ActiveWindow.Selection
        shp.CellsSRC(visSectionObject, visRowEvent, visEvtCellDblClick).FormulaU = "CALLTHIS(""ThisDocument.goXLS"")"
    Next
End Sub

kukhmaster

Tumanov
в очередной раз спасибо огромное!

понимаю, что уже наглею, но если несложно) а что тут изменить, чтобы можно было еще галочки "Использовать относительный путь для гиперссылки" в окне гиперссылки убрать для выделенных шейпов?

Tumanov

Вот с этим сложнее.
Дело в том, что эта галочка действует в пределах экранной формы, а не во внутренних данных документа. Результатом является то, что в ячейку записывается не абсолютный, а относительный путь. Не признак, а просто немного другой результат.
То есть для выполнения требования придется выбирать текст из ячейки, вырезать из него относительный адрес и опять записывать в ту же ячейку.
Если что-то пойдет не так, то можно испортить гиперссылки.
Но в принципе можно попробовать вот такой модифицированный макрос (опять же для селектированных шейпов).

Код:

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

kukhmaster

Tumanov
Спасибо!

Форум пользователей Visio

Правила форума

Ввод формулы в шейп-листе для множества шейпов разом

Кто сейчас на конференции