问题标签 [createoleobject]

我对 OLEObjects 和记录集有一些问题......

我在我的代码中动态创建了一些控件。我准备它们，填充它们，然后使用从它们收集的数据在 AS400 (adodb) 上运行查询。

当我取回数据时，我遇到了这个问题：

我oleobjects在工作表顶部开始表现得很奇怪：它们看起来很正常，但是当我单击其中一个时，Left属性似乎发生了变化。在按住鼠标按钮的同时，我看到了两次控件，一次是它应该在的位置，另一次是在向右偏移的另一个位置（我们称它为 buggy 版本）。如果我的指针离开控件，它将返回到正常位置。

控件的全局性对我的鼠标单击做出反应，将控件向右偏移并显示其“Buggy 版本”，但正常行为（Click是我管理的唯一事件）只有在我单击 Buggy 版本时才会发生......每个当我运行查询时，错误控件越来越向右偏移。

这里有一些图片：

开始：一切正常

第一次查询：单击按钮左侧时第一次运行后的行为：

第二个查询：相同，但偏移量更大：

当我不点击控件时，它们就像第一张图片中一样。

这会影响我的所有控件，除了左边的前 3 个控件 = 0

我希望我很清楚，并且有人对正在发生的事情有所了解。

我有一个 Excel 工作簿，其中嵌入了另一个 Excel 工作簿。我可以用 VBA 打开它，但我不知道如何引用和编辑嵌入式工作簿中的一些单元格。知道怎么做吗？提前非常感谢。

我有一个带有多个列表框的用户窗体。我需要按名称访问 ListBox（而不是直接通过对象引用）。

我正在尝试遵循这篇文章的建议：

我确定我正在寻找正确的名称，因为 ListBox 也是按名称添加的：

我试图循环通过控件而不是 OLEObjects，但它也失败了。

我正在使用以下组合：

目的是在特定单元格的 Excel 工作表上放置一个图标。使用这些命令运行时，我得到一个方形图标，测量大约 50 x 50 点，并在文本上方显示 acrobat 符号，即“189.PDF，标识为上面的 IconLabel。我正在尝试将图标的大小调整为 8 x 18点所以它适合在单元格内，它测量 10 x 20 点。我不想也显示 Acrobat 图片，只显示 IconLabel 文本。

上面的 Application.DocumentExport 命令完全按照它拍摄的方式工作，将 pdf 源的副本保存为 pdf，即使有很多页。

OLEObjects.Add 命令有效，但不允许我调整图标大小，使其适合我想要放置它的 excel 单元格。

TOffset 是从 Excel 页面顶部到要放置图标的单元格顶部的点的总和。上面的 Width 和 Height 应该以磅为单位表示图标的大小值，但无论是否使用上面的 .OLEObjects.Placement 命令，它们都不起作用。

我尝试运行相同的 2 个命令，但在 OLEObjects 命令字符串中省略了 IconIndex 字段和值。这产生了所需尺寸的所需矩形框，但导致了一些内部 excel 问题，无法保存 excel 文件——由于 excel 文件严重损坏，该应用程序没有允许我保存文件。我将错误追溯到 OLEObjects 字符串中没有 IconIndex 字段名。IconIndex 显示为 OLEObjects.Add Microsoft 页面上的可选条目 如果我为 IconValue 分配除 0 以外的任何整数值，则图标创建为清晰但尺寸与 IconIndex:=0 时相同。

最终目标是获取保存的 PDF 并将保存 pdf 文件副本的图标放入 excel 工作表上的特定单元格中，该单元格的操作类似于按钮，并允许我在图标的标题中写入简短标识符。

最终结果是一个独立的工作簿，可以分发，还需要复制/粘贴应用程序创建的所有 pdf。

对于一些关于如何调整图标大小、使用按钮而不是 OLEOPbjects.add 等的线索，我将不胜感激。我尝试过超链接，但后来我有一个包含很多很多工作表的大型工作簿，每个工作簿都包含一个 PDF。我最终想要的是一个单一的工作表，我可以用它来在我创建的所有不同打印输出的图标中保存 PDF。

谢谢

我尝试使用 Aspose 细胞。但我能够正确添加 pdf 文件。当我添加 jpg 文件时，它显示在 excel 文件中但没有被打开。

我尝试了以下方式。

这里的图像显示为缩略图，但我不希望这样。

在这里它显示了文件的正确图标，但双击时文件没有打开。

来自社区的帮助非常受欢迎。谢谢你。

