Insertion de rectangle sans fond
Résolu
kev76150
Messages postés
16
Date d'inscription
Statut
Membre
Dernière intervention
-
kev76150 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
kev76150 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaite insérer un rectangle sans fond ("aucun remplissage").
voici mon code actuelle :
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.
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.
A voir également:
- Insertion de rectangle sans fond
- Insertion sommaire word - Guide
- Touche insertion clavier - Guide
- Insertion filigrane word - Guide
- Insertion liste déroulante excel - Guide
- Insertion signature word - Guide
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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
- 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
kev76150
Messages postés
16
Date d'inscription
Statut
Membre
Dernière intervention
Merci :) ça pourra m'être très utile
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. :)
À 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. :)