Pessoal, consegui resolver.

Estava usando string de formatação do tipo Contábil, isto funciona para formatar as células, porém, não deu certo para os gráficos.
Usei formatação do tipo Moeda e, funcionou para os gráficos; testei para as células e, este tipo de formatação não deu certo para elas.

Resumindo, deu tudo certo assim: Usando formatação tipo Contábil para as células e tipo Moeda para os gráficos.

Para as células usei:

Private Function FormatacaoMoeda(ByVal moneyType As String) As String
    Select Case moneyType
        Case Is = "R$": FormatacaoMoeda = _
                "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
        Case Is = "US$": FormatacaoMoeda = _
                "_-[$$-409]* #,##0.00_ ;_-[$$-409]* -#,##0.00 ;_-[$$-409]* ""-""??_ ;_-@_ "
        Case Is = "EUR": FormatacaoMoeda = _
                "_-[$€-2] * #,##0.00_-;-[$€-2] * #,##0.00_-;_-[$€-2] * ""-""??_-;_-@_-"
    End Select
End Function

Para os gráficos usei:

    Select Case moneyType
        Case Is = "R$": FormatMoedaforGraph = "$ #.##0,00"
        Case Is = "US$": FormatMoedaforGraph = "[$$-409] #.##0,00"
        Case Is = "EUR": FormatMoedaforGraph = "[$€-C07] #.##0,00"
    End Select
End Function