将图片附加到Excel / VBA中的图表上的一个点

我想知道如何将图片从spreedsheet附加到Excel图表中的一个点，由于单元格的值。 我一直在使用这个代码：

Sub Makro() Dim cell As Range For Each cell In Range("D39:O39") If cell.Value < Range("D41") And cell.Value <> 0 Then ActiveSheet.Shapes.Range(Array("Obraz 18")).Select Selection.Copy ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.PlotArea.Select ActiveChart.Paste Selection.ShapeRange.IncrementLeft 342 Selection.ShapeRange.IncrementTop 19.5 ElseIf cell.Value >= Range("D41") And cell.Value < Range("D40") Then ActiveSheet.Shapes.Range(Array("Obraz 22")).Select Selection.Copy ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.PlotArea.Select ActiveChart.Paste Selection.ShapeRange.IncrementLeft 342 Selection.ShapeRange.IncrementTop 19.5 ElseIf cell.Value > Range("D40") Then ActiveSheet.Shapes.Range(Array("Obraz 19")).Select Selection.Copy ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.PlotArea.Select ActiveChart.Paste Selection.ShapeRange.IncrementLeft 342 Selection.ShapeRange.IncrementTop 19.5 End If Next cell End Sub 

但是，我必须手动将图片拖到它所代表的图表上。 有没有办法将点转换为我可以用作variables的图表方向？ 或者另一种方式？ 谢谢