Re : Bouton dans barre d'outils d'accés rapide
Bonjour Pierrot
J'ai encore un souci avec le code.
Je souhaiterais que la flèche s'inscrive dans la cellule qui est active.
Comment faire pour déterminer l'emplacement ?
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 249, 92.25, 315, 92.25). _
Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadOpen
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
With Selection.ShapeRange.Line
.Visible = msoTrue
.Weight = 3
End With
End Sub
Merci par avance,
Cordialement
Hugues