[VBA/EXCEL] Trattamento di immagini

[satriano]

salve.
1 - Se io ho 'caricato' una immagine in una imagebox dall'harddisk,
sarebbe possibile, premendo un commandbutton 'lampeggia' fare lampeggiare in qualche modo l'immagine (anche solo il bordo), e poi fare smettere detto lampeggiamento premendo lo stesso (od un'altro) bottone?
Come sarebbe il codice per ottenere questo effetto?

2 - Finora ho potuito caricare solo una immagine precisa, richiamata dal codice.
E' possibile invece caricare una immagine da una list di immagini presenti sull'harddisk, cioé sfogliare in una mappa di immagini?
tramite un button 'carica immagine'
ps. la domanda riguarda specialmente il vb di excel (con ALT+F11)

grazie

[alka]

Come per le tue precedenti discussioni, sposto anche questa nel forum dedicato a Visual Basic.

Le domande su VBA vanno postate in quell'area.

Ciao!

[MdE2005]

Ciao satriano..il primo effetto che hai chiesto è ottenibile esclusivamente con il controllo Timer, tipico però di visual basic for application.
La risposta alla seconda domanda: puoi creare una lista con tutti gli indirizzi delle foto dell'hard-disk, e cliccando su un file della lista, ti mostrerebbe la figura in in imagebox o picturebox..

Con Visual Basic for Application sarebbero entrambe situazioni facili da raggiungere e con molte possibilità in più....

[satriano]

Bene, ma...basta che possa risolvere in qualche modo
anche se con visual basic for application.
Puoi farmi questo codice, se non ti dispiace ?
Grazie

[MdE2005]

Ok..però ora devo andare a letto ma domani verso le 8, o anche prima, ammesso che nessuno mi abbia preceduto, ti posto il codice per entrambe le cose..ciao

[MdE2005]

1)
Dim cont As Long

Private Sub Command1_Click()
If Timer1.Enabled = False Then
Timer1.Enabled = True
Exit Sub
Else
Timer1.Enabled = True
Timer1.Enabled = False
Exit Sub
End If
End Sub

Private Sub Form_Load()
cont = 0
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
cont = cont + 1
If cont Mod 2 = 0 Then
Image1.Visible = True
ElseIf cont Mod 2 <> 0 Then
Image1.Visible = False
End If
End Sub

Timer.interval lo metti come ti pare, prova = 1000. Inserisci anche un controllo image1.

2)
Inserisci una listbox e popolala con gli indirizzi delle tue immagini
Nel codice del command1_click () inserisci:
image1.picture = loadpicture (list1.listindex)

In questa maniera ti si dovrebbe caricare nell'image1 l'immagine che ha come indirizzo completo quello cliccato nella listbox
==============
Ora non ho visual basic, quindi il codice lo sto scrivendo "a mente"..se ci sono errori dimmelo, è probabile..ciao

[satriano]

Grazie,
provero' al piu presto. Ma come vedo nel tuo listato si deve usare anche l'oggetto timer ? Ma in visual basic for application Timer... non esiste, come oggetto. o funziona anchec senza l'inserimento del Timer sul form?

[satriano]

Purtroppo non mi funziona. Il debug mi propina errori di qua e di là. Ho provato a modificare/eliminare ma... nulla.

Ci dovro lavorare ancora molto.
Grazie comunque per la disponibilità.
ciao