Question

这是我的第一个问题，对于术语很抱歉。我是VBA的初学者，所以我在几个问题上停了下来。

我在Powerpoint工作。我有组合框，我想在上一张幻灯片中添加表格中的项目（可以是表格或Excel spreadSheet）。

我找到了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

VBA Powerpoint幻灯片表数据到组合框项目

1 个答案: