Fonction pour dupliquer une image ? [Résolu]

[VicomteRaoul]

Bonjour à tous !

Sauriez-vous comment dupliquer une cinquantaine de fois une image déjà présente dans un fichier Word ? Quelle est la commande à utiliser dans ma macro ?

Merci beaucoup à ceux qui me liront et à ceux qui pourraient m'aider !

Raoul

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

La réponse est simple et compliquée.

Dupliquer une image est très facile à faire, il suffit de la copier et de l'insérer.
Mais , il y a un mais , on doit savoir quel est le type d'objet pour l'image, Word possède deux types d'objet, les "Shapes" et les "InlineShapes".
Second souci, il est important de connaître l'ordre des images.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub TestImages()
On Error Resume Next
Dim iInL As Integer
Dim iSh As Integer
 
iInL = ActiveDocument.InlineShapes.Count
iSh = ActiveDocument.Shapes.Count
 
MsgBox "Le document possède : " & vbCrLf & iInL & " images InlineShapes " _
& vbCrLf & " et " & iSh & " images Shapes"
 
End Sub

Essaie ce code et dit nous ce qui en résulte.

[VicomteRaoul]

Merci pour l'accueil !

Et puis merci beaucoup !! Avec ton aide j'ai repéré le numéro de l'image et à quel type d'objet elle appartient.

Après je me suis aidé de la FAQ et ça marche nickel ; merci !

[Heureux-oli]

Si tu pouvais nous mettre un petit

[VicomteRaoul]

Scuz' !!