donner même dimension a plusieurs objets

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #5123311
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


Ellimac
Le #5123141
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


gilles
Le #5336001
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




Publicité
Poster une réponse
Anonyme