D David45 XLDnaute Nouveau 9 Décembre 2006 #1 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
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! XLDnaute Barbatruc 9 Décembre 2006 #2 Re : ShapeRange Bonsoir David45, Si le Shape est déjà créé, tu peux faire quelque chose comme ça : Code: [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 : Code: [SIZE=2] ActiveSheet.Shapes.AddShape 33, [B]Range("A2").Left[/B], [B]Range("A2").Top[/B], 38, 8 [/SIZE] Cordialement, Vote positif 0 Vote négatif
Re : ShapeRange Bonsoir David45, Si le Shape est déjà créé, tu peux faire quelque chose comme ça : Code: [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 : Code: [SIZE=2] ActiveSheet.Shapes.AddShape 33, [B]Range("A2").Left[/B], [B]Range("A2").Top[/B], 38, 8 [/SIZE] Cordialement,
D David45 XLDnaute Nouveau 9 Décembre 2006 #3 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 Vote positif 0 Vote négatif
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