如何使用 VBA 宏 (xlsm) 将 Excel 粘贴到 PowerPoint (pptx) 而不发出警告

Question

我使用 Excel 和 PowerPoint 的组合进行教学。我使用带有辅助宏的 Excel 工作簿，这样可以轻松显示单元格旁边的单元格公式。我认为这不是直接相关的，但这里是：

'8/5/2006 Thanks to Maja Sliwinski and Beni Czaczkes
Function getformula(r As Range) As String
   Application.Volatile
   If r.HasArray Then
   getformula = "<-- " & " {" & r.FormulaArray & "}"
   Else
   getformula = "<-- " & " " & r.FormulaArray
   End If
End Function

在工作簿中没有宏 (xlsx) 我可以选择一个图表并使用 CTRL-C 复制它，然后使用 CTRL-V 将其粘贴到 PowerPoint 幻灯片中（或选择性粘贴以获取多个数据和格式选项）。但是，如果我在这个启用宏的工作簿 (xlsm) 中制作图表，则无法轻松将其粘贴到 PowerPoint 中。当我尝试时，PowerPoint 会冻结/暂停，因为 Excel 会发出警告，提醒我“小心”，因为“文档检查器可能不会删除所有个人信息”。有时我可以粘贴成功，但如果需要两次、三次或四次尝试，我还没有注意到其中的规律。

我怎样才能消除这个警告，以便获得我想要的行为？

我应该补充一点，我可以将工作簿作为对象“插入”，但我更喜欢简单的剪切粘贴。此外，工作簿中可能包含多个表格或图表，因此我更喜欢手动选择每个表格或图表。