An Datenfelder eines Shapes, das ein technisches Gerät darstellt, werden Informationen gebunden. Mit ein paar Zeilen Code können diese auf dem Shape angezeigt werden:
If Left(vsShape.Name, Len(„Abbott_i2000“)) = „Abbott_i2000“ Then
For i = 1 To 7
If vsShape.CellExists(„User.NodeIdentifier“ & i, False) Then
Set vsMaster = vsSchablone.Masters(„Identifier“)
Set vsIDRechteck = ActivePage.Drop(vsMaster, 1, 1)
With vsIDRechteck
If vsShape.Cells(„Angle“).Result(„deg“) = 0 Then
Select Case i
Case 1
.Cells(„PinX“).Result(„m“) = vsShape.Cells(„PinX“).Result(„m“) – 0.95
.Cells(„PinY“).Result(„m“) = vsShape.Cells(„PinY“).Result(„m“) + 0.25
Case 2
.Cells(„PinX“).Result(„m“) = vsShape.Cells(„PinX“).Result(„m“) – 0.3
.Cells(„PinY“).Result(„m“) = vsShape.Cells(„PinY“).Result(„m“) + 0.25
Case 3
.Cells(„PinX“).Result(„m“) = vsShape.Cells(„PinX“).Result(„m“) + 0.1
.Cells(„PinY“).Result(„m“) = vsShape.Cells(„PinY“).Result(„m“) + 0.25
Case 4
.Cells(„PinX“).Result(„m“) = vsShape.Cells(„PinX“).Result(„m“) + 0.3
.Cells(„PinY“).Result(„m“) = vsShape.Cells(„PinY“).Result(„m“) + 0.25
Case 5
[…]
