Version imprimable
[EX02][VBA]
Bonjour,
Mon problème est le suivant, je génère sous VBA Excel, une liste assez longue comportant des images. Certaines images chevauchent 2 pages, je voudrais controler la position des images qui est sur deux pages en la remontant sur la page précédente ou la descendant sur la page suivante.
Merci pour les pistes que vous pourrez me suggérer.
8O
Tu peux peut-être utiliser le top des cellules et la hauteur de l'image précédente afin de positionner tes images.
Juste pour l'idéeCode:
2
3
4
5
Bonjour tlm,
ouskel, à mon tour de t'ennuyer un peu :D la piste est bonne mais il me semble que ça va juste placer les images les unes à la suite des autres sans tenir compte des sauts de page (quoique j'aurais plutot dis If Cells(i, 1).top > Image1.height then).
Mais ton idée est à creuser sachant qu'on a un saut de page +/- tout les 714 pixels (au format portrait), on devrait arriver à dire que si l'image tombe sur un multiple de 714, on la décale. Mais pour savoir dans quel sens la décaler, il faudrait connaître la hauteur de chaque image.
A mon avis, tout ce qui est question de mise en page est très difficile à réaliser par macro vu que l'on tombe dans le critère "ça à de la gueule" et que ce critère est relatif d'une personne à l'autre.
Tu as raison.Citation:
Envoyé par fring
Non, cette hauteur dépend des marges. Mais l'idée est bonne.Citation:
Envoyé par fring
Dommage qu'on ne puisse pas donner à une cellule la dimension d'un page !
Reste plus qu'à... Je joins un fichier pour expliquer ce que je ferais. Présentation portrait ou paysage, on s'en f...
Pièce jointe 25666
- Affichage des sauts de pages -> Menu affichage -Afficher les saut de pages.
- On obtient la position de la droite de la page en prenant le left de la colonne H (dans mon exemple)
- De même, on obtient la position basse du saut de page en prenant le top de la ligne 57 (dans mon exemple)
- Le left de la première page = zéro
- Le top de la première page = zéro
- Ne reste plus qu'à centrer l'image
La suivante ? Top = Top ligne 57, bas = Top ligne 113
Si une image déborde, la redimensionner
Juste une idée en attendant une meilleure ;)
Merci pour la suggestion avec cells(i,1).top
Ce que je fais, c'est que je vérifie dans mon document si le top d'une image est inférieur au top de la cellule du saut de page, et si l'image se trouve plutôt sur la page en cours ou plutôt sur la page suivante (en utilisant la propriété Height); si ce n'est pas le cas je vérifie la position de l'image avec le haut de page suivante; et enfin je décale ma photo à la limite du saut de page. Le saut de page est localisé avec la propriété : HPageBreaks(i).Location.
ce qui donne :
Pour chaque saut de page :
top_bdp est la position du haut de la cellule du saut de page de la page courante (càd tout en bas)
TOP_HDP est la position du haut de la de la cellule du saut de page de la page suivante (càd tout en haut)
Merci pour vos conseils et à bientôtCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
:D