XL 2013 VBA : Objet(s) sélectionné(s) et encadrement

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

DoubleZero

XLDnaute Barbatruc
Bonjour à toutes et à tous,

La sélection d'un objet ou d'un groupe d'objets (image, forme automatique...) génère un cadre qu'il s'avère parfois difficile de repérer.

Je ne sais comment modifier son épaisseur et/ou sa couleur... Mais, peut-être, n'est-ce pas possible.

Je vous remercie pour votre aide.

A bientôt 🙂
 

Pièces jointes

Re : VBA : Objet(s) sélectionné(s) et encadrement

Bonjour chère 00.

Manuellement c'est facile : clic droit => format de l'image, et on peut régler l'épaisseur (Excel parle de largeur) et la couleur de la bordure (Excel parle de LIGNE).

L'enregistreur de macros doit te donner le code correspondant à ces opérations.

A+
 
Re : VBA : Objet(s) sélectionné(s) et encadrement

salut

comme le dit Job, il est facile de modifier le cadre de l'image par contre, pour le cadre de la sélection sur la feuille comme tu le demandes, je ferai comme toi 😀v😀: j’attendrai (devant la porte du garage que quelqu’un passe avec la solution)

edition : désolé, j'ai mal lu la demande 😕
 
Dernière édition:
Re : VBA : Objet(s) sélectionné(s) et encadrement

Re-bonjour,

Bien cher job75 😀,

J'ai h😱nte...

Ma h🙁nte est d'autant plus grande que j'ai longuement cherché du côté de "Format de la forme"... sans trouver l'option idoine.

Un TRES GRAND MERCI et...

... A bientôt 😀😀
 
Re : VBA : Objet(s) sélectionné(s) et encadrement

Re-bonjour, bonjour, Si😀😀😀,

... il est facile de modifier le cadre de l'image par contre, pour le cadre de la sélection sur la feuille comme tu le demandes, je ferai comme toi 😀v😀: j’attendrai (devant la porte du garage...

edition : désolé, j'ai mal lu la demande 😕

<------- Clic 😉

Code:
Option Explicit
Sub Selection_encadrement_épais()    ' objets groupés
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 4
    End With
End Sub

Gr😀s merci et à bientôt,

😀😀
 

Pièces jointes

  • A la porte du garage... .JPG
    A la porte du garage... .JPG
    32.2 KB · Affichages: 42
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour