XL2000: Nessun comando di menu per selezionare tutti i collegamenti ipertestuali in un foglio di lavoro

Traduzione articoli Traduzione articoli
Identificativo articolo: 213790 - Visualizza i prodotti a cui si riferisce l?articolo.
Questo articolo Ŕ stato archiviato. L?articolo, quindi, viene offerto ?cosý come Ŕ? e non verrÓ pi¨ aggiornato.
Espandi tutto | Chiudi tutto

In questa pagina

Sintomi

Microsoft Excel 2000 Ŕ disponibile alcun comando di menu che consente di selezionare tutti i collegamenti ipertestuali all'interno di un foglio di lavoro.

Workaround

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia di qualsiasi tipo, sia espressa che implicita, ivi incluse, senza limitazioni, le garanzie implicite di commerciabilitÓ o idoneitÓ per uno scopo particolare. In questo articolo si presume che l'utente conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug delle procedure. Gli addetti al Supporto Microsoft possono spiegare la funzionalitÓ di una particolare procedura, ma non possono modificare questi esempi per fornire ulteriori funzionalitÓ o realizzare procedure per soddisfare esigenze specifiche.
Se si dispone di esperienza di programmazione limitata, Ŕ possibile che desideri contattare un Microsoft Certified Partner o servizi di consulenza Microsoft. Per ulteriori informazioni, visitare questi siti Web di Microsoft:

Microsoft Certified Partner - https://partner.microsoft.com/global/30000104

Microsoft Advisory Services - http://support.microsoft.com/gp/advisoryservice

Per ulteriori informazioni sulle opzioni di supporto disponibili e su come contattare Microsoft, visitare il seguente sito: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSPer aggirare questo comportamento, utilizzare una macro per selezionare tutte le celle contenenti collegamenti ipertestuali.
  1. Creare una nuova cartella di lavoro in Microsoft Excel.
  2. Scegliere macro dal menu Strumenti , quindi Visual Basic Editor .
  3. In Visual Basic Editor, dal menu Inserisci , scegliere il modulo .
  4. Digitare il seguente codice nel modulo:
    'This Sub procedure selects all cells in the worksheet that contain
    'hyperlinks. You can then clear the selected cells to delete all of
    'the hyperlinks.
    Sub SelectAllHyperlinkCells()
        FirstCell = 1
        For Each xLink In ActiveSheet.Hyperlinks
            If FirstCell = 1 Then
                Set xRange = xLink.Range
                FirstCell = 0
            Else
                Set xRange = Application.Union(xRange, xLink.Range)
            End If
        Next xLink
        xRange.Select
    End Sub
    					

Informazioni

Altre macro per l'utilizzo di collegamenti ipertestuali

╚ possibile utilizzare un Microsoft Visual Basic per applicazioni subroutine per scorrere tutti i collegamenti ipertestuali all'interno di un foglio di lavoro ed eseguire una specifica operazione su ogni collegamento ipertestuale. Ad esempio, Ŕ possibile eliminare tutti i collegamenti ipertestuali o semplicemente Ŕ possibile segnalare la posizione di ciascun collegamento ipertestuale.

Nota : sono state modificate alcune righe di codice con caratteri di continuazione di riga (_) per adattare questo documento.
  1. Creare una nuova cartella di lavoro in Microsoft Excel.
  2. Scegliere macro dal menu Strumenti , quindi Visual Basic Editor .
  3. In Visual Basic Editor, dal menu Inserisci , scegliere il modulo .
  4. Digitare il seguente codice nel modulo:
    'This Sub procedure deletes all hyperlinks in the active worksheet.
    
    Sub DeleteAllHyperlinks()
        For Each xLink In ActiveSheet.Hyperlinks
            xLink.Delete
        Next xLink
    End Sub
    
    'This Sub procedure displays a series of message boxes indicating
    'the location of each hyperlink in the active worksheet.
    Sub ReportHyperlinkLocations()
       For Each xLink In ActiveSheet.Hyperlinks
            MsgBox xLink.Range.Address
        Next xLink
    End Sub
    
    'This Sub procedure identifies each hyperlink and asks if you want
    'to delete it. If you click Yes, the hyperlink is deleted.
    Sub ReportAndDeleteHyperlinks()
        For Each xLink In ActiveSheet.Hyperlinks
            Response = MsgBox("Delete hyperlink in cell " & _
                xLink.Range.Address & " ?", vbYesNo)
            If Response = vbYes Then xLink.Delete
        Next xLink
    End Sub
    					
  5. Dal menu file , scegliere Chiudi e torna a Microsoft Excel .
