Marge sous vba
Résolu/Fermé
pascalou83400
Messages postés
273
Date d'inscription
dimanche 20 juillet 2014
Statut
Membre
Dernière intervention
24 janvier 2022
-
1 août 2014 à 18:58
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 2 août 2014 à 12:37
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 2 août 2014 à 12:37
2 réponses
via55
Messages postés
14401
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
17 avril 2024
2 701
1 août 2014 à 20:34
1 août 2014 à 20:34
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
pascalou83400
Messages postés
273
Date d'inscription
dimanche 20 juillet 2014
Statut
Membre
Dernière intervention
24 janvier 2022
2 août 2014 à 12:37
2 août 2014 à 12:37
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
