如何正确地将数据从Excel拉入Powerpoint

Question

我有一个带有幻灯片的powerpoint演示文稿，上面有几个标签。我需要从与powerpoint演示文件位于同一文件夹的excel表中提取标签的值。

到目前为止，我用来填充标签的代码是：

Public Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
   If Wn.View.CurrentShowPosition = 1 Then
        'load variable values?
        Dim xlApp As Object
        Dim xlWorkBook As Object
        Set xlApp = CreateObject("Excel.Application")
        xlApp.Visible = False
        Set xlWorkBook = xlApp.Workbooks.Open(ActivePresentation.Path & "\QSheet.xlsx", True, False)
        BrownRetail = xlWorkBook.Sheets(1).Range("B3").Value
        lblBrownTruckRetail.Caption = "$" & CCur(BrownRetail)
        Set xlApp = Nothing
        Set xlWorkBook = Nothing
   End If
End Sub

这是有效的，除了加载速度很慢（开始演示10-15秒），标签显示白色背景而不是透明。另外，对我来说，即使在设计视图中标签值仍然保持不变，这似乎很奇怪。

有没有更好的方法来拉取一个值来填充excel-sheet中的标签？