Propiedad Project.CurrencySymbol (Project)

Obtiene o establece los caracteres que indican valores de moneda. String de lectura y escritura.

Sintaxis

expresión. CurrencySymbol

expresión Variable que representa un objeto Project .

Observaciones

Project establece la propiedad CurrencySymbol igual al valor correspondiente en el cuadro de diálogo Personalizar la configuración Regional del Panel de Control de Windows.

Ejemplo

El ejemplo siguiente se da formato a los valores de moneda del proyecto activo según el país o la región especificada por el usuario.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.