Bonjour
J'utilise dans 99% des cas la zone de texte (bouton de la barre d'outils
"Dessin") avec toutes les marges = 0 (dans Excel et Word).
Et comme c'est long de modifier à chaque fois ces paramètres :
Format/Zones de texte/Marges puis Haut et Bas et Gauche et Droite.. :-((
Alors je voudrais modifier la valeur des marges PAR DEFAUT.
mais je ne sais pas faire. Est-ce possible ?
Merci pour votre aide.
Bonjour
J'utilise dans 99% des cas la zone de texte (bouton de la barre d'outils
"Dessin") avec toutes les marges = 0 (dans Excel et Word).
Et comme c'est long de modifier à chaque fois ces paramètres :
Format/Zones de texte/Marges puis Haut et Bas et Gauche et Droite.. :-((
Alors je voudrais modifier la valeur des marges PAR DEFAUT.
mais je ne sais pas faire. Est-ce possible ?
Merci pour votre aide.
Bonjour
J'utilise dans 99% des cas la zone de texte (bouton de la barre d'outils
"Dessin") avec toutes les marges = 0 (dans Excel et Word).
Et comme c'est long de modifier à chaque fois ces paramètres :
Format/Zones de texte/Marges puis Haut et Bas et Gauche et Droite.. :-((
Alors je voudrais modifier la valeur des marges PAR DEFAUT.
mais je ne sais pas faire. Est-ce possible ?
Merci pour votre aide.
bonjour Lanimal,
tu pourrais le faire via une macro,
With ActiveSheet.Shapes("Text Box 1").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.ShapeRange.TextFrame
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
End With
End With
isabelleBonjour
J'utilise dans 99% des cas la zone de texte (bouton de la barre
d'outils "Dessin") avec toutes les marges = 0 (dans Excel et Word).
Et comme c'est long de modifier à chaque fois ces paramètres :
Format/Zones de texte/Marges puis Haut et Bas et Gauche et Droite..
:-(( Alors je voudrais modifier la valeur des marges PAR DEFAUT.
mais je ne sais pas faire. Est-ce possible ?
Merci pour votre aide.
bonjour Lanimal,
tu pourrais le faire via une macro,
With ActiveSheet.Shapes("Text Box 1").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.ShapeRange.TextFrame
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
End With
End With
isabelle
Bonjour
J'utilise dans 99% des cas la zone de texte (bouton de la barre
d'outils "Dessin") avec toutes les marges = 0 (dans Excel et Word).
Et comme c'est long de modifier à chaque fois ces paramètres :
Format/Zones de texte/Marges puis Haut et Bas et Gauche et Droite..
:-(( Alors je voudrais modifier la valeur des marges PAR DEFAUT.
mais je ne sais pas faire. Est-ce possible ?
Merci pour votre aide.
bonjour Lanimal,
tu pourrais le faire via une macro,
With ActiveSheet.Shapes("Text Box 1").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.ShapeRange.TextFrame
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
End With
End With
isabelleBonjour
J'utilise dans 99% des cas la zone de texte (bouton de la barre
d'outils "Dessin") avec toutes les marges = 0 (dans Excel et Word).
Et comme c'est long de modifier à chaque fois ces paramètres :
Format/Zones de texte/Marges puis Haut et Bas et Gauche et Droite..
:-(( Alors je voudrais modifier la valeur des marges PAR DEFAUT.
mais je ne sais pas faire. Est-ce possible ?
Merci pour votre aide.
Merci, Isabelle,
Il y a un bon moment que je n'ai pas fréquenté MPFE
La modif sera-t-elle enregistrée définitivement (par défaut),
mais je vois que toi, tu es toujours fidèle au poste.
Tu sais, je suis autodidacte, et je ne suis pas aussi à l'aise que l'on
pourrait croire :-( ,et des fois je stress un peu avant de me lancer,
... et puis, je vais fêter mes 70 balais dans qq jours... alors...
Alors, pour me rassurer, dis-moi :
Je pense que je dois lancer cette macro alors que la boîte de dialogue
relative aux marges est affichée.
La modif sera-t-elle enregistrée définitivement (par défaut),
ou, faudra-t-il la lancer à chaque fois que je voudrai ramener les
marges à 0, auquel cas j'enregistrerai la macro dans le classeur de
macros personnelles (excuse-moi, pour cette question,
je verrai bien, lors de l'aplication.
Merci beaucoup.bonjour Lanimal,
tu pourrais le faire via une macro,
With ActiveSheet.Shapes("Text Box 1").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.ShapeRange.TextFrame
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
End With
End With
isabelleBonjour
J'utilise dans 99% des cas la zone de texte (bouton de la barre
d'outils "Dessin") avec toutes les marges = 0 (dans Excel et Word).
Et comme c'est long de modifier à chaque fois ces paramètres :
Format/Zones de texte/Marges puis Haut et Bas et Gauche et Droite..
:-(( Alors je voudrais modifier la valeur des marges PAR DEFAUT.
mais je ne sais pas faire. Est-ce possible ?
Merci pour votre aide.
Merci, Isabelle,
Il y a un bon moment que je n'ai pas fréquenté MPFE
La modif sera-t-elle enregistrée définitivement (par défaut),
mais je vois que toi, tu es toujours fidèle au poste.
Tu sais, je suis autodidacte, et je ne suis pas aussi à l'aise que l'on
pourrait croire :-( ,et des fois je stress un peu avant de me lancer,
... et puis, je vais fêter mes 70 balais dans qq jours... alors...
Alors, pour me rassurer, dis-moi :
Je pense que je dois lancer cette macro alors que la boîte de dialogue
relative aux marges est affichée.
La modif sera-t-elle enregistrée définitivement (par défaut),
ou, faudra-t-il la lancer à chaque fois que je voudrai ramener les
marges à 0, auquel cas j'enregistrerai la macro dans le classeur de
macros personnelles (excuse-moi, pour cette question,
je verrai bien, lors de l'aplication.
Merci beaucoup.
bonjour Lanimal,
tu pourrais le faire via une macro,
With ActiveSheet.Shapes("Text Box 1").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.ShapeRange.TextFrame
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
End With
End With
isabelle
Bonjour
J'utilise dans 99% des cas la zone de texte (bouton de la barre
d'outils "Dessin") avec toutes les marges = 0 (dans Excel et Word).
Et comme c'est long de modifier à chaque fois ces paramètres :
Format/Zones de texte/Marges puis Haut et Bas et Gauche et Droite..
:-(( Alors je voudrais modifier la valeur des marges PAR DEFAUT.
mais je ne sais pas faire. Est-ce possible ?
Merci pour votre aide.
Merci, Isabelle,
Il y a un bon moment que je n'ai pas fréquenté MPFE
La modif sera-t-elle enregistrée définitivement (par défaut),
mais je vois que toi, tu es toujours fidèle au poste.
Tu sais, je suis autodidacte, et je ne suis pas aussi à l'aise que l'on
pourrait croire :-( ,et des fois je stress un peu avant de me lancer,
... et puis, je vais fêter mes 70 balais dans qq jours... alors...
Alors, pour me rassurer, dis-moi :
Je pense que je dois lancer cette macro alors que la boîte de dialogue
relative aux marges est affichée.
La modif sera-t-elle enregistrée définitivement (par défaut),
ou, faudra-t-il la lancer à chaque fois que je voudrai ramener les
marges à 0, auquel cas j'enregistrerai la macro dans le classeur de
macros personnelles (excuse-moi, pour cette question,
je verrai bien, lors de l'aplication.
Merci beaucoup.bonjour Lanimal,
tu pourrais le faire via une macro,
With ActiveSheet.Shapes("Text Box 1").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.ShapeRange.TextFrame
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
End With
End With
isabelleBonjour
J'utilise dans 99% des cas la zone de texte (bouton de la barre
d'outils "Dessin") avec toutes les marges = 0 (dans Excel et Word).
Et comme c'est long de modifier à chaque fois ces paramètres :
Format/Zones de texte/Marges puis Haut et Bas et Gauche et Droite..
:-(( Alors je voudrais modifier la valeur des marges PAR DEFAUT.
mais je ne sais pas faire. Est-ce possible ?
Merci pour votre aide.
re bonjour Lanimal,Merci, Isabelle,
Il y a un bon moment que je n'ai pas fréquenté MPFE
bon retour à toi et je te souhaite un joyeux anniversaire pour tes 70
balais, çaLa modif sera-t-elle enregistrée définitivement (par défaut),
non cela n'affecte pas les valeur par défault des nouveau TextBox, mais
si c'est pour les marges uniquement, tu selectionne le TextBox et tu
execute cette macro,
Sub Modifier_Marge_De_TextBox_Sélectionner()
With Selection.ShapeRange.TextFrame
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
End With
End Sub
pour plusieurs textbox sur un même onglet
Sub Modifier_Marge_Des_TextBox_De_Cette_Feuille()
For Each sh In ActiveSheet.Shapes
If sh.Type = 17 Then
sh.Select
With Selection.ShapeRange.TextFrame
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
End With
End If
Next
End Sub
a+
isabellemais je vois que toi, tu es toujours fidèle au poste.
Tu sais, je suis autodidacte, et je ne suis pas aussi à l'aise que
l'on pourrait croire :-( ,et des fois je stress un peu avant de me
lancer,
... et puis, je vais fêter mes 70 balais dans qq jours... alors...
Alors, pour me rassurer, dis-moi :
Je pense que je dois lancer cette macro alors que la boîte de dialogue
relative aux marges est affichée.
La modif sera-t-elle enregistrée définitivement (par défaut),
ou, faudra-t-il la lancer à chaque fois que je voudrai ramener les
marges à 0, auquel cas j'enregistrerai la macro dans le classeur de
macros personnelles (excuse-moi, pour cette question,
je verrai bien, lors de l'aplication.
Merci beaucoup.bonjour Lanimal,
tu pourrais le faire via une macro,
With ActiveSheet.Shapes("Text Box 1").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.ShapeRange.TextFrame
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
End With
End With
isabelleBonjour
J'utilise dans 99% des cas la zone de texte (bouton de la barre
d'outils "Dessin") avec toutes les marges = 0 (dans Excel et Word).
Et comme c'est long de modifier à chaque fois ces paramètres :
Format/Zones de texte/Marges puis Haut et Bas et Gauche et Droite..
:-(( Alors je voudrais modifier la valeur des marges PAR DEFAUT.
mais je ne sais pas faire. Est-ce possible ?
Merci pour votre aide.
re bonjour Lanimal,
Merci, Isabelle,
Il y a un bon moment que je n'ai pas fréquenté MPFE
bon retour à toi et je te souhaite un joyeux anniversaire pour tes 70
balais, ça
La modif sera-t-elle enregistrée définitivement (par défaut),
non cela n'affecte pas les valeur par défault des nouveau TextBox, mais
si c'est pour les marges uniquement, tu selectionne le TextBox et tu
execute cette macro,
Sub Modifier_Marge_De_TextBox_Sélectionner()
With Selection.ShapeRange.TextFrame
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
End With
End Sub
pour plusieurs textbox sur un même onglet
Sub Modifier_Marge_Des_TextBox_De_Cette_Feuille()
For Each sh In ActiveSheet.Shapes
If sh.Type = 17 Then
sh.Select
With Selection.ShapeRange.TextFrame
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
End With
End If
Next
End Sub
a+
isabelle
mais je vois que toi, tu es toujours fidèle au poste.
Tu sais, je suis autodidacte, et je ne suis pas aussi à l'aise que
l'on pourrait croire :-( ,et des fois je stress un peu avant de me
lancer,
... et puis, je vais fêter mes 70 balais dans qq jours... alors...
Alors, pour me rassurer, dis-moi :
Je pense que je dois lancer cette macro alors que la boîte de dialogue
relative aux marges est affichée.
La modif sera-t-elle enregistrée définitivement (par défaut),
ou, faudra-t-il la lancer à chaque fois que je voudrai ramener les
marges à 0, auquel cas j'enregistrerai la macro dans le classeur de
macros personnelles (excuse-moi, pour cette question,
je verrai bien, lors de l'aplication.
Merci beaucoup.
bonjour Lanimal,
tu pourrais le faire via une macro,
With ActiveSheet.Shapes("Text Box 1").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.ShapeRange.TextFrame
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
End With
End With
isabelle
Bonjour
J'utilise dans 99% des cas la zone de texte (bouton de la barre
d'outils "Dessin") avec toutes les marges = 0 (dans Excel et Word).
Et comme c'est long de modifier à chaque fois ces paramètres :
Format/Zones de texte/Marges puis Haut et Bas et Gauche et Droite..
:-(( Alors je voudrais modifier la valeur des marges PAR DEFAUT.
mais je ne sais pas faire. Est-ce possible ?
Merci pour votre aide.
re bonjour Lanimal,Merci, Isabelle,
Il y a un bon moment que je n'ai pas fréquenté MPFE
bon retour à toi et je te souhaite un joyeux anniversaire pour tes 70
balais, çaLa modif sera-t-elle enregistrée définitivement (par défaut),
non cela n'affecte pas les valeur par défault des nouveau TextBox, mais
si c'est pour les marges uniquement, tu selectionne le TextBox et tu
execute cette macro,
Sub Modifier_Marge_De_TextBox_Sélectionner()
With Selection.ShapeRange.TextFrame
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
End With
End Sub
pour plusieurs textbox sur un même onglet
Sub Modifier_Marge_Des_TextBox_De_Cette_Feuille()
For Each sh In ActiveSheet.Shapes
If sh.Type = 17 Then
sh.Select
With Selection.ShapeRange.TextFrame
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
End With
End If
Next
End Sub
a+
isabellemais je vois que toi, tu es toujours fidèle au poste.
Tu sais, je suis autodidacte, et je ne suis pas aussi à l'aise que
l'on pourrait croire :-( ,et des fois je stress un peu avant de me
lancer,
... et puis, je vais fêter mes 70 balais dans qq jours... alors...
Alors, pour me rassurer, dis-moi :
Je pense que je dois lancer cette macro alors que la boîte de dialogue
relative aux marges est affichée.
La modif sera-t-elle enregistrée définitivement (par défaut),
ou, faudra-t-il la lancer à chaque fois que je voudrai ramener les
marges à 0, auquel cas j'enregistrerai la macro dans le classeur de
macros personnelles (excuse-moi, pour cette question,
je verrai bien, lors de l'aplication.
Merci beaucoup.bonjour Lanimal,
tu pourrais le faire via une macro,
With ActiveSheet.Shapes("Text Box 1").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.ShapeRange.TextFrame
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
End With
End With
isabelleBonjour
J'utilise dans 99% des cas la zone de texte (bouton de la barre
d'outils "Dessin") avec toutes les marges = 0 (dans Excel et Word).
Et comme c'est long de modifier à chaque fois ces paramètres :
Format/Zones de texte/Marges puis Haut et Bas et Gauche et Droite..
:-(( Alors je voudrais modifier la valeur des marges PAR DEFAUT.
mais je ne sais pas faire. Est-ce possible ?
Merci pour votre aide.