Je voudrais placer une zone de texte dans une feuille A4.
une fois imprimé cette zone de texte devra se trouver à 5.00cm de la gauche
de la feuille et à 12,00 cm du haut de cette meme feuille.
est il possible de faire cela par macro ?
j'ai bien essayé
Selection.ShapeRange.Left = 5 et Selection.ShapeRange.Top = 12, mais cela
ne donne pas les bonnes distance
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
michdenis
As-tu essayé quelque chose comme ceci : Dans le ThisWorkbook de ton classeur, copie ceci :
Prend soin de renommer le nom de ton textbox dans la procédure.
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh If LCase(.Name) = "feuil3" Then .PrintOut .Shapes("NomDuTextbox").Left = Application.CentimetersToPoints(5) .Shapes("NomDuTextbox").Top = Application.CentimetersToPoints(12) End If .PrintOut End With Next Cancel = True End Sub '--------------------------
"LarryBiro" a écrit dans le message de groupe de discussion : 4983105a$0$651$ Bonjours à tous,
Je voudrais placer une zone de texte dans une feuille A4. une fois imprimé cette zone de texte devra se trouver à 5.00cm de la gauche de la feuille et à 12,00 cm du haut de cette meme feuille. est il possible de faire cela par macro ?
j'ai bien essayé Selection.ShapeRange.Left = 5 et Selection.ShapeRange.Top = 12, mais cela ne donne pas les bonnes distance
merci d'avance pour votre aide
Thierry
As-tu essayé quelque chose comme ceci :
Dans le ThisWorkbook de ton classeur,
copie ceci :
Prend soin de renommer le nom de ton
textbox dans la procédure.
'--------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
If LCase(.Name) = "feuil3" Then
.PrintOut
.Shapes("NomDuTextbox").Left = Application.CentimetersToPoints(5)
.Shapes("NomDuTextbox").Top = Application.CentimetersToPoints(12)
End If
.PrintOut
End With
Next
Cancel = True
End Sub
'--------------------------
"LarryBiro" <pub@evhr.net> a écrit dans le message de groupe de discussion :
4983105a$0$651$4d4eb98e@read.news.fr.uu.net...
Bonjours à tous,
Je voudrais placer une zone de texte dans une feuille A4.
une fois imprimé cette zone de texte devra se trouver à 5.00cm de la gauche
de la feuille et à 12,00 cm du haut de cette meme feuille.
est il possible de faire cela par macro ?
j'ai bien essayé
Selection.ShapeRange.Left = 5 et Selection.ShapeRange.Top = 12, mais cela
ne donne pas les bonnes distance
As-tu essayé quelque chose comme ceci : Dans le ThisWorkbook de ton classeur, copie ceci :
Prend soin de renommer le nom de ton textbox dans la procédure.
'-------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh If LCase(.Name) = "feuil3" Then .PrintOut .Shapes("NomDuTextbox").Left = Application.CentimetersToPoints(5) .Shapes("NomDuTextbox").Top = Application.CentimetersToPoints(12) End If .PrintOut End With Next Cancel = True End Sub '--------------------------
"LarryBiro" a écrit dans le message de groupe de discussion : 4983105a$0$651$ Bonjours à tous,
Je voudrais placer une zone de texte dans une feuille A4. une fois imprimé cette zone de texte devra se trouver à 5.00cm de la gauche de la feuille et à 12,00 cm du haut de cette meme feuille. est il possible de faire cela par macro ?
j'ai bien essayé Selection.ShapeRange.Left = 5 et Selection.ShapeRange.Top = 12, mais cela ne donne pas les bonnes distance