Enregistrer les images à l'intérieur du fichier Word

**Selpoivre** · 02/05/2011, 12h09

Bonjour à tous !

Je viens à vous car je rencontre un problème assez pénible avec un bout de code VBA depuis mon passage de Word 2007 à Word 2010.

Sous 2007, le bout de code suivant fonctionnait parfaitement et me permettait d'inclure automatiquement toutes les images d'un document dans ce document (le fichier Word est généré par une autre appli qui enregistre les images séparément).

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
16
17
18
19
20
    'First, embed all document images in Word file
    With ActiveDocument
        ' embed linked InlineShapes
        For idx = .InlineShapes.Count To 1 Step -1
            Set oILS = .InlineShapes(idx)
            If Not oILS.LinkFormat Is Nothing Then
                oILS.LinkFormat.SavePictureWithDocument = True
                oILS.LinkFormat.BreakLink
            End If
        Next
 
        ' embed linked Shapes
        For idx = .Shapes.Count To 1 Step -1
            Set oShp = .Shapes(idx)
            If Not oShp.LinkFormat Is Nothing Then
                oShp.LinkFormat.SavePictureWithDocument = True
                oShp.LinkFormat.BreakLink
            End If
        Next
    End With

Sous 2010, j'obtiens l'erreur suivante :

Run-time error '5352'
The link does not exist.

Après investigation, il semblerait que la méthode LinkFormat retourne désormais un objet en lecture seule (alors qu'en 2007 et avant, cet objet pouvait être modifié).

Quelqu'un saurait comment contourner ce problème ou forcer l'objet LinkFormat à accepter les modifs ?

D'avance merci !

SP

**pgz** · 03/05/2011, 00h47

Bonsoir.

A mon avis, la propriété LinkFormat renvoie un objet LinkFormat, comme avec 2007.

Par contre, plutôt que de vérifier si Shape contient un objet LinkFormat, je pense qu'il serait préférable de vérifier son type. Ainsi, pour les inlineShapes, je remplacerais

Code :

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

If Not oILS.LinkFormat Is Nothing Then

Par :

Code :

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

If oILS.Type = wdInlineShapeLinkedPicture Then

Mais ce n'est qu'une idée, et peut-être pas la bonne!

Cordialement,

PGZ

**Selpoivre** · 03/05/2011, 09h39

Hello ! Merci pour le coup de main

J'ai déjà essayé cette astuce mais malheureusement cela ne résout rien.

En fait l'objet LinkFormat retourné est bien valide, seulement il est retourné en "lecture seule" (alors qu'en 2007 il était en read/write). C'est ce que la doc officielle m'a confirmé d'ailleurs.

Du coup je pensais utiliser ce bout de code pour supprimer chaque image et la remplacer par la même "embeddée" mais cela ne semble pas fonctionner non plus :

Code :

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

1
2
3
4
5
6
7
8
    For Each InlineShape In ActiveDocument.InlineShapes
        If Not InlineShape.LinkFormat Is Nothing Then
            Set oILS = InlineShape
            fileName = ActiveDocument.Path & "/" & oILS.LinkFormat.SourcePath & "/" & oILS.LinkFormat.SourceName
            Set newInlineImage = ActiveDocument.InlineShapes.AddPicture(fileName, False, True, oILS.Range)
            oILS.Delete
        End If
    Next

Tu aurais une idée ?

**pgz** · 03/05/2011, 13h57

Bonjour

Envoyé par Selpoivre

En fait l'objet LinkFormat retourné est bien valide, seulement il est retourné en "lecture seule" (alors qu'en 2007 il était en read/write). C'est ce que la doc officielle m'a confirmé d'ailleurs.

Je suis très surpris par cette info

. Quelle est cette doc officielle?

Ce n'est pas du tout ce que je vois dans la doc Wd 2010 et d'ailleurs j'ai testé le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub testphoto()
Dim oILS As Word.InlineShape
 
For Each oILS In ThisDocument.InlineShapes
    If oILS.Type = wdInlineShapeLinkedPicture Then
        MsgBox oILS.LinkFormat.SourceFullName
        oILS.LinkFormat.SavePictureWithDocument = True
        oILS.LinkFormat.BreakLink
    End If
Next oILS
 
End Sub

Et cela fonctionne très bien

Je pense que le pb est ailleurs.

Cordialement,

PGZ

**Selpoivre** · 03/05/2011, 14h58

C'est l'aide en ligne qui m'affirme cela (celle qui s'affiche lorsque je fais F1)...

J'ai essayé ton code (en remplaçant ThisDocument par ActiveDocument parceque ma Sub se trouve dans le Normal.dotm) mais j'obtiens toujours la même erreur

**pgz** · 03/05/2011, 15h37

Selpoivre,

Envoyé par Selpoivre

C'est l'aide en ligne qui m'affirme cela (celle qui s'affiche lorsque je fais F1)...

Peux-tu copier le texte correspondant?

C'est quelle ligne du code qui lève une erreur?

Cordialement,

PGZ

**Selpoivre** · 03/05/2011, 15h50

C'est la ligne suivante qui lève l'erreur "the link does not exist" :

Code :

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

