XL 2016 VBA afficher un texte pour un groupe de Shapes ?

patricktoulon

XLDnaute Barbatruc

• 22 Décembre 2020

• #2

bonjour @Dudu2
il me semble en effet que ça ne soit pas possible

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 22 Décembre 2020

• #3

Bonjour @patricktoulon,
Merci pour ton retour.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Décembre 2020

• #4

re
un groupe est bien une shape comme tout autres object d'ailleurs mais comme certaines autres shapes n'a pas de textframe pour texte
quand tu dégroupe le texte ou irait il ? 😉

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 22 Décembre 2020

• #5

quand tu dégroupe le texte ou irait il

Cliquez pour agrandir...

Je me suis aussi posé la question, mais la réponse me semble simple:
En dégroupant on fait disparaitre la Group Shape et donc il me semblerait normal que son texte disparaisse avec.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Décembre 2020

• #6

re
te reste plus qu'a ajouter une shape lors du groupage et la supprimer lors du dégroupage

 

Pièces jointes

• Classeur12.xlsm

  64.6 KB · Affichages: 6

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 22 Décembre 2020

• #7

Je comprends pas comment ça marche ?
Et pourquoi:
Left = .Shapes("59CAP").Left + .Shapes(1).Width - 50
Top = .Shapes("59CAP").Top

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Décembre 2020

• #8

re
tes shapes visiblement n'ont pas été conçues dans l'ordre la shape(1) c'est la 59CAP
j'ai du chercher la quelle était celle de droite et c'est bien la première je n'ai pas corrigé

Left = .Shapes("59CAP").Left + .Shapes("59CAP").Width - 50
Top = .Shapes("59CAP").Top

donc la shapes("Groupetitle") sera en haut a droite

j'ai essayé à posteriori (après groupage ) et taper le groupe.left mais ca déclenche une erreur
j'avoue ne pas comprendre pourquoi
c'est pour cela que j'utilise celle de droite avant groupage pour déterminer la position du title

si tu arrive à posteriori tu peux vraiment placer ta shapes ou tu veux mais la si je me souviens bien il faut taper dans le group .item c'est vieux je ne m'en souviens plus

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 22 Décembre 2020

• #9

Ok, j'ai pas compris pourquoi cette Shape que tu créés, sélectionnés, arrive à déplacer toutes les autres Shapes.
Je ne vois pas le lien entre les Shapes existantes et celle que tu créés. Bon pas grave.

Sinon les Shapes et leur texte c'est vraiment la m...

Un coup il faut faire avec .TextFrame.Characters.Text un autre avec .TextFrame2.TextRange.Characters.Text.
Par exemple, je n'arrive pas à colorer le texte des Shapes d'origine. Infernal.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Décembre 2020

• #10

??????????????
la shape que je créée ne deplace rien !!!

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Décembre 2020

• #11

Dudu2 à dit:

Sinon les Shapes et leur texte c'est vraiment la m...

Un coup il faut faire avec .TextFrame.Characters.Text un autre avec .TextFrame2.TextRange.Characters.Text.
Par exemple, je n'arrive pas à colorer le texte des Shapes d'origine. Infernal.

Cliquez pour agrandir...

pour la couleur de texte des formes libres c'est

VB:

'--------------------------
'couleurs du texte des formes libres
'--------------------------
Sub colortexte()
    Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
        sh.TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = vbRed
    Next
End Sub

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 22 Décembre 2020

• #12

Je veux dire quand on la sélectionne et la déplace, tout vient avec, y compris les Shapes d'origine groupées qui sont en dessous.
Ce que je ne comprends pas c'est ce qui "lie" cette Shape Groupe avec les autres groupées.

Ok merci pour la couleur du texte, j'avais fini par trouver. C'est quoi une forme libre vs une forme enchaînées ? 🙂
Tu veux dire groupée ou pas ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Décembre 2020

• #13

ben c'est simple remonte au debut de la macro
je la créée avant de grouper
je groupe y compris elle
j'arrange son emplacement
le groupe contient nom pas les 3 mais les 4

C'est quoi une forme libre vs une forme

Cliquez pour agrandir...

c'est les formes que tu dessine les autre sont des formes auto

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 22 Décembre 2020

• #14

Ah ok, vu.
Merci pour la jolie démo 😉

 

Vote positif 0 Vote négatif