辦公小技巧：PPT中控制項圖表巧聯動

在利用PPT進行圖表演示時，操作者有可能要與圖表進行交互聯動，比如通過輸入數據來預測產品的生產情況等，這時就需要用到「開發工具」中的控制項了。幾個控制項配合幾句VBA代碼，就可以輕鬆實現上述交互聯動效果（圖1）。

首先，新建一張空白幻燈片，設置好所需要的背景色，選擇「插入」選項卡，點擊對象，在彈出窗口選擇「新建」，在對象類型處選擇「Microsoft Excel Chart」，確定；在彈出的Excel編輯窗口，點擊數據窗口「Sheet1」，根據需要更改數據，刪除不必要的，增加需要的數據，還可以是使用公式。比如，計劃產量是50，A廠產量為計劃產量*50%，B廠產量為計劃產量減去A廠產量（圖2）。再點擊圖表窗口「Chart」，根據需要設置圖表類型，如柱形圖，添加好數據標籤。

在空白處點擊，返回到PPT窗口，將圖表拖放到合適位置。選擇「開發工具」選項卡（如果沒有，可以選擇「文件選項自定義功能區」進行添加），在控制項處選擇所需要的控制項，按住滑鼠左鍵，在幻燈片合適位置拖動，畫出所需要的控制項（如一個滾動條、兩個文本框）；右擊滾動條，選擇「屬性表」，在彈出窗口中，通過BackColor、ForeColor設置好滾動條的背景色、前景色，通過LargeChange、SmallChange設置好最大、最小改變數，通過Max、Min設置好滾動條的最大、最小值。同樣，文本框的屬性也是這樣設置。利用文本框給各個控制項加上標示說明（圖3）。

接下來，選擇「開發工具」選項卡，點擊「Visual Basic」，在出現的VBA代碼編輯窗口中輸入如下代碼（圖4）。

Private Sub ScrollBar1_Change()

TextBox2.Value = ScrollBar1.Value & "%"

TextBox1.Value = 50 * (1 + ScrollBar1.Value / 100)

Set wb = Me.Shapes(1).OLEFormat.Object

Set sh = wb.worksheets("sheet1")

sh.Range("B2") = TextBox1.Value

End Sub

最後，在保存幻燈片時，將類型設置為啟用宏的演示文稿，擴展名為pptm。這樣，當播放幻燈片時，拖動滾動條，文本框控制項中的值、圖表等就會產生相應的聯動效果了。

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！