解决方案 这里
Dim shp As Visio.Shape 'connector Dim src As Visio.Shape 'connect this Dim aim As Visio.Shape 'to this [...] 'Set shape variables shp.Cells("BeginX").GlueTo src.Cells("PinX") shp.Cells("EndX").GlueTo aim.Cells("PinX")