Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Noir c'est noir - [VBA] [WRD 2002] Dimensions de l'image de fond le retour

17 réponses
Avatar
Demokos
Bonjour à toutes et à tous.

Suite à l'aide de Géo, j'utlise le script VBA suivant pour insérer une
image de fond (un papier à en-tête) en fonction de la société choisie
dans un champ de formulaire de type liste déroulante :

Sub Societe()
Dim aShape As Shape
Dim MonImageILS As InlineShape
Dim MonImage As Shape
Dim Fichier As String
If Not IsNull(ActiveDocument.Shapes.Count) Then
For Each aShape In ActiveDocument.Shapes
aShape.Delete
Next
End If

Application.ScreenUpdating = False

PosSte = ActiveDocument.FormFields("LdSte_01").DropDown.Value
FichImg = ActiveDocument.Path & Application.PathSeparator & PosSte
& ".jpg"

Selection.HomeKey Unit:=wdStory

Set MonImageILS =
Selection.InlineShapes.AddPicture(FileName:=FichImg, LinkToFile:=False,
SaveWithDocument:=True)

Set MonImage = MonImageILS.ConvertToShape

With MonImage
'Position à gauche :
.RelativeHorizontalPosition =
wdRelativeHorizontalPositionLeftMarginArea

.RelativeVerticalPosition = wdRelativeVerticalPositionPage

.LockAspectRatio = msoFalse
.ZOrder msoSendBehindText 'option pour image en arrière plan
derrière le texte
' Taille
.Height = CentimetersToPoints(28.1)
.Width = CentimetersToPoints(19.4)

End With

ActiveWindow.View.Type = wdPrintView

Application.ScreenUpdating = True

ActiveDocument.FormFields("LdSte_01").DropDown.Value = PosSte

End Sub

Mon problème actuel est que, après l'insertion de l'image, qui se fait
parfaitement, il y a toute une partie de la télécopie dont le fond
devient noir en vue "Page" uniquement. Ci-joint les images (floutées
!!!) de cette télécopie

http://cjoint.com/?kmsS7kp8iH

http://cjoint.com/?kmsTSUavvL

http://cjoint.com/?kmsUrJesno

Les vues "Web", "Normal" et l'aperçu avant impression ne reproduisent
pas le phénomène. Y a-t-il quelque chose à faire pour éviter cette
"peinture" ?

Par avance merci pour vos réponses.

7 réponses

1 2
Avatar
Demokos
Il est bien possible que ce soit Circé qui ait raison. Suspense !!!

Geo a écrit :
Bonjour

Si si, le résultat est ... noir,



C'est rassurant.

que je fasse l'insertion en une fois ou en deux.


En fait je partais sur l'hypothèse que votre papier avait en réalité un
pied de page et un en-tête, rien au milieu.
En scindant les deux on aurait peut-être allégé la taille du fichier.

Après divers tests, il semblerait que le phénomène apparaît quand je
fais Clic droit -> Propriétés -> Habillage -> Derrière le texte, ce
qui correspond à l'instruction : .ZOrder msoSendBehindText.



C'est aussi, au moins en partie, la fonction ConvertToShape.

Je ne suis pas sûr d'avoir moins de mémoire sur mon Eee Box que sur le
PC du bureau, donc je ne vois pas pourquoi ça me fait ça. J'essayerai
demain au bureau mais l'insertion d'une image de papier à en-tête au
boulot ne me provoquait pas ce noir.



Peut-être la mémoire allouée au programme de fax.
Un fax est envoyé sous forme de points, le document est donc converti au
moins page par page.
Le phénomène constaté fait bien penser à une limite de taille mémoire
atteinte, voire dépassée.

Quel suspens insoutenable jusqu'à demain !



Avatar
Demokos
Σας ευχαριστώ, O μεγάλη μάγισσα Κίρκη. Είχες δίκιο. Η κάρτα γραφικών
είναι που προκαλεί το πρόβλημα.

Circé a écrit :
Bonjour,

Demokos a utilisé son clavier pour écrire :
Si si, le résultat est ... noir, que je fasse l'insertion en une fois
ou en deux.
Après divers tests, il semblerait que le phénomène apparaît quand je
fais Clic droit -> Propriétés -> Habillage -> Derrière le texte, ce
qui correspond à l'instruction : .ZOrder msoSendBehindText.
Je ne suis pas sûr d'avoir moins de mémoire sur mon Eee Box que sur le
PC du bureau, donc je ne vois pas pourquoi ça me fait ça. J'essayerai
demain au bureau mais l'insertion d'une image de papier à en-tête au
boulot ne me provoquait pas ce noir.



Moins de mémoire, peut être pas... ENcore que 1Go, ce n'est pas
énorme... Mais c'est plutôt du côté de la carte graphique que ça doit
pêcher.

Circé

Geo a écrit :
Bonjour

Au bureau, en insérant le fichier de papier à en-tête à la main, je
n'avais pas le problème.



Et à la maison, vous n'avez pas essayé à la main ?









Avatar
Demokos
Merci Geo. Circé avait raison. Aucun problème sur le PC du bureau.
C'était donc très probablement la carte graphique de l'Eee Box qui est
trop chétive. Comme c'est pour utiliser au bureau... Merci encore à vous
deux.

Geo a écrit :
Bonjour

Si si, le résultat est ... noir,