Se si inseriscono alcuni collegamenti ipertestuali nel foglio di lavoro, Ŕ possibile eseguire le diverse macro scegliendo macro dal menu Strumenti e quindi fare clic su macro . Selezionare il nome della macro da eseguire e scegliere Esegui .

La macro DeleteAllHyperlinks() Elimina la proprietÓ collegamento ipertestuale dell'intervallo, ma non il testo del collegamento ipertestuale. Lascia dietro al testo del collegamento ipertestuale.

Riferimenti

Per ulteriori informazioni su collegamenti ipertestuali, in Visual Basic Editor scegliere Guida in linea di Visual Basic dal menu Guida digitare oggetto collegamento ipertestuale nella casella dell'Assistente di Office o nella ricerca libera e scegliere il pulsante Cerca per visualizzare l'argomento.

ProprietÓ

Identificativo articolo: 213790 - Ultima modifica: lunedý 10 febbraio 2014 - Revisione: 3.5
Le informazioni in questo articolo si applicano a:
  • Microsoft Excel 2000 Standard Edition
Chiavi:á
kbnosurvey kbarchive kbmt kbdtacode kbprb KB213790 KbMtit
Traduzione automatica articoli
Il presente articolo Ŕ stato tradotto tramite il software di traduzione automatica di Microsoft e non da una persona. Microsoft offre sia articoli tradotti da persone fisiche sia articoli tradotti automaticamente da un software, in modo da rendere disponibili tutti gli articoli presenti nella nostra Knowledge Base nella lingua madre dell?utente. Tuttavia, un articolo tradotto in modo automatico non Ŕ sempre perfetto. Potrebbe contenere errori di sintassi, di grammatica o di utilizzo dei vocaboli, pi¨ o meno allo stesso modo di come una persona straniera potrebbe commettere degli errori parlando una lingua che non Ŕ la sua. Microsoft non Ŕ responsabile di alcuna imprecisione, errore o danno cagionato da qualsiasi traduzione non corretta dei contenuti o dell?utilizzo degli stessi fatto dai propri clienti. Microsoft, inoltre, aggiorna frequentemente il software di traduzione automatica.
Clicca qui per visualizzare la versione originale in inglese dell?articolo: 213790
LE INFORMAZIONI CONTENUTE NELLA MICROSOFT KNOWLEDGE BASE SONO FORNITE SENZA GARANZIA DI ALCUN TIPO, IMPLICITA OD ESPLICITA, COMPRESA QUELLA RIGUARDO ALLA COMMERCIALIZZAZIONE E/O COMPATIBILITA' IN IMPIEGHI PARTICOLARI. L'UTENTE SI ASSUME L'INTERA RESPONSABILITA' PER L'UTILIZZO DI QUESTE INFORMAZIONI. IN NESSUN CASO MICROSOFT CORPORATION E I SUOI FORNITORI SI RENDONO RESPONSABILI PER DANNI DIRETTI, INDIRETTI O ACCIDENTALI CHE POSSANO PROVOCARE PERDITA DI DENARO O DI DATI, ANCHE SE MICROSOFT O I SUOI FORNITORI FOSSERO STATI AVVISATI. IL DOCUMENTO PUO' ESSERE COPIATO E DISTRIBUITO ALLE SEGUENTI CONDIZIONI: 1) IL TESTO DEVE ESSERE COPIATO INTEGRALMENTE E TUTTE LE PAGINE DEVONO ESSERE INCLUSE. 2) I PROGRAMMI SE PRESENTI, DEVONO ESSERE COPIATI SENZA MODIFICHE, 3) IL DOCUMENTO DEVE ESSERE DISTRIBUITO INTERAMENTE IN OGNI SUA PARTE. 4) IL DOCUMENTO NON PUO' ESSERE DISTRIBUITO A SCOPO DI LUCRO.

Invia suggerimenti

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com