AddShape en -Line in één code

[franzeman]

Beste vba 'ers,

Ik ben gisteren snel geholpen door snb met het in orde maken van de volgende code. Hierbij wordt een gekleurde pijl in een bepaalde cel geplaatst. Werkt allemaal prima en snel:
----------------------------------------------------------------------------------
Sub voeg_pijl_toe()

Dim sh1
Set sh1 = ActiveSheet.Shapes.AddShape(33, 5, 5, 20, 10) 'msoShapeRightArrow = 33

With sh1 'groene pijl naar rechts
.Fill.Solid
.Fill.ForeColor.RGB = RGB(146, 208, 80)
.IncrementLeft 47
.IncrementTop 3
.Left = ActiveSheet.[K20].Left
.Top = ActiveSheet.[K20].Top
.Width = ActiveSheet.[K20].Width
.Height = ActiveSheet.[K20].Height
End With

End Sub
-----------------------------------------------------------------------------------
Maar nu wil ik daar tegelijkertijd een dun zwart lijntje om de rand van die pijl toegevoegd zien.

Hoe doe ik dat in dezelfde code?

Groetjes van Franzeman

 

[snb]

With Sheets(1).Shapes.AddShape(33, [k20].Left, [k20].Top, [k20].Width, [k20].Height)
  With .Fill
    .Solid
    .ForeColor.RGB = RGB(146, 208, 80)
  End With
  .IncrementLeft 47
  .IncrementTop 3
  With .Line
    .Weight = 0.25
    .DashStyle = msoLineSolid
    .Style = msoLineSingle
    .Transparency = 0#
    .Visible = msoTrue
    .ForeColor.SchemeColor = 63
    .BackColor.RGB = RGB(255, 255, 255)
  End With
End With

 

[franzeman]

With Sheets(1).Shapes.AddShape(33, [k20].Left, [k20].Top, [k20].Width, [k20].Height)
  With .Fill
    .Solid
    .ForeColor.RGB = RGB(146, 208, 80)
  End With
  .IncrementLeft 47
  .IncrementTop 3
  With .Line
    .Weight = 0.25
    .DashStyle = msoLineSolid
    .Style = msoLineSingle
    .Transparency = 0#
    .Visible = msoTrue
    .ForeColor.SchemeColor = 63
    .BackColor.RGB = RGB(255, 255, 255)
  End With
End With

Hallo snb,

Dit is inderdaad wat ik bedoel.
De 'Increments...' haal ik weg uit de code en met de 'Left' en 'Top' etc. voeg ik + of - een getalswaarde toe en heb ik de code zeer snel en kort.

Wederom hartelijk bedankt.
Dit is toch heel wat leuker dan een meubelboulevard op 2e Paasdag!

Ik meld de vraag af.

Groetjes van Franzeman