Discussion :

[lcoulon]

Bonjour

Je cherche à faire un template sous Word 2007

qui me permettrait d'inserer une photo dans un cadre ( ici 1 tableau à 1 cellule ) il faudrait que la photo soit automatiquement redimmensionnée. ( le tableau a une taille fixe ).

J'ai créé le template ci-joint, lorsque je clique sur le bouton d'appel de macro, la fenêtre pour pointer le fichier image s'ouvre bien, mais l'image ne prend pas place dans le tableau.

Pourriez vous m'aider svp ?

Merci beaucoup,

[Heureux-oli]

Salut,

Dans ton code, rien n'indique à la procédure que l'image doit se trouver dans un tableau, ni à un quelconque endroit de ton document.
Par défaut, Word va insérer l'image à l'endroit de la sélection.

Tu dois aussi utiliser les bonnes opérations dans ton code.

Le "+" est une addition et est utilisé sur les nombres.
Pour "additionner" deux chaînes, c'est une concaténation et l'opérateur de concaténation est le "&"

[lcoulon]

Merci,

Pouvez vous m'indiquer quel code ajouter pour que l'image prenne place dans le tableau, car je ne sais pas faire.

Cordialement,

[Heureux-oli]

Salut,

Première étape, faire une sélection de l'endroit où sera insérée l'image.

Code :

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

ActiveDocument.Tables(1).Cell(1, 1).Range.Select

Ensuite, pour insérer l'image, il faut exécuter la boîte de dialogue

Code :

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

.Execute

Voilà ton code corrigé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Inserer_Image_dans_Tableau_Click()
 
ActiveDocument.Tables(1).Cell(1, 1).Range.Select
 
With Application.Dialogs(wdDialogInsertPicture)
'Bring up InsertPicture Dialog box.
.Display
'this is your path and filename
LabelPicPath = .Name
MsgBox "Image :" & LabelPicPath
.Execute
 
End With
End Sub

[lcoulon]

Bonsoir,

Merci à vous pour le code,

J'ai essayé de remplacer votre code par le mien, j'appelle la macro par un bouton mais rien ne se passe ... je ne sais pas pourquoi.

Cordialement,

[Heureux-oli]

Salut,

J'ai testé le code avant de le poster et il fonctionne, je le lance au départ du VBE.

[darkvadave]

Bonsoir,
je viens de mettre quelques morceaux de code dans le forum word à la question "Comment ajuster une image à la page ?" Ca devrait aider.