Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

verbindingslijn met dubbele pijl via vba

57 views
Skip to first unread message

Rob van den Bosch

unread,
May 8, 2009, 9:27:01 AM5/8/09
to
Ik wil met een macro een verbindingslijn met dubbele pijl tekenen en die ook
een kleur geven.
Ik heb de shape-optie al gevonden, maar ik kan de naam voor deze lijn niet
vinden.
Weet iemand die code?
Het gaat dus om een lijn van het type: <----->
Ik werk met excel 2007
Alvast bedankt.

j van c

unread,
May 9, 2009, 2:54:01 AM5/9/09
to

"Rob van den Bosch" <Robvand...@discussions.microsoft.com> schreef in
bericht news:11D9D4FE-ECCE-4C9B...@microsoft.com...

Is met vba als volgt te benaderen
shapes(1). gevolgd door een methode of eigenschap.
om de naam te kennen msgbox shapes(1).name


jan

unread,
May 9, 2009, 7:22:56 AM5/9/09
to
Rob,

Onderstaande code maakt een dergelijke lijn.
Dit is dus iets uitgebreider dan alleen een naam voor zo'n soort lijn.
Met de argumenten van AddLine bepaal je de positie, hoek en lengte van de lijn.
Met Flip wordt de lijn in dit geval verticaal gespiegeld.
De waarden voor stijl, lengte en breedte van de pijlpunten kun je desgewenst
aanpassen.

Sub PijlPlaatsen()
Dim shp As Shape
Set shp = ActiveSheet.Shapes.AddLine(200, 100, 300, 200)
With shp
.Line.DashStyle = msoLineDash
.Line.BeginArrowheadStyle = msoArrowheadTriangle
.Line.BeginArrowheadLength = msoArrowheadLengthMedium
.Line.BeginArrowheadWidth = msoArrowheadWidthMedium
.Line.EndArrowheadStyle = msoArrowheadTriangle
.Line.EndArrowheadLength = msoArrowheadLengthMedium
.Line.EndArrowheadWidth = msoArrowheadWidthMedium
.Line.ForeColor.RGB = 255
.Flip msoFlipVertical
End With
Set shp = Nothing
End Sub

Jan


0 new messages