Discussion :

[bpm_180]

Bonjour,

Je réalise actuellement une macro automatisant la création d'index de documents.
Tout est OK, mais afin de rendre les documents crées plus esthétiques, j'aimerais remplacer les liens textes par des icones, qui d'un clic, ouvriront le fichier cible. (une icone Adobe pour la version PDF, une icone Word pour la version .doc etc ...)

J'ai essayé d'enregistrer la macro pour voir quelle était la méthode à appliquer mais quand je relance le code enregistré, j'obtient l'image suivi de l'adresse du lien ... Bref tout sauf ce que je veux !

Est-ce possible ? Pouvez-vous m'aider ? Merci beaucoup !

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Je pense que le problème est lié au fait que ton code ne sélectionne pas ton image.
Si tu pouvais nous mettre un morceau de ton code, on devrait pouvoir y voir plus clair.

Voilà ce que j'ai utilisé avec succès

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'Ajout de l'image
Selection.InlineShapes.AddPicture FileName:= _
        "C:\Documents and Settings\Olivier\Mes documents\Mes images\Developpez.gif" _
        , LinkToFile:=False, SaveWithDocument:=True
'Sélection de l'image en supposant que c'est la dernière
    ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count).Select
'Ajout de l'adresse pour la sélection qui dans notre cas est l'image
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        "http://www.developpez.com/", SubAddress:=""

[bpm_180]

Merci beaucoup Oli, mon problème est résolu et ma petite macro, terminé ! Effectivement, c'était un problème de selection de l'image. Je comprend pas encore tout de ces histoires de shape, inline shape etc ...

Encore merci !

[Sepia]

Salut bpm_80,

Un InlineShape représente un objet de la couche de texte d'un document. Une forme fixe est obligatoirement une image, un objet OLE voire un contrôle ActiveX (pour Windows uniquement).

Un Shape représente un objet de la couche de dessin, tel qu'une forme automatique, une forme libre, un objet OLE voire un contrôle ActiveX (pour Windows uniquement) ou une image...

C'est donc la (presque) même chose mais leur comportement est différent. Un InlineShape est dans ta ligne donc se déplace avec ton texte alors qu'un Shape est lié à un endroit de ton document (du texte parfois, mais ça peut être des marges, des bords de page...) : il a un point d'ancrage donc il ne se déplace pas forcément avec ton texte (et ils sont plus compliqués à manipuler avec du VBA).

@+