ppt的vba編程

❶ ppt裡面的VBA怎麼使用，有沒有小例子。

下面是一個例子，來自網路：

下面代碼是把第二張幻燈片的標題設置為第一張幻燈片的文件框的內容
ActivePresentation.Slides(2).Shapes(1).TextFrame.TextRange.Text=ActivePresentation.Slides(1).Shapes(3).TextFrame.TextRange.Text
下面代碼是顯示第一張幻燈片中所有文本框的內容，你看著哪個對你有用，用哪個吧
PrivateSubCommandButton1_Click()
DimiAsInteger
WithActivePresentation.Slides(1)
Fori=1To.Shapes.Count
If.Shapes(i).Type=msoTextBoxThen
MsgBox.Shapes(i).TextFrame.TextRange.Text
EndIf
Next
EndWith
EndSub

❷ 求教 請問在PPT中能否通過在VBA里寫宏實現切換到某頁幻燈片時，自動播放受觸發器控制的動畫

做了個演示文稿，中間做了一張幻燈片，用來播放一段電影。這個電影需要在好幾個幻燈片中都要展示引用，又不想多做幾張這個電影的幻燈片，就開始想能不能用這個一張幻燈片來解決所有問題呢？如果用ppt中默認的幾種超級鏈接方式，都達不到預定的效果，那就是電影播放後，點一下這張幻燈片上唯一的一個按鈕必須返回剛才的幻燈片。我也看到了，很多人在設計時，為了解決這個問題，在有電影的幻燈片下，竟然設置了多個按鈕，以返回不同的上一個幻燈片。我通過研究，終於發現，用vba可以輕松解決這個問題，即使是50張幻燈片都來引用也沒有問題。
放上製作好的圖片：
[轉載]巧用vba在ppt中靈活切換幻燈片X
步驟：1.製作好，多次引用的那張幻燈片。（我的是放電影的那張，就是第13張幻燈片）記住這張幻燈片的序號，在普通視圖下看，即上圖左邊圖圈1那部分序號。
2.利用控制項箱，在這張幻燈片上放一個按鈕，雙擊這個按鈕，進入vba代碼編輯窗口，把下面這段代碼粘入其中：
Private Sub CommandButton1_Click()
SlideShowWindows(1).View.GotoSlide m
End Sub
也就是上圖中的3部分。這段代碼的意思就是單擊按鈕時，切換到第m張幻燈片。m的值在其他引用的按鈕中設置。
3.通過控制項箱，分別在另外幾張你需要引用這個電影的幻 燈片上，插入按鈕。並雙擊按鈕進入vba代碼編輯窗口，給每個按鈕分別寫入代碼。當然你可以把下面的代碼粘入即可。
Private Sub CommandButton1_Click()
SlideShowWindows(1).View.GotoSlide 13
m = 5
End Sub
這段代碼的意思就是單擊按鈕時，切換到第13張幻燈片，同時m設置為5。第13張幻燈片就是我的有電影的那張。
在每個按鈕的代碼中，你需要改變的只是m後的數字。如何改動呢?很容易，這個按鈕在第幾張幻燈片上，這個數字就設置為幾（這個數字在普通視圖下很容易看到，如圈1中的數字）。目的是讓放置電影的那個多次引用的幻燈片，一會能通過這個數字返回來。
另一個按鈕的代碼：
Private Sub CommandButton1_Click()
SlideShowWindows(1).View.GotoSlide 13
m = 8
End Sub
4.插入一個類模塊，在裡面聲明一個公共變數m，可以在各段代碼中引用這個變數。
即上圖中標6的地方。
你可以把下面這段代碼復制使用。
Public m As Integer
好了，下面你就可以放映你的演示文稿了，盡情切換吧！好爽！哦，對了，為了不影響最後的美觀，你可以把這個公共引用的幻燈片設置為隱藏。

