VBA PasteSpecial problem

[SteveWright]

Hi Guys,

I have a rather simple piece of code;

Sub ChartToImage()
Dim ch As ChartObject
Dim Sh As Worksheet
Dim chImg As Object

If MsgBox("This will remove all live charts in your document, do you want to continue?", vbOKCancel) = vbOK Then
For Each Sh In Worksheets
Sh.Activate
For Each ch In Sh.ChartObjects
ch.Copy
Sh.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False
Selection.top = ch.top
Selection.left = ch.left
ch.Delete
Range("A1").Select
Next ch
Next Sh
End If
End Sub

This basically just flattens a chart to an image. The problem is though, when I run this it changes all the "£" signs to "$" signs?

Can anyone see where I might be going wrong?

Many thanks,

Steve

 

[SteveWright]

Strangely if I use "£ (English)" or "£ (Welsh)" this problem goes away. My problem still stands though as all our reports use the standard "£" without a counrty afterwards.