当 PowerPoint 演示文稿和图像移动到新驱动器时，不会显示链接的图像

打包演示文稿和关联的文件

PowerPoint 2007

若要使用 PowerPoint 2007 的 “CD 包 ”功能，请执行以下步骤：

1. 打开要打包为 CD 的演示文稿。

2. 单击“ Microsoft Office 按钮 ”，指向 “发布”，然后单击“ CD 包”。

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 的 “CD 包 ”功能，请执行以下步骤：

1. 打开要打包为 CD 的演示文稿。

2. 单击“文件”菜单上的“CD 包”。

3. 默认情况下，所有链接的文件都包含在打包的演示文稿中。 单击“ 复制到文件夹”，或单击“ 复制到 CD”。
   
   如果单击了“ 复制到文件夹”，请执行以下步骤：

   1. 在“文件夹名称”框中键入 文件夹名称 ，然后单击“ 浏览 ”找到此文件夹的目标。

   2. 单击 “选择”，然后单击“ 确定”。

   3. 单击“ 是 ”将链接的文件与演示文稿一起包含在内。

   如果单击了“ 复制到 CD”，则必须准备好将空白可写 CD 插入 CD 或 DVD 光盘驱动器。 单击“ 重试”。 PowerPoint 完成 CD 的刻录后，当系统提示你刻录另一张 CD 时，单击“ 否 ”。

4. 单击“关闭”。

若要开始演示文稿，可以将 CD 插入计算机，然后在 Windows 资源管理器中双击 CD 图标，也可以找到在步骤 4 中创建的文件夹，然后在 PowerPoint 2007 中打开演示文稿。

PowerPoint 2002

若要在演示文稿上使用 Pack and Go 在另一台计算机上运行，请执行以下步骤：
 

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