Marge sous vba
Résolu
pascalou83400
Messages postés
277
Date d'inscription
Statut
Membre
Dernière intervention
-
pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention -
pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je cherche un code pour initialiser les marges à une feuille :
soit :
Haut 1.4 en tete 0.8 gauche 0.3 droite 0.3 bas 0.9 pied de page 0.3
je ne trouve pas de code dans les forums.
Merci pour votre aide.
Pascal
je cherche un code pour initialiser les marges à une feuille :
soit :
Haut 1.4 en tete 0.8 gauche 0.3 droite 0.3 bas 0.9 pied de page 0.3
je ne trouve pas de code dans les forums.
Merci pour votre aide.
Pascal
2 réponses
Bonsoir Pascal
Dans ce cas tu utilises l'enregistreur de macro (onglet Developpeur Enregsitrer une macro) tu regles tes marges Mises en page Marges Personalisée
Tu trouveras après dans le code enregistré les lignes nécessaires :
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.118110236220472)
.RightMargin = Application.InchesToPoints(0.118110236220472)
.TopMargin = Application.InchesToPoints(0.551181102362205)
.BottomMargin = Application.InchesToPoints(0.354330708661417)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.118110236220472)
End With
Cdlmnt
Dans ce cas tu utilises l'enregistreur de macro (onglet Developpeur Enregsitrer une macro) tu regles tes marges Mises en page Marges Personalisée
Tu trouveras après dans le code enregistré les lignes nécessaires :
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.118110236220472)
.RightMargin = Application.InchesToPoints(0.118110236220472)
.TopMargin = Application.InchesToPoints(0.551181102362205)
.BottomMargin = Application.InchesToPoints(0.354330708661417)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.118110236220472)
End With
Cdlmnt
Bonjour Via55,
Ok! j'ai essayé ta manip est j'ai réussie à récupérer la mise en page et marge en mémoire.
Je te remercie encore une fois pour ton aide.
Aurais-tu une réponse à ma question concernant mon logo à insérer, je voudrais savoir comment je peux mettre ce logo en jpg dans une feuille du classeur actuel et la recopier dans les autres feuilles du classeur.
Mita m'a donné un code qui fonctionne, mais pour l'instant je vais chercher l'image dans un autre classeur et si je la mets dans une feuille du classeur actuel, le classeur sera autonome.
Le code :
Pour un chemin fixe
Sub Macro1()
Dim Gauche, Sommet, Largeur, Hauteur As Single
Gauche = Range("C2").Left
Sommet = Range("C2").Top
Largeur = Range("C2").Width
Hauteur = Range("C2").Height
Feuil1.Shapes.AddPicture "W:\logo\logo.jpg", True, True, Gauche, Sommet, Largeur, Hauteur
End Sub
Bon je ne sais pas si mon explication est bien claire.
Je te souhaite un bonne journée et un bon WE.
Salutations
Pascal
Ok! j'ai essayé ta manip est j'ai réussie à récupérer la mise en page et marge en mémoire.
Je te remercie encore une fois pour ton aide.
Aurais-tu une réponse à ma question concernant mon logo à insérer, je voudrais savoir comment je peux mettre ce logo en jpg dans une feuille du classeur actuel et la recopier dans les autres feuilles du classeur.
Mita m'a donné un code qui fonctionne, mais pour l'instant je vais chercher l'image dans un autre classeur et si je la mets dans une feuille du classeur actuel, le classeur sera autonome.
Le code :
Pour un chemin fixe
Sub Macro1()
Dim Gauche, Sommet, Largeur, Hauteur As Single
Gauche = Range("C2").Left
Sommet = Range("C2").Top
Largeur = Range("C2").Width
Hauteur = Range("C2").Height
Feuil1.Shapes.AddPicture "W:\logo\logo.jpg", True, True, Gauche, Sommet, Largeur, Hauteur
End Sub
Bon je ne sais pas si mon explication est bien claire.
Je te souhaite un bonne journée et un bon WE.
Salutations
Pascal
