quote:
Originally posted by Дима
Очень благодарен.
Может быть найдется у вас пример на эту тему?
Заранее спасибо.
Вот простейший:
Sub Example1()
s1 = ""
lastFromSheet = ""
lastToSheet = ""
For i = 1 To ActivePage.Connects.Count
thisFromSheet = ActivePage.Connects(i).FromSheet
thisToSheet = ActivePage.Connects(i).ToSheet
If lastFromSheet = thisFromSheet Then
s1 = s1 + lastToSheet + " -> " + thisToSheet + vbCrLf
End If
lastFromSheet = thisFromSheet
lastToSheet = thisToSheet
Next
MsgBox (s1)
End Sub
- показывает соединение 2х шейпов с помощью третьего, например с помощью "Dynamic connector".