Autres changement de l'épaisseur des Connecteur droit avec flèche par VBA !!!

mapomme

XLDnaute Barbatruc

Supporter XLD

• 24 Mai 2020

• #2

Bonjour @cherraiayoub,

Essayez cette instruction (épaisseur => cellule C3):

VB:

Sheets("Feuil1").Shapes("Connecteur droit avec flèche 2").Line.Weight = Sheets("Feuil1").Range("c3").Value

 

Dernière édition: 24 Mai 2020

Vote positif 0 Vote négatif

C

cherraiayoub

XLDnaute Nouveau

• 24 Mai 2020

• #3

Merci @mapomme ça marche pas, je suis encore débutant je ne sais pas ou je dois là copier , je suis désolé pour le dérangement.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 24 Mai 2020

• #4

Re,

Voici le fichier avec les instructions à l'intérieur.

Le code est dans le module de nom Module1 :

VB:

Sub Epaisseur()
Dim Rep
   Rep = Application.InputBox(prompt:="Indiquez une épaisseur de ligne (1; 1,5; 2; etc...) ", Type:=1)
   If Rep > 0 Then ActiveSheet.Shapes(Application.Caller).Line.Weight = Rep
End Sub

 

Pièces jointes

• cherraiayoub- épaisseur fleche- v1.xlsm

  26.5 KB · Affichages: 10

Vote positif 0 Vote négatif

C

cherraiayoub

XLDnaute Nouveau

• 25 Mai 2020

• #5

Merciiii beaucoup 😉😉 @mapomme

 

Vote positif 0 Vote négatif