以編程方式編輯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