将UserForm数据复制到PowerPoint图表中的下一个空行

Question

我在PowerPoint中帮助创建了一个UserForm，以帮助获得一致的嵌入式图表数据条目。根据我所学到的，我将永远不会再这样做，因为遍历PowerPoint需要的附加代码才能到达所需更新的正确位置。无论如何，我想完成将UserForm中的数据导入第一个空行的最终目标。我有代码，但有一个错误阻止数据卸载。我的代码如下。非常感谢任何帮助识别故障。

Private Sub CPDataAdd_Click()

Dim sld As Slide
Dim shp As shape
Dim chrt As Chart
Dim xlWB As Object

        For Each sld In ActivePresentation.Slides
            For Each shp In sld.Shapes
                    If shp.Type = msoChart Then
                        If shp.Name = "DVchart" Then
                            Set xlWB = shp.Chart.ChartData.Workbook
                            Exit For
                        End If
                    End If
            Next
            If Not xlWB Is Nothing Then Exit For
        Next

Set shp = sld.Shapes("DVchart")
Set xlWB = shp.Chart.ChartData.Workbook

Dim LastRow As Long

    With xlWB.Sheets(1)

        LastRow = .Range("AI" & Rows.Count).End(xlup).Row + 1

        .Range("AI" & LastRow).Value = CPDate.Text
        .Range("BI" & LastRow).Value = CPCompleteN.Text
        .Range("CI" & LastRow).Value = CPPassN.Text
        .Range("DI" & LastRow).Value = CPFailN.Text
        .Range("EI" & LastRow).Value = CPNotN.Text

    End With
End Sub