All Forums
 Категория Visio
 Форум Вопросы и ответы
 Перебор всех Custom Properties
Author Previous Topic Topic Next Topic  

xstar

Russia
3 Posts
Posted - 04/25/2003 :  06:25:31
На странице много нестандартных шейпов с кучей Custom Properties.
Возможно ли программно извлечь их названия и значения? Они неизвестны на этапе проектирования.

Tumanov

Russia
1198 Posts
Posted - 04/25/2003 :  12:39:51
Возможно.
Нужно использовать адресацию по индексам и проверку на CellsSRCExists
Примерно так:

Sub ttt()
iShapeCount = ActivePage.Shapes.Count
s = ""
For i = 1 To iShapeCount
Set shpObj = ActivePage.Shapes(i)
s = s & shpObj.Name & " --> "
'visCustPropsLabel visCustPropsPrompt
'visCustPropsSortKey visCustPropsType
'visCustPropsFormat visCustPropsValue
'visCustPropsInvis visCustPropsAsk
For j = 0 To 7
If shpObj.CellsSRCExists(visSectionProp, visRowProp + j, visCustPropsLabel, True) Then
Set CellObj = shpObj.CellsSRC(visSectionProp, visRowProp + j, visCustPropsLabel)
s = s & CellObj.ResultStr(0)
Set CellObj = Nothing
End If
Next
Set shpObj = Nothing
Next
MsgBox s
End Sub
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)