Creation de liaisons entre text Box sous word VBA??

Question

Bonjour,
Apr&#233;s avoir cr&#233;&#233; et positionn&#233; deux TextBox dans mon document Word, je cherche &#224; les connecter entre elles avec une connection de type 'fl&#234;che". 
pourriez vous me donner un coup de main avant que mon boss ne me donne un coup de pied au c_l  :-)  

Merci par avance.
 

RomTrico

valtrase · Answer

Salut,
Testes ceci ......
 
Dim BeginX, BeginY, EndX, EndY, MyDocument 


BeginX = TextBox1.Left + TextBox1.Width 


BeginY = TextBox1.Top + (TextBox1.Height / 2 ) 


EndX = TextBox2.Left 


EndY = TextBox2.Top + (TextBox2.Height / 2 ) 




ActiveSheet.Shapes.AddLine(BeginX, BeginY, EndX, EndY).Select 


Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle 


Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium 


Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium 


Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone 


Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle 


Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium 


Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium 


Selection.ShapeRange.Line.Visible = msoTrue 

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Creation de liaisons entre text Box sous word VBA??

1 réponse

Discussions similaires