VBA Chart to Image Copy/Paste Currency

Question

Используется сайт для решения проблем VBA и еще не задал вопрос - надеюсь, кто-то может помочь.

Этот код используется для копирования листов листа Excel в другую книгу как изображение. Проблема заключается в том, где моя диаграмма измеряет валюту и показывает «£» по оси Y, изображение диаграммы, которое вставляется в другую книгу, всегда находится в долларах «$».

Есть ли способ заставить мои диаграммы скопировать валюту GBP?

Мой код:

Windows(dsllng).Activate 
ActiveSheet.Shapes("Chart 8").CopyPicture Appearance:=xlScreen, Format:=xlPicture 
Windows(TdysFle).Activate 
Range("B11").Select 
Sheets("Ad-Selling Report Summary").Paste 

спасибо,

Эшли

Answer 1

Я думаю, что вы должны избегать, что первенствует использует какой-то автоматической настройки локальных форматов для ticklabel NumberFormat.

Этот код устанавливает формат ticklabelform в GBP до копирования диаграммы и устанавливает его обратно для ссылки на данные ячейки после копирования.

Windows(dsllng).Activate 
With ActiveSheet.ChartObjects("Chart 8") 
    .Chart.Axes(xlValue).TickLabels.NumberFormatLinked = False 
    .Chart.Axes(xlValue).TickLabels.NumberFormat = "#,##0.00 £" 
    .CopyPicture Appearance:=xlScreen, Format:=xlPicture 
    .Chart.Axes(xlValue).TickLabels.NumberFormatLinked = True 
End With 
Windows(TdysFle).Activate 
Range("B11").Select 
Sheets("Ad-Selling Report Summary").Paste 

Если решить вашу проблему