當 PowerPoint 簡報和影像移至新磁片磁碟機時，不會顯示連結的影像

封裝簡報和相關聯的檔案

PowerPoint 2007

若要使用 PowerPoint 2007 的「封裝成光碟」功能，請遵循下列步驟：

1. 開啟您要封裝成 CD 的簡報。

2. 按一下 [Microsoft Office 按鈕 ，指向 [ 發佈]，然後按一下 [ 封裝成光碟]。

3. 如果系統提示您確認轉換為舊版 PowerPoint 格式，請按一下 [ 確定]。

4. 根據預設，所有連結的檔案都會包含在封裝的簡報中。 按一下 [複製到資料夾]，或按一下 [ 複製到 CD]。
   
   如果您按一下 [ 複製到資料夾]，請遵循下列步驟：

   1. 在 [資料夾 名稱 ] 方塊中輸入資料夾名稱，然後按一下 [ 流覽 ] 找出此資料夾的目的地。

   2. 按一下 [選取]，然後按一下 [ 確定]。

   3. 按一下 [是 ]，將連結的檔案與簡報一起包含在一起。

   如果您按一下 [ 複製到 CD]，您必須準備好一個空白的可寫 CD，才能插入 CD 或 DVD 光碟機。 按一下 [重試]。 當 PowerPoint 完成燒錄 CD 時，當系統提示您燒錄另一張 CD 時，請按一下 [ 否 ]。

5. 按一下 [關閉]。

若要開始簡報，您可以將 CD 插入電腦，然後按兩下 Windows 檔案總管中的 CD 圖示，或是找出您在步驟 4 中建立的資料夾，然後在 PowerPoint 2007 中開啟簡報。

PowerPoint 2003

若要使用 PowerPoint 2003 的「封裝成光碟」功能，請遵循下列步驟：

1. 開啟您要封裝成 CD 的簡報。

2. 按一下 [檔案] 功能表上的 [封裝成光碟]。

3. 根據預設，所有連結的檔案都會包含在封裝的簡報中。 按一下 [複製到資料夾]，或按一下 [ 複製到 CD]。
   
   如果您按一下 [ 複製到資料夾]，請遵循下列步驟：

   1. 在 [資料夾 名稱 ] 方塊中輸入資料夾名稱，然後按一下 [ 流覽 ] 找出此資料夾的目的地。

   2. 按一下 [選取]，然後按一下 [ 確定]。

   3. 按一下 [是 ]，將連結的檔案與簡報一起包含在一起。

   如果您按一下 [ 複製到 CD]，您必須準備好一個空白的可寫 CD，才能插入 CD 或 DVD 光碟機。 按一下 [重試]。 當 PowerPoint 完成燒錄 CD 時，當系統提示您燒錄另一張 CD 時，請按一下 [ 否 ]。

4. 按一下 [關閉]。

若要開始簡報，您可以將 CD 插入電腦，然後按兩下 Windows 檔案總管中的 CD 圖示，或是找出您在步驟 4 中建立的資料夾，然後在 PowerPoint 2007 中開啟簡報。

PowerPoint 2002

若要在簡報上使用套件和執行，在另一部電腦上執行，請依照下列步驟執行：
 

1. 開啟您要封裝的簡報。

2. 在 [ 檔案] 功能表上，按一下 [ 隨手打包]。

3. 依照 [隨包精靈] 中的指示進行。
   
   當系統提示要複製到哪一個磁片磁碟機時，請按一下 [選取目的地 ]，然後流覽至暫存檔案位置。 這是您包裝簡報及其相關檔案的地方。 按 [下一步]。

4. 選擇包含 連結的檔案。 此時，您可以選擇在簡報中內嵌 TrueType 字型。 按 [下一步]。

5. 請勿包含檢視器。 按一下 [下一步]，然後按一下 [完成]。

接著，您可以將打包的檔案和Pngsetup.exe程式複製到您選擇的任何磁片磁碟機或網路共用。
 

拆箱 PowerPoint 2002 簡報

若要檢視簡報，您必須移至複製套件檔案的位置，然後將它拆封。 如果要執行這項操作，請依照下列步驟執行：
 

1. 在 Microsoft Windows 檔案總管中，流覽至塞滿簡報的位置，然後按兩下 [Pngsetup]。

2. 輸入您要將檔案拆箱取出的位置。

3. 按一下 [確定]。

簡報和連結的圖片將會在您選擇的位置中拆箱。
 

範例代碼

1. 開啟 Visual Basic 編輯器：
   
   PowerPoint 2007

   1. 按一下 [檢視] 索引標籤。

   2. 按一下 [宏] 群組中的 [ 宏] 。

   3. 在 [宏名稱] 方塊中輸入 RelPict，然後按一下 [ 建立]。

   PowerPoint 2003 和 PowerPoint 2002

   1. 在 [ 工具] 功能表上，指向 [ 宏]，然後按一下 [ 安全性]。

   2. 按一下 [中 ] 以瞭解安全性等級。 按一下 [確定]。

   3. 在 [ 工具] 功能表上，指向 [ 宏]，然後按一下 [ Visual Basic 編輯器]。

   4. 在 [插入] 功能表上，按一下 [模組]。

2. 在模組中輸入下列程式碼：

   Sub RelPict()
      Dim oSlide As Slide
      Dim oShape As Shape
      Dim lPos As Long
      Dim strLink As String
      '
      ' Loop through the presentation checking each shape
      ' on each slide to see if it is a linked picture.
      '
      For Each oSlide In ActivePresentation.Slides
         For Each oShape In oSlide.Shapes
            If oShape.Type = msoLinkedPicture Then
               With oShape.LinkFormat
      '
      ' Search from the right hand portion of the source
      ' filename and find the first backslash "\" character.
      '
                  lPos = InStrRev(.SourceFullName, "\")
      '
      ' Check to see if the link has already been modified.
      '
                  If lPos <> Null Then
      '
      ' Determine how long the filename is, by subtracting
      ' the position the "\" character was found at from
      ' the total length of the source file name.
      '
                     lPos = Len(.SourceFullName) - lPos
      '
      ' Extract the filename from the source file name, then
      ' assign the filename to the source file name, turning
      ' it into a relative path.
      '
                     strLink = Right(.SourceFullName, lPos)
                     .SourceFullName = strLink
                  End If
               End With
            End If
         Next oShape
      Next oSlide
   End Sub