當然，如果你不想用vba來操作，也可以在多次引用的這張幻燈片上，放一個圖形，然後通過「動作」設置，來鏈接到「最近的幻燈片」上，就可以了。做了個演示文稿，中間做了一張幻燈片，用來播放一段電影。這個電影需要在好幾個幻燈片中都要展示引用，又不想多做幾張這個電影的幻燈片，就開始想能不能用這個一張幻燈片來解決所有問題呢？如果用ppt中默認的幾種超級鏈接方式，都達不到預定的效果，那就是電影播放後，點一下這張幻燈片上唯一的一個按鈕必須返回剛才的幻燈片。我也看到了，很多人在設計時，為了解決這個問題，在有電影的幻燈片下，竟然設置了多個按鈕，以返回不同的上一個幻燈片。我通過研究，終於發現，用vba可以輕松解決這個問題，即使是50張幻燈片都來引用也沒有問題。
放上製作好的圖片：
[轉載]巧用vba在ppt中靈活切換幻燈片X
步驟：1.製作好，多次引用的那張幻燈片。（我的是放電影的那張，就是第13張幻燈片）記住這張幻燈片的序號，在普通視圖下看，即上圖左邊圖圈1那部分序號。
2.利用控制項箱，在這張幻燈片上放一個按鈕，雙擊這個按鈕，進入vba代碼編輯窗口，把下面這段代碼粘入其中：
Private Sub CommandButton1_Click()
SlideShowWindows(1).View.GotoSlide m
End Sub
也就是上圖中的3部分。這段代碼的意思就是單擊按鈕時，切換到第m張幻燈片。m的值在其他引用的按鈕中設置。
3.通過控制項箱，分別在另外幾張你需要引用這個電影的幻 燈片上，插入按鈕。並雙擊按鈕進入vba代碼編輯窗口，給每個按鈕分別寫入代碼。當然你可以把下面的代碼粘入即可。
Private Sub CommandButton1_Click()
SlideShowWindows(1).View.GotoSlide 13
m = 5
End Sub
這段代碼的意思就是單擊按鈕時，切換到第13張幻燈片，同時m設置為5。第13張幻燈片就是我的有電影的那張。
在每個按鈕的代碼中，你需要改變的只是m後的數字。如何改動呢?很容易，這個按鈕在第幾張幻燈片上，這個數字就設置為幾（這個數字在普通視圖下很容易看到，如圈1中的數字）。目的是讓放置電影的那個多次引用的幻燈片，一會能通過這個數字返回來。
另一個按鈕的代碼：
Private Sub CommandButton1_Click()
SlideShowWindows(1).View.GotoSlide 13
m = 8
End Sub
4.插入一個類模塊，在裡面聲明一個公共變數m，可以在各段代碼中引用這個變數。
即上圖中標6的地方。
你可以把下面這段代碼復制使用。
Public m As Integer
好了，下面你就可以放映你的演示文稿了，盡情切換吧！好爽！哦，對了，為了不影響最後的美觀，你可以把這個公共引用的幻燈片設置為隱藏。

當然，如果你不想用vba來操作，也可以在多次引用的這張幻燈片上，放一個圖形，然後通過「動作」設置，來鏈接到「最近的幻燈片」上，就可以了。
VBA是非常流行的應用程序開發語言VISUAL BASIC的子集。在ppt中想要實現編程效果,我們可以使用vba實現。那麼具體怎麼操作呢?下面就是PPT使用VBA代碼編程的教程，一起了解一下。

1、打開ppt，在上面的工具欄中找到【開發工具】並點擊。

PPT使用VBA代碼編程的教程 PPT使用VBA代碼編程的方法

2、點擊過後就可以看到VBA命令按鈕了。(如圖)

PPT使用VBA代碼編程的教程 PPT使用VBA代碼編程的方法

3、點擊VBA命令按鈕，會彈出一個窗口。(如圖)

PPT使用VBA代碼編程的教程 PPT使用VBA代碼編程的方法

4、單擊【演示文稿】找到【插入】中的【用戶窗體】並點擊，在這里就可以加入各種類型了。

PPT使用VBA代碼編程的教程 PPT使用VBA代碼編程的方法

5、完成後，我們就可以找到工具欄中的「||」圖標進行運行測試。

PPT使用VBA代碼編程的教程 PPT使用VBA代碼編程的方法

6、測試過後，我們就可以在工具欄中找到各種命令了。

PPT使用VBA代碼編程的教程 PPT使用VBA代碼編程的方法

上面就是PPT使用VBA代碼編程的教程

