做了個(gè)演示文稿，中間做了一張幻燈片，用來播放一段電影。這個(gè)電影需要在好幾個(gè)幻燈片中都要展示引用，又不想多做幾張這個(gè)電影的幻燈片，就開始想能不能用這個(gè)一張幻燈片來解決所有問題呢？如果用ppt中默認(rèn)的幾種超級(jí)鏈接方式，都達(dá)不到預(yù)定的效果，那就是電影播放后，點(diǎn)一下這張幻燈片上唯一的一個(gè)按鈕必須返回剛才的幻燈片。我也看到了，很多人在設(shè)計(jì)時(shí)，為了解決這個(gè)問題，在有電影的幻燈片下，竟然設(shè)置了多個(gè)按鈕，以返回不同的上一個(gè)幻燈片。我通過研究，終于發(fā)現(xiàn)，用vba可以輕松解決這個(gè)問題，即使是50張幻燈片都來引用也沒有問題。

放上制作好的圖片：

步驟：1.制作好，多次引用的那張幻燈片。（我的是放電影的那張，就是第13張幻燈片）記住這張幻燈片的序號(hào)，在普通視圖下看，即上圖左邊圖圈1那部分序號(hào)。

2.利用控件箱，在這張幻燈片上放一個(gè)按鈕，雙擊這個(gè)按鈕，進(jìn)入vba代碼編輯窗口，把下面這段代碼粘入其中：

Private Sub CommandButton1_Click()

SlideShowWindows(1).View.GotoSlide m

End Sub

也就是上圖中的3部分。這段代碼的意思就是單擊按鈕時(shí)，切換到第m張幻燈片。m的值在其他引用的按鈕中設(shè)置。

3.通過控件箱，分別在另外幾張你需要引用這個(gè)電影的幻燈片上，插入按鈕。并雙擊按鈕進(jìn)入vba代碼編輯窗口，給每個(gè)按鈕分別寫入代碼。當(dāng)然你可以把下面的代碼粘入即可。

Private Sub CommandButton1_Click()

SlideShowWindows(1).View.GotoSlide 13

m = 5

End Sub

這段代碼的意思就是單擊按鈕時(shí)，切換到第13張幻燈片，同時(shí)m設(shè)置為5。第13張幻燈片就是我的有電影的那張。

在每個(gè)按鈕的代碼中，你需要改變的只是m后的數(shù)字。如何改動(dòng)呢?很容易，這個(gè)按鈕在第幾張幻燈片上，這個(gè)數(shù)字就設(shè)置為幾（這個(gè)數(shù)字在普通視圖下很容易看到，如圈1中的數(shù)字）。目的是讓放置電影的那個(gè)多次引用的幻燈片，一會(huì)能通過這個(gè)數(shù)字返回來。

另一個(gè)按鈕的代碼：

Private Sub CommandButton1_Click()

SlideShowWindows(1).View.GotoSlide 13

m = 8

End Sub

4.插入一個(gè)類模塊，在里面聲明一個(gè)公共變量m，可以在各段代碼中引用這個(gè)變量。

即上圖中標(biāo)6的地方。

你可以把下面這段代碼復(fù)制使用。

Public m As Integer

好了，下面你就可以放映你的演示文稿了，盡情切換吧！好爽！哦，對(duì)了，為了不影響最后的美觀，你可以把這個(gè)公共引用的幻燈片設(shè)置為隱藏。

當(dāng)然，如果你不想用vba來操作，也可以在多次引用的這張幻燈片上，放一個(gè)圖形，然后通過“動(dòng)作”設(shè)置，來鏈接到“最近的幻燈片”上，就可以了。