Propriedade Project.CurrencySymbol (Project)

Obtém ou define os caracteres que denotam valores monetários. Cadeia de caracteres de leitura/gravação.

Sintaxe

expression. CurrencySymbol

Expressão Uma variável que representa um objeto Project .

Comentários

O Project define a propriedade CurrencySymbol igual ao valor correspondente na caixa de diálogo Personalizar opções regionais do painel de controle do Windows.

Exemplo

O exemplo a seguir formata valores monetários no projeto ativo conforme o país ou região especificada pelo usuário.

Sub FormatCurrency() 
 
    Dim CountryOrRegion As String 
 
    ' Prompt the user to enter the name of a country or region. 
    CountryOrRegion = UCase(InputBox$("Enter the name of a country or region: ", "Format Currency By Country Or Region")) 
     
    Select Case CountryOrRegion 
        Case "US", "United States", "USA", "United States of America" 
            ActiveProject.CurrencySymbol = "$" 
            ActiveProject.CurrencySymbolPosition = pjBefore 
        Case "ENGLAND" 
            ActiveProject.CurrencySymbol = Chr(163) 
            ActiveProject.CurrencySymbolPosition = pjBefore 
        Case "SWEDEN" 
            ActiveProject.CurrencySymbol = "kr" 
            ActiveProject.CurrencySymbolPosition = pjAfterWithSpace 
        ' Warn user if the currency format is not known. 
        Case Else 
            MsgBox ("The currency format for that country or region is unknown.") 
    End Select
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.