首先，打開(kāi) PowerPoint 2013，并按下 ALT + F11 組合鍵打開(kāi) VBA 編輯器在左側(cè)的項(xiàng)目資源管理器窗口中，雙擊 quotThisPresentationquot 以打開(kāi)該演示文稿的代碼窗口在代碼窗口中，輸入以下代碼Option Explicit Private Sub Shap。

在PPT中點(diǎn)擊視圖visual basic，加載vb視窗，添加4個(gè)單選按鈕，一個(gè)標(biāo)簽，一個(gè)命令按鈕，在代碼窗口輸入下面代碼Private Sub CommandButton1_ClickIf OptionButton1Value = True Then Label1Caption = quot單選。

ppt總頁(yè)數(shù)的域代碼方法是1在要顯示總頁(yè)數(shù)的幻燈片上，點(diǎn)擊“插入”選項(xiàng)卡，然后選擇“文本框”2在幻燈片上繪制一個(gè)文本框，然后切換到“插入”選項(xiàng)卡3在“文本”組中，點(diǎn)擊“快部件”下拉菜單，然后選擇“域”。

1首先在打開(kāi)的PPT文件的工具欄中點(diǎn)擊“插入”工具2然后找到“符號(hào)”選項(xiàng)，點(diǎn)擊其下拉菜單選擇其中的“其他符號(hào)”選項(xiàng)3進(jìn)入符號(hào)插入的窗口，在右下角的下拉框中選擇“十進(jìn)制”4然后在“字符代碼”的框內(nèi)輸入。

1 新建一個(gè)Power Point文檔2 單擊工具欄內(nèi)的視圖工具欄控件工具箱3 單擊其他控件最后一個(gè)4單擊其他控件后，彈出選擇控件對(duì)話框，選擇shockwave flash object4 這時(shí)，光標(biāo)變成了一個(gè)。

1打開(kāi)幻燈片，點(diǎn)擊視圖，打開(kāi)視圖后點(diǎn)擊滑塊，在彈出的窗口中點(diǎn)擊顏色然后點(diǎn)擊自定義2在自定義窗口中，輸入顏色代碼3點(diǎn)擊應(yīng)用，即可完成設(shè)置。

第一種方法，工具宏VB編輯器 第二種方法，視圖工具欄控件工具箱，現(xiàn)在就可以把工具箱里面的控件，點(diǎn)一下，然后在PPT白板上拖放，在上面雙擊鼠標(biāo)，就可以編寫(xiě)相應(yīng)代碼詳細(xì)情況，去買(mǎi)本書(shū)，專門(mén)講解VBA的。

1打開(kāi)ppt2打開(kāi)“控件工具箱”，步驟菜單視圖工具欄控件工具箱3用控件工具箱畫(huà)控件4在控件上右鍵，通過(guò)“屬性”命令設(shè)置每一個(gè)控件的屬性5在某一個(gè)控件上右擊，選擇“查看代碼”，這時(shí)就出現(xiàn)了Visual B。

4點(diǎn)開(kāi)發(fā)工具菜單點(diǎn)命令按鈕，在編輯區(qū)繪制一個(gè)命令按鈕5選中命令按鈕，鼠標(biāo)右鍵選擇屬性6名稱輸入commandCaption輸入隨機(jī)抽取7選中命令按鈕，鼠標(biāo)右鍵選擇查看代碼，輸入LabelCaption = 1 + Int55。

第二步右擊按鈕的控件，選擇”控件屬性“在左側(cè)設(shè)的置名稱和的其他樣式 第三步同理設(shè)置文本的框的樣式和名稱等第四步選擇按鈕的控件，并右擊，選擇“查看代碼”即可進(jìn)入的代碼編輯頁(yè)面 第五步在代碼編輯區(qū)域輸入。

為如下宏創(chuàng)建一個(gè)快捷鍵或加一個(gè)工具欄圖標(biāo)，需要時(shí)，先Copy一下源數(shù)據(jù)，再選擇好目標(biāo)位置后，執(zhí)行之，即可Sub 選擇性粘貼宏_加On Error GoTo ErrorHandler SelectionPasteSpecial Paste=xlPasteValues， Operation=。

有了上面的解釋，我們?cè)倏聪旅娴膶?shí)現(xiàn)代碼時(shí)，相信大家肯定不會(huì)覺(jué)得有任何難道了，下面就直接貼出部分的實(shí)現(xiàn)的代碼 檢查是否打開(kāi)幻燈片程序 privatevoid btnCheck_Clickobject sender， Eve。

1方法一單引號(hào)法此方法是指在輸入身份證號(hào)等數(shù)字前，先在單元格中輸入單引號(hào)，然后再輸入你需要的數(shù)字，這樣就能保證數(shù)字不會(huì)變成E+的亂碼注意，在輸入單引號(hào)時(shí)，要在英文狀態(tài)下輸入，因此需要關(guān)閉所有的中文輸入。

比如選擇一個(gè)“命令按鈕”，再在ppt內(nèi)容上單擊一下，將會(huì)出現(xiàn)一個(gè)button，雙擊此button，進(jìn)入vb編輯器，就可以在里面添加vb代碼了比如添加 MsgBoxquotHello！quot保存之后返回ppt，然后放映幻燈片，當(dāng)用鼠標(biāo)點(diǎn)擊那個(gè)button后。

你是指模塊中的VBA代碼？使用空格+_，再回車(chē)。