Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel donner même dimension a plusieurs objets

donner même dimension a plusieurs objets

3 réponses
Avatar
gilles
bonjour à toutes et à tous,
j'ai un une succession de zones de texte de dimensions différentes (arbre
des causes)
j'aimerais donner la longueur et largeur d'une de ces zônes à toutes les
autres
Le pinceau donne le format mais pas les dimensions
Y aurait ty moyen de faire ça par VBA?
Mes tentatives sont pour l'instant sans succès

Merci
gilles72
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LSteph
Bonjour ,

sans macro même:
Sélectionne tes zones de texte, réduis les à la même hauteur largeur minimum
ensuite ajustes le tout.

--
lSteph

bonjour à toutes et à tous,
j'ai un une succession de zones de texte de dimensions différentes (arbre
des causes)
j'aimerais donner la longueur et largeur d'une de ces zônes à toutes les
autres
Le pinceau donne le format mais pas les dimensions
Y aurait ty moyen de faire ça par VBA?
Mes tentatives sont pour l'instant sans succès

Merci
gilles72


Avatar
Ellimac
Bonjour,

Avec un coup d'enregistreur :

Sub Macro1()
ActiveSheet.Shapes.Range(Array("Text Box 1", "Text Box 2", "Text Box 3", _
"Text Box 4" _
)).Select
Selection.ShapeRange.Height = 57#
Selection.ShapeRange.Width = 283.5
Selection.ShapeRange.Align msoAlignLefts, False
Selection.ShapeRange.Distribute msoDistributeVertically, False
End Sub

Camille


bonjour à toutes et à tous,
j'ai un une succession de zones de texte de dimensions différentes (arbre
des causes)
j'aimerais donner la longueur et largeur d'une de ces zônes à toutes les
autres
Le pinceau donne le format mais pas les dimensions
Y aurait ty moyen de faire ça par VBA?
Mes tentatives sont pour l'instant sans succès

Merci
gilles72


Avatar
gilles
bonsoir Le steph et ellimac
et merci de votre aide, efficace dans les 2 cas
merci encore
--
gilles72



Bonjour,

Avec un coup d'enregistreur :

Sub Macro1()
ActiveSheet.Shapes.Range(Array("Text Box 1", "Text Box 2", "Text Box 3", _
"Text Box 4" _
)).Select
Selection.ShapeRange.Height = 57#
Selection.ShapeRange.Width = 283.5
Selection.ShapeRange.Align msoAlignLefts, False
Selection.ShapeRange.Distribute msoDistributeVertically, False
End Sub

Camille


bonjour à toutes et à tous,
j'ai un une succession de zones de texte de dimensions différentes (arbre
des causes)
j'aimerais donner la longueur et largeur d'une de ces zônes à toutes les
autres
Le pinceau donne le format mais pas les dimensions
Y aurait ty moyen de faire ça par VBA?
Mes tentatives sont pour l'instant sans succès

Merci
gilles72