如何在PowerPoint中实现点击按钮复制文件夹路径到剪贴板

步骤1：添加按钮控件 #

• 打开你的PPT，切换到开发工具选项卡（如果该选项卡未显示，依次点击「文件→选项→自定义功能区」，勾选「开发工具」即可调出）。
• 在「控件」组中选择命令按钮（ActiveX控件），在幻灯片上拖动鼠标绘制一个按钮，调整大小和位置后，修改按钮显示文字为「复制保存路径」之类的提示语。

步骤2：编写VBA复制代码 #

• 右键点击刚添加的按钮，选择「查看代码」，打开VBA编辑器。
• 粘贴以下代码，将代码中的"C:\Your\Target\Folder\Path"替换为你需要复制的实际文件夹路径：

Private Sub CommandButton1_Click()
    Dim targetPath As String
    ' 替换为你的目标文件夹路径
    targetPath = "C:\Your\Target\Folder\Path"
    
    ' 将路径写入剪贴板
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText targetPath
        .PutInClipboard
    End With
    
    ' 可选：弹出提示告知操作完成
    MsgBox "路径已复制到剪贴板：" & vbCrLf & targetPath, vbInformation
End Sub

提示：如果需要动态获取PPT所在文件夹路径，可将targetPath赋值为ThisPresentation.Path，这样路径会随PPT的存储位置自动更新。

步骤3：保存并测试功能 #

• 将PPT保存为**启用宏的演示文稿（.pptm）**格式，否则宏功能会被禁用。
• 关闭VBA编辑器，切换到「幻灯片放映」模式，点击按钮测试：弹出提示框即表示路径已成功复制到剪贴板。
• 打开文件X执行「另存为」操作时，直接在路径栏按下Ctrl+V即可快速跳转目标文件夹。

注意事项 #

• 确保PPT的宏设置允许启用宏：依次点击「文件→选项→信任中心→信任中心设置→宏设置」，选择「启用所有宏」或「启用签署的宏」（根据安全需求调整）。
• 文件夹路径需填写正确，末尾带不带\都不影响粘贴使用。

内容的提问来源于stack exchange，提问作者Iftikhar Ali