Dessiner via VBA Résolu/Fermé

Question

Bonjour,
Je souhaites insérer des rectangles sur ma feuille de calcul Excel via VBA. J'ai réussi à créer un rectangle mais maintenant je voudrais changer sa couleur de remplissage et supprimer le contour. 
J'ai déjà essayé d'enregistrer la manipulation, mais je comprends pas pourquoi, ça n'enregistre rien.  Je me retrouve avec une macro vide.

Merci d'avance.

pijaku · Answer

Salut,
Mauvaise manipulation? Ca fonctionne bien pourtant chez moi avec l'enregistreur de macro. Bref, voici un code qui pourra t'aider :
Sub test()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 151.5, 95.25, 126.75, 153.75).Select 'ajoute et sélectionne un rectangle
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = 10 'le colorie en rouge
.ShapeRange.Line.Visible = msoFalse ' supprime le contour
End With
End Sub

mout8787 · Answer

Merci bien, c'est exactement ça.
Je comprends pas non plus pourquoi l'enregistrement marche pas pourtant je fais comme d'habitude et normalement ça marche. Mais pas là.

Encore merci!

Dessiner via VBA

2 réponses

Discussions similaires