C'est rassurant.

que je fasse l'insertion en une fois ou en deux.


En fait je partais sur l'hypothèse que votre papier avait en réalité un
pied de page et un en-tête, rien au milieu.
En scindant les deux on aurait peut-être allégé la taille du fichier.

Après divers tests, il semblerait que le phénomène apparaît quand je
fais Clic droit -> Propriétés -> Habillage -> Derrière le texte, ce
qui correspond à l'instruction : .ZOrder msoSendBehindText.



C'est aussi, au moins en partie, la fonction ConvertToShape.

Je ne suis pas sûr d'avoir moins de mémoire sur mon Eee Box que sur le
PC du bureau, donc je ne vois pas pourquoi ça me fait ça. J'essayerai
demain au bureau mais l'insertion d'une image de papier à en-tête au
boulot ne me provoquait pas ce noir.



Peut-être la mémoire allouée au programme de fax.
Un fax est envoyé sous forme de points, le document est donc converti au
moins page par page.
Le phénomène constaté fait bien penser à une limite de taille mémoire
atteinte, voire dépassée.

Quel suspens insoutenable jusqu'à demain !



Avatar
Geo
Bonjour

Merci Geo. Circé avait raison. Aucun problème sur le PC du bureau. C'était donc très
probablement la carte graphique de l'Eee Box qui est trop chétive. Comme c'est pour
utiliser au bureau... Merci encore à vous deux.



Merci pour la traduction :-)
Et merci pour le retour, ça peut servir à d'autres.

--
A+
Avatar
Demokos
Bonjour,
En fait, la traduction littérale, c'est : "Merci, ô grande magicienne
Circé. Vous aviez raison. La carte graphique est bien la cause du problème."
Je ne suis pas absolument persuadé de l'existence de cartes graphiques
au temps de la Grèce antique, mais qu'importe le flacon...
Demokos

Geo a écrit :
Bonjour

Merci Geo. Circé avait raison. Aucun problème sur le PC du bureau.
C'était donc très probablement la carte graphique de l'Eee Box qui est
trop chétive. Comme c'est pour utiliser au bureau... Merci encore à
vous deux.



Merci pour la traduction :-)
Et merci pour le retour, ça peut servir à d'autres.



Avatar
Circ
γειά σου!

Demokos avait soumis l'idée :
Σας ευχαριστώ, O μεγάλη μάγισσα Κίρκη. Είχες δίκιο. Η κάρτα γραφικών είναι
που προκαλεί το πρόβλημα.



Και εγώ ευχαριστώ για την ανατροφοδότηση. Οι υπολογιστές είναι ένα
μεγάλο μυστήριο! ;)

Κίρκη

Circé a écrit :
Bonjour,

Demokos a utilisé son clavier pour écrire :
Si si, le résultat est ... noir, que je fasse l'insertion en une fois ou
en deux.
Après divers tests, il semblerait que le phénomène apparaît quand je fais
Clic droit -> Propriétés -> Habillage -> Derrière le texte, ce qui
correspond à l'instruction : .ZOrder msoSendBehindText.
Je ne suis pas sûr d'avoir moins de mémoire sur mon Eee Box que sur le PC
du bureau, donc je ne vois pas pourquoi ça me fait ça. J'essayerai demain
au bureau mais l'insertion d'une image de papier à en-tête au boulot ne me
provoquait pas ce noir.



Moins de mémoire, peut être pas... ENcore que 1Go, ce n'est pas énorme...
Mais c'est plutôt du côté de la carte graphique que ça doit pêcher.

Circé

Geo a écrit :
Bonjour

Au bureau, en insérant le fichier de papier à en-tête à la main, je
n'avais pas le problème.



Et à la maison, vous n'avez pas essayé à la main ?











Avatar
Demokos
Σας ευχαριστώ και πάλι για τη βοήθειά σας.

Circé a écrit :
γειά σου!

Demokos avait soumis l'idée :
Σας ευχαριστώ, O μεγάλη μάγισσα Κίρκη. Είχες δίκιο. Η κάρτα γραφικών
είναι που προκαλεί το πρόβλημα.



Και εγώ ευχαριστώ για την ανατροφοδότηση. Οι υπολογιστές είναι ένα
μεγάλο μυστήριο! ;)

Κίρκη

Circé a écrit :
Bonjour,

Demokos a utilisé son clavier pour écrire :
Si si, le résultat est ... noir, que je fasse l'insertion en une
fois ou en deux.
Après divers tests, il semblerait que le phénomène apparaît quand je
fais Clic droit -> Propriétés -> Habillage -> Derrière le texte, ce
qui correspond à l'instruction : .ZOrder msoSendBehindText.
Je ne suis pas sûr d'avoir moins de mémoire sur mon Eee Box que sur
le PC du bureau, donc je ne vois pas pourquoi ça me fait ça.
J'essayerai demain au bureau mais l'insertion d'une image de papier
à en-tête au boulot ne me provoquait pas ce noir.



Moins de mémoire, peut être pas... ENcore que 1Go, ce n'est pas
énorme... Mais c'est plutôt du côté de la carte graphique que ça doit
pêcher.

Circé

Geo a écrit :
Bonjour

Au bureau, en insérant le fichier de papier à en-tête à la main,
je n'avais pas le problème.



Et à la maison, vous n'avez pas essayé à la main ?















1 2