Comment insérer une image en parcourant le disque via une macro?

JE cherche à insérer une image que j'aurais préalablement choisie à l'aide de la boite de dialogue Parcourir via VBA.
Le but est ensuite de modifier sa taille, le lien hypertexte.... mais cela, j'y parviens.

Merci pour votre aide.

Bonjour à tous,

Une petite pause au boulot fait parfois un peu debien.... LOL

Fabrice, voici un code pour ouvrir la boite de dialogue Insertion/image,



Sub InsertImage()
Dim NomImage As String

Dim WS As Worksheet
Set WS = Sheets(1) 'à adpater, ici la 1ere feuille

If Application.Dialogs(xlDialogInsertPicture).Show(0) = True Then NomImage = WS.Shapes(WS.Shapes.Count).Name

'si l'utilisateur clique sur Inserer renvoie true sinon False
'pour récupérer le nom de l'image, je n'ai ps trouvé mieux que de récupérer l'index le plus élevé (shapes.count)
End Sub


A+++

Salut Zon, pas de problème pour utiliser Shapes.Count, c'est la méthode la plus simple, alors pourquoi s'en priver :-)

Merci, cela fonctionne très bien.

salut desole de vous deranger mais j ai un petite probleme certes minime mais tres chiant je n arrive pas a faire rentrer dans ma liste deroulante des images ou objet tel que une forme automatiques bref..., j ai essaye de la convertir en caractere en la ssociant a du texte mais je n y arrive pas sur 2000.
si qqu pouvait m aider ca serais super sympa