通过VBA将图像导入visio

Question

我正在使用VBA将数据从Excel文件导入到Visio中，我还需要在Visio文件中包含一个不在我的Excel文件中但在本地保存的图像。我需要能够像形状对象一样操纵图像（即;使用VBA设置其宽度/高度/位置，如Shape.Cells（“width”）= X等。）

我在网上广泛寻找解决方案，但无济于事。非常感谢任何帮助。

Answer 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" 

Answer 2

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

VisShapeTypes Enumeration (Visio)

你可以设置它们的宽度/高度/ pinx / piny，就像本机MS Visio形状一样