❸ pptvba插入公式

pptvba插入公式：點擊「開發工具」中的「Visual Basic」，PPT中的代碼一般要放到模塊里，點擊右鍵，插入模塊。

工具／原料：

聯想hinkBook 14-llL

Windows10

Microsoft PowerPoint 2016

1、首先，打開或者新建一個PPT，如下圖所示。

❹ 如何用vba做ppt

• 首先，新建一個PPT文檔，並復制這段代碼。點擊「開發工具」→Visual Basic或查看代碼

  Sub一鍵EMF()

  ActiveWindow.View.PasteSpecial (ppPasteEnhancedMetafile)

  ActiveWindow.Selection.ShapeRange.Ungroup.Ungroup.Select

  ActiveWindow.Selection.ShapeRange(msoAutoShape).Delete

  ActiveWindow.Selection.ShapeRange.Regroup

  End Sub

• 如果沒有開發工具選項卡，請點擊文件→選項→自定義功能區→主選項卡→勾選「開發工具」→確定。然後根據第一步繼續。如果已經有開發工具選項卡，跳過此步。

• 進入VBA界面後，點擊插入→模塊→在新建的空白區域按Ctrl+V粘貼復制好的代碼→關閉窗口，返回PPT界面。

  

• 我們也可以把宏放到快速訪問工具欄中，方法是：文件→選項→「從下列位置選擇命令」下面選擇「宏」→將一鍵EMF添加到對話框右側的快速訪問工具欄里。此時宏就出現在了快速訪問工具欄上。復制素材後點擊此按鈕，就做到了一鍵導入。經常從AI往PPT導素材的朋友，不妨試試。

  PS：

  1.建議將做好的宏處理文檔單獨保存為pptm格式，使用時打開導入素材，然後把處理後的素材再復制到需要的ppt里，此pptm只作為中轉。

  2.使用一鍵前，請注意先復制元素，否則VBA會報錯。

  3.代碼在PPT2010、2013中測試無誤。

❺ 一個PPT中放入多張帶VBA編程的PPT，保存後VBA不可用

啟用宏的 PowerPoint 演示文稿 文件擴展名為 .pptm、可以包含 VBA 代碼的演示文稿。 啟用宏的 PowerPoint 放映 文件擴展名為 .ppsm、包含預先核準的宏的演示文稿，您可以從演示文稿運行宏。 PowerPoint 啟用宏的模板 文件擴展名為 .potm、包含預先核準的宏的模板，您可以將宏添加到模板中，並在演示文稿中使用。 直接保存成PPT或PPTX是不保存宏的，我以前也碰到過的

❻ 如何在PPT中寫一個VBA 使得播放時每一個slide里添加一個label【PPT2010】

感覺label應該是在slide設計時添加、設定
ppt中的vba只是用來控制跳轉、播放順序、選擇性鏈入圖片和文字等有意義
其他只是花里胡哨的東西
當然對label的內容進行vba編程式控制制或許有一定意義
因為ppt只是用來顯示你要說的內容
在演示之前這些內容就應該已經確定了
只是播放順序、前進、回跳加一些控制會顯得簡單
而不是刷刷刷的來回轉滾輪或啪啪啪地敲鍵盤
（個人體會，小家之見）

❼ ppt vba編程 要求：在演示文稿中，創建新幻燈片，收集選定幻燈片的標題，並鏈接到相應的幻燈片

比較麻煩。看軟體使用說明就星了

❽ 在PPT中vba編程有什麼用

難得的PPT的VBA編程資料喲！要一起選中解壓。

❾ 如何用VBA 編程實現PPT中圖表與EXCEL中

想讓PPT動起來，OTPUB認為只需要兩步：第一步通過Excel設計並製作數據動態圖表的原型；第二步將Excel中製作好的動態圖表嵌套到PPT中，並在發表過程中以Excel為「遙控器」，讓PPT中的圖表實現動態展現效果。

❿ 用宏自動調整格式，如何編寫PPT的VBA

你好！做PPT的原則是一張PPT不要放太多的內容，所以在一張上放的對象應該不會太多~這樣的話還是建議手動調整一下，你要設置＂根據佔位符自動調整文本＂還得考...