oILS.LinkFormat.SavePictureWithDocument = True

Pour la doc, j'avoue que je me sens assez bête : je suis persuadé qu'hier elle indiquait "read boolean" ou quelque chose du genre. Là cette aprem elle indique effectivement bien Read/write

Soit j'ai mal lu toute la journée d'hier soit c'était une typo corrigée entre temps...

Encore merci pour ton aide !

**pgz** · 03/05/2011, 17h05

Re,

Envoyé par Selpoivre

C'est la ligne suivante qui lève l'erreur "the link does not exist" :

Code :

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

oILS.LinkFormat.SavePictureWithDocument = True

Et tu as d'abord bien fait le test

Code :

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

If oILS.Type = wdInlineShapeLinkedPicture Then

?

A ce stade, il faut être très précis. Peux-tu donner ton code modifié en précisant la première erreur levée?

Cordialement,

PGZ

**Selpoivre** · 03/05/2011, 17h34

voilà mon code :

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
16
17
18
19
20
21
22
23
24
25
26
27
Sub test()
    Dim oILS As InlineShape
    'Dim newInlineImage As InlineShape
    'Dim fileName As String
 
    Dim oShp As Shape
    'Dim newImage As Shape
 
    For Each oILS In ActiveDocument.InlineShapes
        MsgBox (oILS.LinkFormat.SourceFullName)
        If oILS.Type = wdInlineShapeLinkedPicture Then
            'MsgBox oILS.LinkFormat.SourceFullName
            oILS.LinkFormat.SavePictureWithDocument = True
            oILS.LinkFormat.BreakLink
        End If
    Next oILS
 
    For Each oShp In ActiveDocument.Shapes
        MsgBox (oShp.LinkFormat.SourceFullName)
        If oShp.Type = wdShapeLinkedPicture Then
            'MsgBox oShp.LinkFormat.SourceFullName
            oShp.LinkFormat.SavePictureWithDocument = True
            oShp.LinkFormat.BreakLink
        End If
    Next oShp
 
End Sub

La première erreur est levée à la ligne 13.
Je ne sais pas si cela a une importance mais le code est situé dans le fichier Normal.dotm (je n'ai pas le choix, la méthode devra être appelée pour un paquet de fichiers différents) et le fichier sur lequel je travaille est un .doc (format 2003 normalement donc).

**pgz** · 03/05/2011, 18h15

Re,

Je viens de faire la manip :

je crée un .doc avec Wd 2000
Sur un poste Wd 2010, je mets la macro dans Normal
J'active le .doc et je lance la procédure

AU résultat, cela fonctionne. Le code que j'utilise ne diffère que par l'endroit des MsgBox

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
16
17
18
19
20
21
22
23
24
25
Sub test()
    Dim oILS As InlineShape
    'Dim newInlineImage As InlineShape
    'Dim fileName As String
 
    Dim oShp As Shape
    'Dim newImage As Shape
 
    For Each oILS In ActiveDocument.InlineShapes
        If oILS.Type = wdInlineShapeLinkedPicture Then
            MsgBox oILS.LinkFormat.SourceFullName
            oILS.LinkFormat.SavePictureWithDocument = True
            oILS.LinkFormat.BreakLink
        End If
    Next oILS
 
    For Each oShp In ActiveDocument.Shapes
        If oShp.Type = wdShapeLinkedPicture Then
            MsgBox oShp.LinkFormat.SourceFullName
            oShp.LinkFormat.SavePictureWithDocument = True
            oShp.LinkFormat.BreakLink
        End If
    Next oShp
 
End Sub La première erreur est l

Tu rencontres la première erreur sur la ligne 13 de ton code. DOnc tu passes par un MsgBox en 10. Ca affiche quoi?

PGZ

**Selpoivre** · 04/05/2011, 15h09

Hello !

Si je lance ton code sans le retoucher, j'obtient tout d'abords ce message :

gif/Highlight.gif

(ce qui correspond bien au chemin complet de la première image du document).

Puis l'erreur suivante se déclenche sur la ligne oILS.LinkFormat.SavePictureWithDocument = True

Run-time error '5352':
The link does not exist.

**pgz** · 04/05/2011, 17h00

Bonjour.

Je trouve ce chemin complet un peu court, pas très complet pour tout dire.Mais tu dis que c'est le bon.

Je pense qu'on ne peut plus améliorer le code et que le pb est ailleurs.

L'erreur semble indiquer qu'il n'y a rien au bout du lien sur la machine qui travaille.

Il faudrait vérifier cela.

Si ça ne donne rien, je te propose d'essayer sur une autre machine.

PGZ

**Selpoivre** · 05/05/2011, 18h09

Bonjour,

Désolé pour le temps de réponse mais j'ai été pas mal accaparé par autre chose ces jours-ci...

J'ai vérifié et il y a bien un fichier à cet emplacement relatif. Malheureusement je n'ai pas d'autre machine avec Word 2010 sous la main pour tester. Je vais essayer de dégager un peu de temps pour monter une VM et tester ça d'ici le début de semaine prochaine.

Tu penses que ca pourrait venir d'un problème de paramétrage de Word sinon ?