Condividi:        

Indirizzo web di un'immagine

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Indirizzo web di un'immagine

Postdi aggittoriu » 23/09/21 14:56

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 :?:
aggittoriu
Utente Senior
 
Post: 156
Iscritto il: 24/06/14 08:49

Sponsor
 

Re: Indirizzo web di un'immagine

Postdi Anthony47 » 23/09/21 19:15

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Indirizzo web di un'immagine

Postdi aggittoriu » 23/09/21 21:56

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. :D

Alla prossima! :oops: :D
aggittoriu
Utente Senior
 
Post: 156
Iscritto il: 24/06/14 08:49

Re: Indirizzo web di un'immagine

Postdi aggittoriu » 24/09/21 10:27

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ì. ;)
aggittoriu
Utente Senior
 
Post: 156
Iscritto il: 24/06/14 08:49

Re: Indirizzo web di un'immagine

Postdi Anthony47 » 24/09/21 14:45

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Indirizzo web di un'immagine

Postdi aggittoriu » 24/09/21 15:00

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. ;)
aggittoriu
Utente Senior
 
Post: 156
Iscritto il: 24/06/14 08:49


Torna a Applicazioni Office Windows


Topic correlati a "Indirizzo web di un'immagine":

non appare l'indirizzo
Autore: valyfilm
Forum: Software Windows
Risposte: 0

Chi c’è in linea

Visitano il forum: Nessuno e 65 ospiti