Discussion :

[RemyL]

Bonjour à tous,

J'ai déjà consulté beaucoup de pages et pas mal de discussions sur internet, mais si je trouve comment insérer une image par macro (dans excel sous Office 2007) je ne trouve rien quant à la sélection de cette image par la suite , ni sur l'affectation d'un lien hypertexte à cette image.
De plus l'enregireur de macro ne m'est d'aucune utilité, car il n'enregistre pas ces actions...?

Voici 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
Sub InsérerImage
    Range("E5").Select
    ActiveSheet.Pictures.Insert("D:\TEMPOR\ESSAI\Planeur twin3.jpg").Select
 
    'Je veux maintenant sélectionner cette image
 
 
    'aprés sélection de cette image je veux lui attribuer un lien hypertexte.
    'L'attribution du lien hypertexte par:
    'ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Program Files\INFOS Pers\Fichiers images\index.htm", _
    'TextToDisplay:=""
    'ME RENVOIE UNE ERREUR
 
End Sub

De plus la sélection de la cellule [Range().Select] ne semble pas répondre à mon attente, l'image ne s'insère pas là ou je veux

Merci à tous de bien vouloir me donner la solution,
RemyL

[ouskel'n'or]

Regarde la méthode Add de l'Object hyperlink dans l'aide en ligne

expression.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)

expression Obligatoire. Expression qui renvoie un objet Hyperlinks.

Anchor Argument de type Object obligatoire. Ancre du lien hypertexte. Il peut s'agir d'un objet Range ou d'un objet Shape.

Address Argument de type String obligatoire. Adresse du lien hypertexte.

SubAddress Argument de type Variant facultatif. Sous-adresse du lien hypertexte.

ScreenTip Argument de type Variant facultatif. Info-bulle à afficher lorsque le pointeur de la souris se trouve sur le lien hypertexte.

TextToDisplay Argument de type Variant facultatif. Texte à afficher pour le lien hypertexte.

[pgz]

Bonjour.


Tu as dû utiliser l'enregistreur de macros et c'est encore un cas qui donne un piètre résultat...

Pour ajouter une image j'utiliserais plutôt la méthode AddPicture de la collection Shapes. Et tu instancies en même temps

Code :

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

Set MonImage = Mafeuile.Shapes.AddPicture(...)

Et tu donnes la position dans la feuille (Left, Top)

Pour ajouter un lien hypertexte j'utiliserais la mthode Add de la collection Hyperlinks de la feuille.

En espérant que cela t'aide,

PGZ

[ouskel'n'or]

Code :

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

1
2
3
4
5
6
7
Sub Test()
Dim LeTruc As Shape, FL1 As Worksheet
    Set FL1 = ActiveSheet
    FL1.Pictures.Insert "D:\TEMPOR\ESSAI\Planeur twin3.jpg"
    Set LeTruc = FL1.Shapes(FL1.Shapes.Count)
    FL1.Hyperlinks.Add Anchor:=LeTruc, Address:="C:\Program Files\INFOS Pers\Fichiers images\index.htm"
End Sub

[RemyL]

Merci de ta réponse et j'ai essayé avec la méthode AddPicture de la collection Shapes qui fonctionne très bien (encore à fignoler la taille, mais ce n'est rien).

Comment puis-je maintenant sélectionner l'image et ensuite lui attribuer le lien hypertexte.

Je suis débutant dans ce genre de programmation, merci de bien vouloir m'aider.

RemyL

[pgz]

Si tu as fait

Code :

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

Set MonImage = ...

Pour ajouter le lien hypertext

Code :

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

Mafeuille.Hyperlinks.Add MonImage, ...

C'est le paramètre Anchor qui permet de préciser l'ancrage du lien à un Range ou Shape.

C'est clair?

PGZ