VisualBasic comment changé le nomd'une imag e Résolu/Fermé

Question

Bonjour,
j'ai un souci pour changer le nom d'une image: je suis en trin de créer une biblioteque dans un fichier excel avec des image mais pour pouvoir les applés j'ai bezoin de changer leur nom. mon problème c'est que je n'arrive pas à les activer. 
par exemple pour un graph on utile activechart... mais pour les images c'est pas activepicture. 
quelqu'un a une idée???
merci d'avance

hich24 · Answer

essayer de voir ca 

https://www.excel-downloads.com/threads/selection-dimages-dans-une-feuille-a-partir-de-vba.1423/

pilas31 · Answer

Bonjour,

Les images sont des formes (Shapes) donc pour renommer une image en VBA par exemple on peut utiliser le code suivant :

ActiveSheet.Shapes("TOTO").Select
Selection.ShapeRange.Name = "MON_IMAGE_1"

On selectionne ici la forme qui s'appelle TOTO.
Attention car des shapes il peut y en avoir d'autres qui ne sont pas des images mais des dessins ou des boutons, donc pour être certain de travailler sur des images on peut par exemple dans une boucle tester le type :

if Selection.ShapeRange.Type = msoPicture then
...
endif


A+

bennyboop · Answer

Je suppose que TOTO est le nom de départ de ton image?
seullement moi je narrive pa avoir son nom

ActiveSheet.Shapes("TOTO").Select
Selection.ShapeRange.Name = "MON_IMAGE_1"


Ce que je fais j'ouvre une fenêtre pour aller cherché une image dans un dossier et je l'insère

Private Sub inserer_image_click()


Sheets("DATA2").Select
Range("J2").Select

     nom_fichier1 = ActiveWorkbook.Name

    FileToOpen = Application _
       .GetOpenFilename("image (*.jpg), *.jpg")
    'If FileToOpen <> False Then Workbooks.Open FileToOpen
    nom_fichier2 = FileToOpen
ActiveSheet.Pictures.Insert(nom_fichier2).Select
 
end sub

pilas31 · Answer

Si tu veux savoir comment s'appelle l'image que tu viens d'insérer, il suffit de mettre aprés ActiveSheet.Pictures.Insert(nom_fichier2).Select dans ton code :

MsgBox (Selection.ShapeRange.Name)

Elle doit s'appeller "Picture N"
Mais tu n'as peut-être pas besoin de savoir son nom car si tu mets directement :

Selection.ShapeRange.Name = "Le Nom que tu veux"

cela fonctionne.

A+

bennyboop · Answer

sayé sa marche !!!!!!!!!!!!
après 3 heurs de galère mercis de votre aide 
le truk qui n'allait pas c'était la selection. javè une ligne en tro dan mon programe
merci et bonne journé

hich24 · Answer

merci de voter sur le (s) message qui vous en aider et de mettre enresolu

VisualBasic comment changé le nomd'une imag e

6 réponses

Discussions similaires