quote:

---

Originally posted by yabes

Доброе утро! Как написать цикл прохода по строкам таблицы "Connection points" шейплиста и присвоить каким-нибудь переменным значения X,Y.

---

Sub ttt()
 Dim sh As Visio.Shape
 Set sh = ActivePage.Shapes(1)
 Debug.Print sh.RowCount(7)
 n = sh.RowCount(7)
 For i = 0 To n - 1
  Debug.Print sh.CellsSRC(7, i, 0)
 Next
End Sub

quote:

---

Originally posted by Tumanov

Количество строк - через RowCount.
До значений в данном случае удобнее добираться через CellsSRC.
В приведенном примере последовательно читаются ячейки X из всех строк секции Connection Points.

Sub ttt()
 Dim sh As Visio.Shape
 Set sh = ActivePage.Shapes(1)
 Debug.Print sh.RowCount(7)
 n = sh.RowCount(7)
 For i = 0 To n - 1
  Debug.Print sh.CellsSRC(7, i, 0)
 Next
End Sub

---

quote:

---

Спасибо большое! Но только он выводит не в мм, а пишет что-то типа 9,84343423423432Е-02. как это исправить? Я знаю только 1 способ - это умножить на 25.4. Но должен быть посерьезнее)))

---

quote:

---

Originally posted by Tumanov

Так ошибки вычисления всегда какие-то есть... При выводе округлять надо, а если для расчета - так ошибка очень маленькая.

---