使用 VBA 将图像导入 visio答案

【问题标题】：Importing images into visio using VBA使用 VBA 将图像导入 visio
【发布时间】：2023-03-24 12:05:01
【问题描述】：

我正在使用 VBA 将数据从 Excel 文件导入 Visio，并且我还需要在 Visio 文件中包含不在我的 Excel 文件中但保存在本地的图像。我需要能够以类似于形状对象的方式操作图像（即；使用 VBA 设置其宽度/高度/位置，例如 Shape.Cells ("width") = X 等）

我在网上广泛寻找解决方案，但无济于事。

【问题讨论】：

【解决方案1】：

您必须定义要插入图片的页面。阅读更多关于Page.Import Method (Visio)

Set shp = ActivePage.Import("C:\Users\surrogate\Pictures\new.png")  
shp.Cells("PinX").Formula = "100 mm"  
shp.Cells("PinY").Formula = "150 mm"

【讨论】：

哦，现在我明白了。我的 Visio 页面是使用我的自定义函数创建的名为 AppVisio 的单独对象，因此我必须拥有： Dim shp As Object Set shp = AppVisio.ActivePage.Import("C:\Users\surrogate\Pictures\new.png")

【解决方案2】：

当您在 visio 中插入图像时，它变成了形状。

您可以像原生 MS Visio 形状一样设置它们的宽度/高度/pinx/piny

【讨论】：