Текстовое значение автофигуры

[vint44]

Люди! Какое свойство хранит текстовое значение автофигуры (например прямоугольника) в Excel?

[RayShade]

А что такое "текстовое значение автофигуры"?

[Ilya Vasilyev]

Текстовое значение автофигуры хранит текстовое значение (автофигуры)

[vint44]

Какое свойство хранит текстовое значение автофигур я разобрался, это:
shapes(inc1).DrawingObject.Text или
shapes(inc1).DrawingObject.Caption.

Но в этом случае возникает другой вопрос: не у всех элементов коллекции есть эти свойства, т.е. коллекция хранит разные по структуре объекты. И когда я пробегаю по коллекции в цикле, на тех элементах коллекции которые не имеют данных свойств, возникает ошибка. Подскажите есть ли функция, которая позволяет определить наличие заданного свойства в объекте. Обработка ошибок On Error не очень помогает.

[Ilya Vasilyev]

Какие тебе свойства-то нужны?

[vint44]

так я эти свойства выше указал: Text и Caption объекта DrawingObject.
т.е. вот так:
shapes(inc1).DrawingObject.Text или
shapes(inc1).DrawingObject.Caption

[alibek]

Ну для начала, есть свойство (у Shape) .AutoShapeType, смотришь по нему.
А во вторых, как ты используешь On Error? Такое работает почти всегда:

Код: Выделить всё

...
On Error Resume Next
For I = 1 To Shapes.Count
  S = vbNullString
  S = shapes(I).DrawingObject.Text
  If Err > 0 Then
    Err.Clear
    S = shapes(I).DrawingObject.Caption
    If Err > 0 Then
      Err.Clear
      S = vbNullString
    End If
  End If
  Debug.Print S
Next I
On Error Goto 0
...


[vint44]

On Error у меня отрабатывал нормально только один раз в цикле, наверно из-за того, что я не выполнял Err.Clear.
Но я нашел другой выход, через проверку свойства AlternativeText, если оно не пустое, значит фигура имеет свойство DrawingObject.Text

[Al Khamid]

14/

[vint44]

А что это за метод objObject.Properties(strProperty) ?
У меня функция проверки sPropertyExist всегда возвращает False, есть неужное мне свойство или нет. А если я отключаю обработчик ошибок, то макрос начинает ругаться, что нет такой функции Properties. Искал ее в хелпе, тоже не нашел.