Discussion :

[Lilie23]

Bonjour,

Après plusieurs jours de recherches je n'arrive toujours pas à faire ce que je voudrais.

J'ai fait un publipostage.

J'obtiens 500 pages composées d'un tableau, qui contient 2 à 3 images.

Sur chacune de mes pages, la première photo est bien plus petite que la cellule, donc je voudrais tout simplement augmenter sa taille.

Seulement je ne trouve du vba que pour l'image sélectionnée ou pour toutes les images du document.

J'ai essayé de "mixer" ce que je trouvais, mais toujours rien.

En pièce jointe un extrait de mon document, au cas où.


J'espère que vous pourrez m'aider, j'ai plusieurs dossiers du même genre ...


Bonne journée.


Lilie23

[Heureux-oli]

Salut,


Lorsque tu fais un publipostage, pour chaque enregistement, une section est crée.
Chaque section comporte un tableau.

On peut adresser une cellule précise de chaque tableau avec une boucle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim oSec as Section
 
'Boucle sur la première table de chaque section
For Each oSec In ActiveDocument.Sections
'Ajout d'un texte dans une cellule de chaque table
oSec.Range.Tables(1).Cell(1, 2).Range.Text = "moi"
 
Next oSec

[Lilie23]

Bonjour,

j'ai essayé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Taille()
 
Dim oSec As Section
 
 
'Boucle sur la première table de chaque section
For Each oSec In ActiveDocument.Sections
 
oSec.Range.InlineShapes.Cell(5, 1).Height = 6
 
 
Next oSec
 
 
End Sub

Mais il me dit "erreur de compilation : membre de méthode ou de données introuvable." sur mon ".Cell"

C'est la deuxième fois que je travaille avec du vba, il y a encore des "bases" que je n'applique pas de façon automatique.
Donc cette erreur est peut-être basique, mais je ne vois pas la modif à apporter.

Dans tous les cas, merci de m'avoir répondu.


Lilie23

[carden752]

Bonjour,

Il faut travailler avec l'objet ShapeRange sur chaque section.
Voici un exemple à adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
Dim a As Shape, s As Section
For Each s In ActiveDocument.Sections
Set a = s.Range.ShapeRange(1)
    a.LockAspectRatio = msoTrue
    a.Width = 200
Next
End Sub