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