Vedi immagini

Hai un problema con Excel?

Nuova discussione

Vedi immagini
di marxitpa data: 03/10/2013 17:23:18
Con la seguente macro è possibile vedere, per 10 sec, un'immagine "C:file duplicatimacro.jpg" indicata nella macro.

E' possibile adattare la macro, avendo nella colonna O l'elenco di tutte le immagini con relativi indirizzi, di fare in modo che venga visualizzata quella della cella le cui coordinate sono inserite in O1?

Sub ShowImage()
    Const ImageFullPath = "C:file duplicatimacro.jpg"
    Const ImageName = "TempImageFile01"
    If Dir(ImageFullPath) = "" Then Exit Sub
    ActiveSheet.Pictures.Insert(ImageFullPath).Name = ImageName
    Application.OnTime Now() + TimeValue("00:00:10"), "CloseImage"
End Sub
Sub CloseImage()
    ActiveSheet.Pictures("TempImageFile01").Cut
End Sub

di marxitpa data: 03/10/2013 18:29:46
Trovata soluzione.
In questo caso copio nella cella interessata l'indirizzo del file e lo incollo in O1 e avvio macro.

Ovviamente cerco soluzione migliore che mi eviti il copia/incolla.

Sub ShowImage()
MyImgFile = Cells(1, 15) 'Prende il valore di O1
ImageFullPath = MyImgFile
If Dir(ImageFullPath) = "" Then Exit Sub
    ActiveSheet.Pictures.Insert(ImageFullPath).Name = ImageName
End Sub

di Vecchio Frac data: 03/10/2013 18:46:47
Cosa succede se l'utente distratto, durante i dieci secondi, taglia, elimina o rinomina l'immagine?
(Inoltre io non utilizzerei il metodo Cut ma Delete)
di marxitpa data: 03/10/2013 19:04:39
... sei un saggio.
nella macro rivista ... sono stati eliminati i 10sec.
di Vecchio Frac data: 03/10/2013 22:00:22
Non sono saggio... è esperienza vissuta :)
Ma perchè stravolgere la macro? non aveva un senso proprio lasciare l'immagine visibile dieci secondi? perchè hai cambiato strategia?
di marxitpa data: 04/10/2013 04:03:49
siccome devo fare confronto (per poi scegliere se eliminare o mantenere) ho bisogno di tempo variabile a secondo delle immagini ed anche perchè spesso devo spostare sul desktop l'immagine perchè cade fuori schermo.
A proposito ... ne approfitto, è possibile fare in modo che un vertice dell'immagine (il sinistro) abbia sempre la stessa coordinata.
di Vecchio Frac data: 04/10/2013 08:43:50
Così a naso ogni Picture potrebbe avere una proprietà Top e Left per le coordinate in alto e a sinistra del foglio.
di marxitpa data: 07/10/2013 06:23:26

Vuoi Approfondire?