VBA Powerpoint幻燈片數據到組合框項目

Question

這是我的第一個問題，所以對於術語感到抱歉。 我是VBA的初學者，所以我在幾個問題中停止了。

我正在使用Powerpoint。我有組合框，我想添加上一張幻燈片中的表格（可以是表格或Excel展開表格）。

我發現Excel的一個例子（我不知道是否會在PPT工作）：

Sub Loadbox() 
    row_review = 1 
    Dim TheSheet As ????? 
    Set TheSheet = ????? 
    Do 
    DoEvents 
    row_review = row_review + 1 
    item_in_review = TheSheet.Range("A" & row_review) 
     If Len(item_inreview) > 0 Then ComboBox1.AddItem (item_in_review) 

    Loop Until item_in_review = "" 
End Sub 

但我不明白如何從女巫定義表，我得到的數據項。

也許有更好的方法如何做到這一點？

Answer 1

要讀取PowerPoint表格中行的第一個單元格的內容，這是起點。

Dim tbl As Table 
Dim i As Long 

Set tbl = ActivePresentation.Slides(1).Shapes(2).Table 
For i = 1 To tbl.Rows.Count 
    Debug.Print tbl.Cell(i, 1).Shape.TextFrame2.TextRange.Text 
Next