使用 VBA 将图像导入 visio

Question

我正在使用 VBA 将数据从 Excel 文件导入 Visio，并且我还需要在 Visio 文件中包含一个不在我的 Excel 中的图像] 文件，但保存在本地。我需要能够像处理形状对象一样处理图像（即；使用 VBA 设置其 width/height/position，例如 Shape.Cells ("width") = X 等）

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

Answer 1

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

VisShapeTypes Enumeration (Visio)

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

Answer 2

您必须定义要插入图片的页面。详细了解 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"

使用 VBA 将图像导入 visio

Importing images into visio using VBA

import

excel

vba

visio

image