以编程方式编辑Powerpoint演示文稿中的文本，表格和表格属性

Question

我必须编写一个程序，用于从SharePoint读取一些数据并将其写入PowerPoint演示文稿。 演示文稿中有一些通配符，如## budget ##，我必须用SharePoint中的值替换。我想，这可以通过搜索来完成，并替换成PowerPoint演示文稿。

但也有一些表背景必须是红色，绿色，黄色等颜色，我不知道，哪些选项可以识别特定的表格和受影响的单元格，哪些是最好的方法那。

Answer 1

这将适用于一个通配符;您需要将其更改为采用参数（您正在搜索的不同通配符文本字符串）或调用另一个例程来轮流搜索每个通配符。但这里是你如何在单元格中找到文本并根据需要进行着色：

Dim oSl As Slide 
Dim oSh As Shape 
Dim oTbl As Table 
Dim x As Long 
Dim y As Long 

For Each oSl In ActivePresentation.Slides 
    For Each oSh In oSl.Shapes 

     ' other code here to check for ## text in the shape 

     If oSh.HasTable Then 
      Set oTbl = oSh.Table 
      With oTbl 
       For x = 1 To .Rows.Count 
        For y = 1 To .Columns.Count 
         With .Cell(x, y) 
          If InStr(.Shape.TextFrame.TextRange.Text, "##budget##") > 0 Then 
           .Shape.Fill.ForeColor.RGB = RGB(255, 0, 0) 
          End If 
         End With 
        Next 
       Next 
      End With 

     End If 
    Next 
Next