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

[Dudu2]

Bonjour,

Dans un groupe de Shapes (qui est aussi une Shape) je n'arrive pas à placer un texte pour le groupe entier, car le texte dans la Shape du groupe s'applique individuellement à chaque Shape du groupe !

D'ailleurs c'est peut-être tout simplement impossible.

 

[patricktoulon]

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

 

[Dudu2]

Bonjour @patricktoulon,
Merci pour ton retour.

 

[patricktoulon]

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 ?

 

[Dudu2]

quand tu dégroupe le texte ou irait il

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.

 

[patricktoulon]

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

 

[Dudu2]

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

 

[patricktoulon]

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

 

[Dudu2]

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.

 

[patricktoulon]

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

 

[patricktoulon]

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.

pour la couleur de texte des formes libres c'est

'--------------------------
'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

 

[Dudu2]

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 ?

 

[patricktoulon]

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

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

 

[Dudu2]

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