ShapeRange

[David45]

bonsoir a tous

une petit question qui pour moi est sans reponce

est il possible grace a VBA de mettre un ShapeRange dans range
par exemple

une fleche dans la case A2

merci pour votre contribution a mon probleme

amicalement david 45

 

[myDearFriend!]

Re : ShapeRange

Bonsoir David45,

Si le Shape est déjà créé, tu peux faire quelque chose comme ça :

[SIZE=2]    ActiveSheet.Shapes(1).Left = [B]Range("A2").Left
[/B]    ActiveSheet.Shapes(1).Top = [B]Range("A2").Top[/B][/SIZE]

Si tu souhaites créer le shape directement au bon endroit :

[SIZE=2]    ActiveSheet.Shapes.AddShape 33, [B]Range("A2").Left[/B], [B]Range("A2").Top[/B], 38, 8
[/SIZE]

Cordialement,

 

[David45]

Re : ShapeRange

merci a toi

ce code me permet de placer ma fleche tj au meme endroit
quelque soit le format de ma bar d'outile

a plus et encore merci