Indirizzo web di un'immagine

[aggittoriu]

Salve!

Se su un foglio di excel ho solo delle immagini con un indirizzo web associato (nel senso che clicco sull'immagine e mi si apre la pagina web), tramite vba sarebbe possibile avere scritti in una data colonna gli indirizzi web di quelle immagini

[Anthony47]

Quindi hai delle immagini a cui qualcuno ha associato dei collegamenti ipertestuali e vorresti elencare questi collegamenti.
Prova con questa macro:

Codice: Seleziona tutto

Sub LinkList()
Dim hlColl As Object, DeRange As Range, I As Long
'
Set DeRange = Sheets("Foglio3").Range("A2")    '<<< Dovre creare l'elenco
'
Set hlColl = ActiveSheet.Hyperlinks
For I = 1 To hlColl.Count
    DeRange.Cells(I, 1) = hlColl(I).Parent.TopLeftCell.Address(0, 0)
    DeRange.Cells(I, 2) = hlColl(I).Address
Next I
End Sub

Va messa in un Modulo standard del tuo ProgettoVBA.
La riga marcata <<< va personalizzata come da commento

Poi selezioni il foglio con le immagini e avvii la macro; ti creera' un elenco in cui la prima colonna indica la cella che contiene l'angolo alto-sx dell'immagine e la seconda colonna e' i link

Ciao

[aggittoriu]

Ok. Perfetto! Grazie Anthony47!

A me da l'errore "proprietà o metodo non supportati dall'oggetto". Forse sbaglio qualcosa. Ma si riferisce alla riga

Codice: Seleziona tutto

DeRange.Cells(I, 1) = hlColl(I).Parent.TopLeftCell.Address(0, 0)

che in realtà a me non interessa. Quindi l'ho tolta e basta. Tanto, appena ottengo gli indirizzi web, tutte quelle immagini le devo cancellare dal foglio.

Alla prossima!

[aggittoriu]

In caso interessi a qualcun altro, ho capito la causa dell'errore.
Se oltre alle immagini ci sono anche scritte cliccabili, mi da l'errore.
Senza scritte cliccabili, la macro funziona benissimo.
Se tolgo quella riga di codice segnalata prima, quando lancio la macro, oltre agli indirizzi web delle immagini, mi vengono elencati anche gli indirizzi web di quelle scritte.
Quindi il problema è tra quella riga di codice e le scritte cliccabili.

Ma ripeto. A me non interessa. A me va benissimo così.

[Anthony47]

Solo le Forme (e i grafici) hanno la proprietà TopLeftCell; visto che parlavi di Immagini non ero stato a preoccuparmi ieri quando ho proposto il codice; ne' mi sono preoccupato stamattina visto che quell'informazione non ti serviva e avevi tranquillamente capito come eliminare l'errore.

Ciao

[aggittoriu]

Si. Infatti.

In realtà, l'ho scritto nel caso in cui mi andrò a ricercare questa cosa in futuro, per capire subito come usare il codice.