пример выложил
http://odnoznachnost.narod.ru/store/Drawing1.vsdкод подстановки текста шейпа из свойства материнской группы
Код:
Sub settext()
Dim shp As Shape
Set shp = ActivePage.Shapes.ItemFromID(2) ' шейп с номером 2 и есть шейп-группа
Set sh = shp.Shapes.ItemFromID(6) ' шейп с номером 6 и есть шейп внутри группы
sh.Text = Replace(shp.CellsSRC(visSectionProp, 0, visCustPropsValue).FormulaU, """", "") ' подстановка текста из Prop.Number ( у меня шейп обладает единственным пользовательским свойством)
Field.Value и TheText это совсем разные вещи
Код считывания текста
Код:
Sub gettext()
Dim txt As String
Dim shp As Shape
Set shp = ActivePage.Shapes.ItemFromID(1)
txt = shp.Text ' считывание текста
Debug.Print txt
End Sub