COMMENT insérer une image en arrière plan sur un bon de commande exel? Feuille de protection pourtant désactivée. Image en arrière plan.
Modeste
COMMENT insérer une image en arrière plan sur un bon de commande exel? Feuille de protection pourtant désactivée. Image en arrière plan.
- Utiliser du papier à entete personnalisé (voir imprimeur) - Utiliser les fonctionnalité de l'imprimante (selon type) - Imprimer en deux passes - Menu Format > feuille > arriere plan
COMMENT insérer une image en arrière plan sur un bon de commande exel?
Feuille de protection pourtant désactivée.
Image en arrière plan.
- Utiliser du papier à entete personnalisé (voir imprimeur)
- Utiliser les fonctionnalité de l'imprimante (selon type)
- Imprimer en deux passes
- Menu Format > feuille > arriere plan
COMMENT insérer une image en arrière plan sur un bon de commande exel? Feuille de protection pourtant désactivée. Image en arrière plan.
- Utiliser du papier à entete personnalisé (voir imprimeur) - Utiliser les fonctionnalité de l'imprimante (selon type) - Imprimer en deux passes - Menu Format > feuille > arriere plan
JB
Bonjour,
Pour image arrière plan Format /Feuille/Arriere plan
Pour imprimer avec Arrière-Plan
Sub ImpressionAvecFond() Range("A1").CurrentRegion.Select Selection.CopyPicture ' Copie la zone ActiveSheet.Paste Destination:¬tiveSheet.Range("A1") 'crée un shape ActiveSheet.PageSetup.PrintArea = Selection.Address ActiveWindow.SelectedSheets.PrintPreview ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete End Sub
COMMENT insérer une image en arrière plan sur un bon de commande exel? Feuille de protection pourtant désactivée. Image en arrière plan.
Bonjour,
Pour image arrière plan
Format /Feuille/Arriere plan
Pour imprimer avec Arrière-Plan
Sub ImpressionAvecFond()
Range("A1").CurrentRegion.Select
Selection.CopyPicture ' Copie la zone
ActiveSheet.Paste Destination:=ActiveSheet.Range("A1") 'crée un
shape
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub
Pour image arrière plan Format /Feuille/Arriere plan
Pour imprimer avec Arrière-Plan
Sub ImpressionAvecFond() Range("A1").CurrentRegion.Select Selection.CopyPicture ' Copie la zone ActiveSheet.Paste Destination:¬tiveSheet.Range("A1") 'crée un shape ActiveSheet.PageSetup.PrintArea = Selection.Address ActiveWindow.SelectedSheets.PrintPreview ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete End Sub