• Mypppka
  • Восстановленный участник
  • На форуме с 24 мая 2006г.
  • Сообщений: 30
  • Спасибо: 0

Тема: определение координат объекта Shape

надо.. чтобы в текстовом поле отражались  координаты прямой линии при изменении ее положения на листе.. подскажите..плиzzz, как выглядит..нужное св-во.. если таковое..есть вобще

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: определение координат объекта Shape

> Mypppka
Переделай по своему усмотрению, координаты линии
по-крайней мере извлекаются, как их записать знаешь

Sub RelocShapeLine()
     Dim wSht As Worksheet
     Dim lShp As Shape
     Dim sngPts As Variant
     Dim startX As Single, _
         startY As Single, _
         endX As Single, _
         endY As Single
     Set wSht = Worksheets(1)
     Set lShp = wSht.Shapes(1)
     With lShp.Nodes
          sngPts = .Item(1).Points     '' Start
          startX = sngPts(1, 1)
          startY = sngPts(1, 2)
          sngPts = .Item(2).Points     '' End
          endX = sngPts(1, 1)
          endY = sngPts(1, 2)
          ''
          '' Change line location, i.e. :
          ''
          .SetPosition 1, startX - 50, startY + 50
          .SetPosition 2, endX + 50, endY - 50
     End With
End Sub

~'J'~