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
isabelle
bonjour Frank,
si tu ne connais pas la provenance de l'image, elle peux provenir d'une copie fait sur le web et n'est peut être pas enregistrer en tant que fichier sur ton pc , tu peux en faire une copie dans un fichier que tu créer en vba et insérer ce nouveau fichier en entête.
Sub ExportRangeAsImage() 'd'après LL Dim Plage As Range Dim Extension$, FichierImage$ Extension = "JPG" FichierImage = "c:Test_JPG.jpg" 'par exemple Application.ScreenUpdating = False Sheets("Feuil1").Shapes("Pic1").CopyPicture Workbooks.Add ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, _ Selection.Width, Selection.Height).Chart .Paste .Export FichierImage, Extension End With ActiveWorkbook.Close False
'insertion de l'image en entête For Each f In Worksheets Sheets(f.Name).PageSetup.CenterHeaderPicture.Filename = _ FichierImage Next
isabelle
Bonjour, J'ai une image Pic1 dans ma Feuil1. Comment faire pour insérer cette image dans le center header de toute mes pages avant de les imprimer ?
J'ai vu un exemple qui insere une image à partir d'un chemin mais il faudrait que je deplois aussi l'image pour que ça fonctionne, non ?
Merci de votre aide
bonjour Frank,
si tu ne connais pas la provenance de l'image, elle peux provenir d'une
copie fait sur le web et n'est peut être pas enregistrer en tant que
fichier sur ton pc , tu peux en faire une copie dans un fichier que tu
créer en vba et insérer ce nouveau fichier en entête.
Sub ExportRangeAsImage() 'd'après LL
Dim Plage As Range
Dim Extension$, FichierImage$
Extension = "JPG"
FichierImage = "c:Test_JPG.jpg" 'par exemple
Application.ScreenUpdating = False
Sheets("Feuil1").Shapes("Pic1").CopyPicture
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export FichierImage, Extension
End With
ActiveWorkbook.Close False
'insertion de l'image en entête
For Each f In Worksheets
Sheets(f.Name).PageSetup.CenterHeaderPicture.Filename = _
FichierImage
Next
isabelle
Bonjour,
J'ai une image Pic1 dans ma Feuil1.
Comment faire pour insérer cette image dans le center header de toute
mes pages avant de les imprimer ?
J'ai vu un exemple qui insere une image à partir d'un chemin mais il
faudrait que je deplois aussi l'image pour que ça fonctionne, non ?
si tu ne connais pas la provenance de l'image, elle peux provenir d'une copie fait sur le web et n'est peut être pas enregistrer en tant que fichier sur ton pc , tu peux en faire une copie dans un fichier que tu créer en vba et insérer ce nouveau fichier en entête.
Sub ExportRangeAsImage() 'd'après LL Dim Plage As Range Dim Extension$, FichierImage$ Extension = "JPG" FichierImage = "c:Test_JPG.jpg" 'par exemple Application.ScreenUpdating = False Sheets("Feuil1").Shapes("Pic1").CopyPicture Workbooks.Add ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, _ Selection.Width, Selection.Height).Chart .Paste .Export FichierImage, Extension End With ActiveWorkbook.Close False
'insertion de l'image en entête For Each f In Worksheets Sheets(f.Name).PageSetup.CenterHeaderPicture.Filename = _ FichierImage Next
isabelle
Bonjour, J'ai une image Pic1 dans ma Feuil1. Comment faire pour insérer cette image dans le center header de toute mes pages avant de les imprimer ?
J'ai vu un exemple qui insere une image à partir d'un chemin mais il faudrait que je deplois aussi l'image pour que ça fonctionne, non ?
Merci de votre aide
isabelle
il faudrait ajouter cette ligne de commande dans la boucle,
ActiveSheet.PageSetup.CenterHeader = "&G"
extrait de l'aide Remarque Il est nécessaire que « &G » fasse partie de la chaîne de la propriété CenterHeader afin que l'image s'affiche dans l'en-tête central.
isabelle
Bonjour, J'ai une image Pic1 dans ma Feuil1. Comment faire pour insérer cette image dans le center header de toute mes pages avant de les imprimer ?
J'ai vu un exemple qui insere une image à partir d'un chemin mais il faudrait que je deplois aussi l'image pour que ça fonctionne, non ?
Merci de votre aide
il faudrait ajouter cette ligne de commande dans la boucle,
ActiveSheet.PageSetup.CenterHeader = "&G"
extrait de l'aide
Remarque Il est nécessaire que « &G » fasse partie de la chaîne de la
propriété CenterHeader afin que l'image s'affiche dans l'en-tête central.
isabelle
Bonjour,
J'ai une image Pic1 dans ma Feuil1.
Comment faire pour insérer cette image dans le center header de toute
mes pages avant de les imprimer ?
J'ai vu un exemple qui insere une image à partir d'un chemin mais il
faudrait que je deplois aussi l'image pour que ça fonctionne, non ?
il faudrait ajouter cette ligne de commande dans la boucle,
ActiveSheet.PageSetup.CenterHeader = "&G"
extrait de l'aide Remarque Il est nécessaire que « &G » fasse partie de la chaîne de la propriété CenterHeader afin que l'image s'affiche dans l'en-tête central.
isabelle
Bonjour, J'ai une image Pic1 dans ma Feuil1. Comment faire pour insérer cette image dans le center header de toute mes pages avant de les imprimer ?
J'ai vu un exemple qui insere une image à partir d'un chemin mais il faudrait que je deplois aussi l'image pour que ça fonctionne, non ?
