Manipuler des photos sous Word depuis Excel

Version imprimable

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"

Code:

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

Ca bloque sur la ligne 4

Si vous avez la solution, je suis preneur

Merci bcp par avance

Daniel

Bonjour,

Essais quelque chose comme ceci :

Code:

1
2
3
4
5
6
7
objselection.TypeText Chr(10)
    set wordShape = objselection.InlineShapes.AddPicture Filename:="e:\1 - aff\" & RepPhoto & "\3-chantier\5-opr et reception\" & RefPhoto & ".jpg"
    set wordInlShape = wordshape.convertToInlineShape
    with wordInlShape
         .LockAspectRatio = msoTrue
         if .Width > .Height then .Width = 20 else .Height = 20
    end with

C'est un code que j'ai fait en VBA sous Access, il y a longtemps suite au problème que tu rencontres, je crois (de mémoire).

Cordialement,

31/07/2015, 14h19
kiki29

Salut, autrement il y a Utiliser la librairie Windows Image Acquisition en VBA
31/07/2015, 17h28
familledacp

MErci Gado pour ce retour

Quand je copie ton code, la ligne 2 se met en rouge
quand je lance, il bug sur cette ligne avec erreur de compilation / erreur de syntaxe

Bonne soirée

Daniel

Bonjour,

Peut être comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
objselection.TypeText Chr(10)
 
Dim ILS As InlineShape  '///ajout/modif
 
  Set ILS = objselection.InlineShapes.AddPicture(FileName:="e:\1 - aff\" & RepPhoto & "\3-chantier\5-opr et reception\" & RefPhoto & ".jpg")  '///ajout/modif
    'test redimensionnement image
 
    With ILS  '///ajout/modif
    .LockAspectRatio = msoTrue
    If .Width > .Height Then
    .Width = 20
    Else
    .Height = 20
    End If
    End With

Bonjour

Merci PMO2015 pour cette réponse

J'ai eu juste un souci avec ".LockAspectRatio = msoTrue" qui ne fonctionnait pas

J'ai trouvé ce post http://www.developpez.net/forums/d12...ne-fonctionne/
qui m'a permis de trouver la solution -enfin une solution qui fonctionne_

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    objselection.TypeText Chr(10)
 
    Dim ILS As InlineShape  '///ajout/modif
 
        Set ILS = objselection.InlineShapes.AddPicture(Filename:="e:\1 - aff\" & RepPhoto & "\3-chantier\5-opr et reception\" & RefPhoto & ".jpg")  '///ajout/modif
        '    With ILS  '///ajout/modif
        With ILS
            If .Width < .Height Then
                myRatio = .Width / .Height
                .Width = 150
                .Height = .Width / myRatio
            Else
                myRatio = .Height / .Width
                .Height = 150
                .Width = .Height / myRatio
                .Height = 150
            End If
        End With

Encore merci

Bonne journée

Daniel

01/08/2015, 09h20
PMO2017

Citation:

J'ai eu juste un souci avec ".LockAspectRatio = msoTrue" qui ne fonctionnait pas

Bonjour,

Cela pourrait provenir du pilotage de Word en liaison tardive (late binding).
La constante msoTrue ne serait pas reconnue.
Sa vraie valeur étant -1, essayez de remplacer la constante par sa valeur dans votre code

Code:

.LockAspectRatio = -1 'msoTrue