VBA从Excel子系统在Publisher中绘制形状

我在Xcel中有一个子模块，我想在现有的publisher文档中绘制一个格式化的文本框。然而，当我尝试绘制形状时，它总是给我一个类型不匹配。（当在publisher文档中以sub的形式编写时，此功能非常有效，但在excel sub中则不行）

---

我曾尝试使用整数代替浮点数来表示左上角的宽度和高度，但这也不能解决问题。形状中的某些东西。AddTextbox不起作用，我不知道为什么。

Excel

形状

不是发布者

形状

Dim NameShp As Shape

相当于

Dim NameShp As Excel.Shape

你需要

Dim NameShp As Publisher.Shape

---

Excel

Shape

不是发布者

Shape

Dim NameShp As Shape

相当于

Dim NameShp As Excel.Shape

你需要

Dim NameShp As Publisher.Shape