insertion de rectangle sans fond Résolu

Question

Bonjour, 
Je souhaite insérer un rectangle sans fond ("aucun remplissage").
voici mon code actuelle : 
Sub Dessine_Rectangle()

Dim MyShape As Shape
    Set MyShape = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 135.75, 10, 400, 50) ' creer la forme à l'endroit voulu
    With MyShape
        .Line.ForeColor.RGB = RGB(50, 255, 50) 'COULEUR BORDURE
        .????????????
    End With
End Sub

A la place des points d'interrogations je ne trouve pas quelle code écrire pour modifier mon remplissage.
Et en bonus si vous pouviez me dire aussi comment augmenter l'épaisseur de la bordure de mon rectangle.
Merci d'avance  :)
EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code 
Merci d'y penser dans tes prochains messages.

yg_be · Answer

Suggestion pour découvrir comment faire:
- démarrer l'enregistrement d'une macro
- faire à la main les opérations voulues (modifier le remplissage, augmenter l'épaisseur de la bordure)
- examiner le code de la macro

Utilisateur anonyme · Answer

Bonjour kev76150,
À la place des « ? » rouges : .Fill.ForeColor.RGB = RGB(0, 0, 255)
pour un remplissage bleu ; à toi de choisir ta couleur préférée. ;)
Pour aucun remplissage : .Fill.Visible = msoFalse
-----------------------------------
Pour l'épaisseur de la bordure : .Line.Weight = 10
Pour sans bordure : .Line.Visible = msoFalse
-----------------------------------
Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».
Cordialement.  :)

Insertion de rectangle sans fond

2 réponses

Discussions similaires

Newsletters