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

我认为你必须避免excel使用某种自动设置本地格式的ticklabel数字格式。

此代码在复制图表之前将ticklabel数字格式设置为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

应该解决你的问题

VBA图表到图像复制/粘贴货币

1 个答案: