Excel VBA - 用图片替换图表标记

Question

我想用 VBA 中的图片替换折线图的标记。

这相当于：

我copied/pasted这张图片在一个sheet的工作簿中并命名为picture。

With .ChartObjects("graph").Chart
    .SeriesCollection(1).MarkerStyle = xlMarkerStylePicture
    ...
End With

我应该用什么来替换 ... 并指向我的图片？

谢谢

Answer 1

如果您在文件系统上使用某些东西，那么您可以使用这个：

With .ChartObjects("graph").Chart
    .SeriesCollection(1).MarkerStyle = xlMarkerStylePicture
    .SeriesCollection(1).Format.Fill.UserPicture "C:\...your path...\pic.png"
End With

Answer 2

感谢 Cyril's suggestion 我设法 copy/paste 图片替换了系列的最后一点。代码是：

Sheets("param").Shapes("picture").CopyPicture
With .ChartObjects("graph").Chart
    .Points(.Points.Count).Paste
End With

如果有人有更好的解决方案，请随时post它！

Excel VBA - 用图片替换图表标记

Excel VBA - Replace chart marker with picture

excel

charts

vba

marker