Insbesondere bei Pfeilen ist es meist nicht erwünscht, dass sich die Pfeilspitze proportional mit der Pfeillänge vergrößert. Dies können Sie mittels eigenem Code in der Ereignisbehandlung verhindern.
Ziehen Sie in einem iGrafx-Dokument zunächst aus der Sammlung "Intelligente Symbole" und der Kategorie "Grundlegende Symbole" das Symbol "Rechtspfeil" auf das Arbeitsblatt. Wechseln Sie in die VBA-Entwicklungsumgebung und ersetzen Sie den vorhandenen Code durch folgende Zeilen:
Private Sub Shape_AdjustmentMove(ByVal Index As Integer, _
X As Double, Y As Double)
On Error GoTo ErrorHandler
If X > 0.3 Then
X = 0.3
End If
Y = 0.5
With Shape.Graphic.PolygonGraphic
.PolygonPoints(1).X = X
.PolygonPoints(7).X = X
End With
ErrorHandler:
Exit Sub
End Sub
Nun kann der Pfeil beliebig verlängert werden, ohne dass sich die Länge der Pfeilspitze ändert.
|