如何将数据集/查询表转换为 OLE 对象？答案

【问题标题】：How to turn a Dataset/query table into an OLE Object?如何将数据集/查询表转换为 OLE 对象？
【发布时间】：2023-03-30 18:34:01
【问题描述】：

我有一些 VB 可以自动将 OLE 对象复制到 PowerPoint 中。这样做的目的是我的数据库运行查询，然后表单将它们变成图表。当它通过关于打开/关闭事件的各种查询/表单运行时，图表被添加到 powerpoint 演示文稿中。

我也有并行查询以数据表形式显示结果数据，我想知道是否有办法将其转换为 OLE 对象（如图表），以便我可以让这个东西自动将这些添加到PowerPoint to0。

基本的想法是我复制并粘贴到每张相关幻灯片（带数据的图表）的幻灯片的注释部分，我想知道是否有更好的方法来做到这一点？

我问这个“OLE 想法/方法”的原因是 OLEobject = copy 是我能够让这个东西自动化它的 powerpoint 方面的唯一方法（或者，这是我知道的唯一方法去做）。

任何建议都会受到赞赏！

【问题讨论】：

【解决方案1】：

我猜你可以使用这样的代码：

DoCmd.OpenForm "FormName", acFormDS

DoCmd.RunCommand acCmdSelectAllRecords

DoCmd.RunCommand acCmdCopy

然后将表格粘贴到 PowerPoint 中。

另一种选择是打开一个记录集对象并构建一个表格来填充单元格。

【讨论】：

谢谢。实际上，我之前已经查看过该代码（我的意思是提供的链接），并将其应用于我的数据库。问题在于我只是在学习 Visual Basic，而且现在只在工作中使用访问权限不到一年（我有点被投入到管理 4 个不同的访问中）。但我学到了很多东西。这对我来说是一个很棒的例子，但我还不太擅长 ppt vba，也不知道如何在我想要的地方格式化/放置文本框。我确实尝试了您提供的上述示例，并且效果更好！我可以将它们添加到我的代码中，然后...
只需将数据表粘贴到下一张幻灯片上。我需要的是这个数据集位于相关图表幻灯片的“注释”部分，但这比复制/粘贴单个数据集更接近（有 64 个......）。说了这么多……谢谢！