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

Sub ReplaceDataLabelsWithImages()
    Dim cht As Chart
    Dim ser As Series
    Dim pt As Point
    Dim imgPath As String
    
    ' 设置图片路径
    imgPath = "C:\path\to\image.png"
    
    ' 获取当前活动工作表上的图表对象
    Set cht = ActiveSheet.ChartObjects(1).Chart
    
    ' 遍历每个数据系列
    For Each ser In cht.SeriesCollection
        ' 遍历每个数据点
        For Each pt In ser.Points
            ' 删除数据标签
            pt.HasDataLabel = False
            
            ' 添加图片
            pt.ApplyDataLabels
            pt.DataLabel.Format.TextFrame2.TextRange.Delete
            pt.DataLabel.Format.Fill.UserPicture imgPath
            pt.DataLabel.Format.Fill.Transparency = 0
            pt.DataLabel.Format.Fill.Solid
            pt.DataLabel.Format.Line.Visible = msoFalse
        Next pt
    Next ser
End Sub