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

Question

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

这相当于：

我将这张图片复制/粘贴在工作簿的一张纸上，并将其称为picture。

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

我该怎么用来取代...并指向我的形象？

谢谢

Answer 1

感谢Cyril's suggestion我设法复制/粘贴图片以取代系列的最后一点。代码是：

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

如果有人有更好的解决方案随时发布它！

Answer 2

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

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