Bonjour à tous et à toutes
Depuis excel, j'insère du texte et des photos dans un document Word
Cela fonctionne
Je souhaite pouvoir redimensionner les photos et là, ca coince
"erreur d'exécution 438 / propriété ou méthode non gérée par cet objet"
Ca bloque sur la ligne 4
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 objselection.TypeText Chr(10) objselection.InlineShapes.AddPicture Filename:="e:\1 - aff\" & RepPhoto & "\3-chantier\5-opr et reception\" & RefPhoto & ".jpg" 'test redimensionnement image With objdoc2.objselection.InlineShapes .LockAspectRatio = msoTrue If .Width > .Height Then .Width = 20 Else .Height = 20 End If End With
Si vous avez la solution, je suis preneur
Merci bcp par avance
Daniel
Partager