Свойство Cell.ResultStrU (Visio)

Статья
04/07/2023

Возвращает значение ячейки таблицы фигур, выраженное в виде универсальной строки. Только для чтения.

Синтаксис

expression. ResultStrU (UnitsNameOrCode)

Выражение Выражение, возвращающее объект Cell .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
UnitsNameOrCode	Обязательный	Variant	Единицы измерения, используемые при получении значения.

Возвращаемое значение

Строка

Замечания

Получение свойства ResultStrU аналогично получению свойства Result ячейки. Разница заключается в том, что свойство ResultStrU возвращает строку для значения ячейки, а свойство Result возвращает число с плавающей запятой.

Вы можете указать UnitsNameOrCode как целое число или строковое значение. Если строка недопустима, возникает ошибка. Например, следующие инструкции задают значение UnitsNameOrCode в дюймах.

stringReturned = Cell.ResultStrU (visInches)

stringReturned = Cell.ResultStrU (65)

stringReturned = Cell.ResultStrU ("in"), где "in" также может быть любой из альтернативных строк, представляющих дюймы, например "inch", "in." или "intCounter".

Полный список допустимых строк единиц измерения вместе с соответствующими константами службы автоматизации (целыми значениями) см. в разделе Сведения о единицах измерения.

Константы автоматизации для представления единиц объявляются библиотекой типов Visio в элементе VisUnitCodes.

Передача нуля (0) достаточно для получения значения текстовых строковых ячеек.

Используйте свойство ResultStrU для преобразования между единицами. Например, можно получить значение в дюймах, а затем получить эквивалентное значение в сантиметрах.

Свойство ResultStrU полезно для заполнения элементов управления, таких как поля редактирования, значением ячейки.

Примечание.

Начиная с Microsoft Visio 2000, вы можете использовать локальные и универсальные имена для ссылки на фигуры Visio, образцы, документы, страницы, строки, надстройки, ячейки, гиперссылки, стили, шрифты, основные сочетания клавиш, объекты пользовательского интерфейса и слои. Например, когда пользователь присваивает имя фигуре, пользователь указывает локальное имя. Начиная с Microsoft Office Visio 2003 электронная таблица shapesheet отображает только универсальные имена в формулах и значениях ячеек. (В предыдущих версиях универсальные имена не отображались в пользовательском интерфейсе.)

Как разработчик, вы можете использовать универсальные имена в программе, если вы не хотите изменять имя каждый раз, когда решение локализуется. Используйте свойство ResultStr , чтобы получить значение объекта, выраженное в виде строки, зависят от языкового стандарта. Используйте свойство ResultStrU , чтобы получить значение объекта, выраженное в виде универсальной строки.

Пример

Этот макрос Microsoft Visual Basic для приложений (VBA) показывает два разных способа использования свойства ResultStrU для получения значения ячейки ShapeSheet, содержащей элемент данных фигуры (ранее — пользовательское свойство).

Чтобы запустить этот макрос, откройте пустой документ и набор элементов Компьютеры и мониторы (единицы измерения США), а затем вставьте пользовательскую форму, содержащую метку, текстовое поле и поле списка. Задайте для поля списка ширину 150.

Примечание.

Набор элементов компьютеров и мониторов (единиц США) доступен только в Visio профессиональный.

 
Public Sub ResultStrU_Example()  
 
    Dim vsoStencil As Visio.Document  
    Dim vsoMaster As Visio.Master  
    Dim vsoPages As Visio.Pages  
    Dim vsoPage As Visio.Page  
    Dim vsoShape As Visio.Shape  
    Dim vsoCell As Visio.Cell  
    Dim intRows As Integer 
    Dim intCounter As Integer 
 
    'Get the Pages collection for the document.  
    'ThisDocument refers to the current document.  
    Set vsoPages = ThisDocument.Pages  
 
    'Get a reference to the first page of the Pages collection.  
    Set vsoPage = vsoPages(1)  
  
    'Get the Document object for the stencil.  
    Set vsoStencil = Documents("Comps_U.VSS") 
  
    'Get the Master object for the desktop PC shape.  
    Set vsoMaster = vsoStencil.Masters("PC")  
 
    'Drop the shape in the approximate middle of the page.  
    'Coordinates passed to the Drop method are always in inches.  
    'The Drop method returns a reference to the new shape object.  
    Set vsoShape = vsoPage.Drop(vsoMaster, 4.25, 5.5)  
 
    'This example shows two methods of extracting shape data 
    'The first method retrieves the value of a shape data item by name.  
    'Note that Prop.Manufacturer implies Prop.Manufacturer.Value.  
    Set vsoCell = vsoShape.Cells("Prop.Manufacturer")  
 
    'Get the cell value as a string  
    'and put it into the text box on the form.  
    UserForm1.TextBox1.Text = vsoCell.ResultStrU(Visio.visNone)  
 
    'Set the caption of the label.  
    UserForm1.Label1.Caption = "Prop.Manufacturer"  
 
    'The second method of accessing shape data uses  
    'section, row, cell. This method is best when you want  
    'to iterate through all the shape data.  
    intRows = vsoShape.RowCount(Visio.visSectionProp)  
 
    'Make sure the list box is cleared.  
    UserForm1.ListBox1.Clear  
 
    'Loop through all the rows and add the value of Prop.Manufacturer  
    'to the list box. Rows are numbered starting with 0.  
    For intCounter = 0 To intRows - 1  
        Set vsoCell = vsoShape.CellsSRC(Visio.visSectionProp, intCounter, visCustPropsValue)  
        UserForm1.ListBox1.AddItem vsoCell.LocalName & vbTab & _  
            vsoCell.ResultStrU(Visio.visNone)  
    Next intCounter  
 
    'Display the user form.  
    UserForm1.Show  
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через