Método Characters.AddFieldEx (Visio)

Substitui o texto representado por um objeto Caracteres por um novo campo da categoria, código, formato, ID do idioma e ID do calendário especificados.

Sintaxe

mais simples. AddFieldEx (Category, Code, Format, LangID,CalendarID)

expressão Uma variável que representa um objeto Characters .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Categoria Obrigatório VisFieldCategories A categoria do novo campo.
Código Obrigatório VisFieldCodes O código do novo campo.
Format Obrigatório VisFieldFormats O formato do novo campo.
LangID Opcional Long O idioma a ser usado para o novo campo.
CalendarID Opcional Long O calendário a ser usado para o novo campo.

Valor de retorno

Nada

Comentários

Valores constantes para Categoria, Código e Formato são declarados pela biblioteca de tipos do Visio em VisFieldCategories, VisFieldCodes e VisFieldFormats , respectivamente.

O argumento LangID deve ser uma das IDs padrão usadas pelo Windows para codificar versões de idiomas diferentes. Por exemplo, a ID do idioma é &H0409 para a versão americana do Microsoft Visio. Para exibir uma lista de possíveis IDs de idioma, pesquise por "VERSIONINFO" no Microsoft Platform SDK no MSDN.

O argumento CalendarID deve ser um dos seguintes valores, declarados em VisCellVals na biblioteca de tipos do Visio. O valor padrão é visCalWestern, que define o calendário como ocidental.

Constant Valor Descrição
visCalWestern 0 Ocidental
visCalArabicHijri 1 Islâmico árabe
visCalHebraicoLunar 2 Lunar hebraico
visCalChineseTaiwan 3 Calendário de Taiwan
visCalJapaneseEmperor 4 Reinado do imperador japonês
visCalBudismo tailandês 5 Budista tailandês
visCalKoreanDanki 6 Danki coreano
visCalSakaEra 7 Era Saka
visCalTranslitEnglish 8 Transliteração inglesa
visCalTranslitFrancês 9 Transliteração francesa

Usar o método AddFieldEx é semelhante a clicar em Campo na guia Inserir e inserir quaisquer das seguintes categorias dos campos no texto:

  • Data/Hora

  • Informações do documento

  • Geometria

  • Informações do objeto

  • Informações da página

Para adicionar um campo de fórmula personalizado, use o método AddCustomField ou AddCustomFieldU . Quando você não passa valores (ou passa valores padrão) para os argumentos opcionais LangID e CalendarID , AddFieldEx age exatamente como AddField.

Exemplo

A seguinte macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade AddFieldEx para formatar um campo de data em uma forma. Ele desenha um retângulo na página de desenho e, em seguida, insere um campo que exibe a data atual em grego, usando o calendário ocidental.

Public Sub AddFieldEx_Example() 
 
 Dim vsoCharacters As Visio.Characters 
 Dim vsoShape As Visio.Shape 
 
 ActiveWindow.DeselectAll 
 
 Set vsoShape = Application.ActivePage.DrawRectangle(3, 5, 5, 3) 
 vsoShape.Text = "Date: " 
 
 Set vsoCharacters = vsoShape.Characters 
 
 'Set Begin property equal to End property to 
 'append new text to existing text. 
 vsoCharacters.Begin = vsoCharacters.End 
 
 'Add a field for the current date, in Greek, 
 'using the Western calendar and the long date format. 
 vsoCharacters.AddFieldEx visFCatDateTime, visFCodeCurrentDate, visFmtMsoDateLong, 1032, visCalWestern 
 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

  • Last updated on