我正在尝试使用形状对象在 Excel 中添加 pdf 文件。但每次我得到以下异常：

代码：

目录结构：

你能帮我解决这个问题吗？

是否可以将对象嵌入到excel文件中？

我尝试使用"$sheet.OLEObjects().Add()但无法获得正确的参数来嵌入对象。我想知道是否可以使用powershell来做到这一点。

对此问题的任何帮助将不胜感激。

编辑：21/12/2020

这是我所指的代码：

上面的代码给出了错误“无法获取 OLEObjects 类的 Add 属性。

还尝试了下面的方法，它实际上将一张空的工作表附加到了工作簿而不是目标文件，并且还给出了与上面相同的错误消息。

$sheet.OLEObjects().Add('excel.sheet', $missing, $false, $true, $dst, 1, "附件', $missing, $missing,$missing)

我希望捕获 Microsoft Project 视图的屏幕截图（表格数据和视图的甘特图部分），保存为 pdf，以便可以将 PDF 作为 OLE 对象加载到 Excel 工作表中。我尝试过 EditCopy 和 EditCopyPicture，但它们都可以通过 Office 剪贴板工作。办公室剪贴板仅限于 24 张图像，并且不会自行清理。也没有明显的能力告诉剪贴板在放置到剪贴板上时是否保留/删除任何图像。似乎也没有任何方法可以使用 VBA 清除 Office 剪贴板，尽管有使用 Windows 代码清除剪贴板的示例，但我怀疑这可能是与 Office 剪贴板不同的 Windows 剪贴板。我当前流程的问题是它使用办公室剪贴板，

我使用的是 64 位 Windows 机器，带有 Microsoft Office Project 2019 和 Office Pro 2019 套件。

由于我想作为 OLEObject 加载的文件类型是 PDF 或 xps，有没有一种方法可以使用 Fileprint 或 Printout 命令将 Microsoft Project 中的当前视图保存到 pdf 或 xps 文件中，然后将其合并到我的过程。我需要能够定义甘特图显示的开始和结束日期，能够定义保存的文件名，以及定义我希望 PDF/XPS 导出文件制作的页数它尽可能可读。我目前使用 C:\export\export.xps 作为文件名和文件路径。

理想的做法是创建 PDF 并将其作为 OLEObject 加载到 excel 电子表格中是一个步骤，但我还没有找到任何可以完成此操作的代码。我已将大量代码移植到启用宏的电子表格中，以便由 excel 执行，这为我节省了 MS Project 为这部分代码所花费的 90% 的处理时间。如果我能够保存 MS Project 屏幕的 pdf，我将拿起 PDF 并在 excel 代码中继续该过程。我可能需要在 Fileprint 命令之前和之后添加 Application.UpdateDisplay 代码以避免看到对话框。这是我的工作代码。唯一不起作用的部分是我能够创建过滤器 MS 项目屏幕上显示的内容的 pdf：

MinDate 和 Maxdate 是显示在任务筛选视图上的最早和最晚日期。我正在计算整个过程的执行时间，以确定我应该在哪里尝试优化编码。Scalerow 是一个缩放因子，我试图平衡文本字段所需的屏幕份额与甘特图的屏幕右侧。我还可以根据 Mindate 和 MaxDate 之间的周数影响时间刻度数据以更改为甘特图的每周、每月或每季度显示。我还可以以合理的比例确定我需要捕获屏幕数据以供以后显示的页面数。

我曾尝试使用 documentexport，但认为此命令仅限于导出甘特图显示的文本部分。

crosoft 文档（“https://docs.microsoft.com/en-us/office/vba/api/Project.Application.DocumentExport”）表明它应该适用于 Microsoft 项目，但我无法保存任何内容使用此命令转换为 PDF/XPS 文件。我想要/需要做的就是能够创建一个 pdf 文件（可能通过选择打印机，将其设置为默认值并打印，尽管我没有成功找到任何代码来帮助我到达那里）。我正在尝试使用“Microsoft Print to PDF”打印机。

任何帮助表示赞赏。

我想创建一个打开图像的按钮。

此代码有效（如果 column 内已有一些文本/数字A，则在运行之前），但它将按钮放在列的左侧B。

如何调整代码以使按钮转到列的右侧A？

当我调试下面的代码时，它工作得很好。当我停止调试时，没有设置宽度和高度。谁能帮我弄清楚为什么？

Dim vWidth As Integer Dim vHeight As Integer Dim OleObj As OleObject