XL2000: Nenhum comando de menu para selecionar todos os hyperlinks em uma planilha

ID do artigo: 213790 - Exibir os produtos aos quais esse artigo se aplica.
Tradução automáticaExibir Aviso de Isenção de Tradução Automática
Expandir tudo | Recolher tudo

Nesta página

Sintomas

Microsoft Excel 2000 não possui nenhum comando de menu que permite que você selecione todos os hiperlinks dentro de uma planilha.
Voltar para o início | Submeter comentários

Como Contornar

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita, incluindo, mas não se limitando às garantias implícitas de comercialização e/ou adequação a uma finalidade específica. Este artigo presume que você esteja familiarizado com a linguagem de programação demonstrada e as ferramentas usadas para criar e depurar procedimentos. Profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.
Se você não tenha muita experiência de programação, talvez queira em contato com um Microsoft Certified Partner ou Microsoft Advisory Services. Para obter mais informações, visite da Microsoft:

Microsoft Certified Partners - https://partner.microsoft.com/global/30000104
(https://partner.microsoft.com/global/30000104)


Comunicado de Microsoft Services - http://support.microsoft.com/gp/advisoryservice
(http://support.microsoft.com/gp/advisoryservice)


Para obter mais informações sobre as opções de suporte estão disponíveis e sobre como entrar em contato com a Microsoft, visite o seguinte site: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
(http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms)
Para contornar esse comportamento, use uma macro para selecionar todas as células que contêm hiperlinks.
  1. Crie uma nova pasta de trabalho no Microsoft Excel.
  2. No menu Ferramentas , aponte para macro e, em seguida, clique em Editor do Visual Basic .
  3. No Editor do Visual Basic, no menu Inserir , clique em módulo .
  4. Digite o código a seguir no módulo: 
    '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
Voltar para o início | Submeter comentários

Mais Informações

Outras macros para trabalhar com hiperlinks

Você pode usar um Microsoft Visual Basic for Applications sub-rotina para percorrer todos os hiperlinks dentro de uma planilha e executar uma operação específica em cada hiperlink. Por exemplo, você pode excluir todos os hiperlinks, ou você pode simplesmente relatar o local de cada hiperlink.

Observação : algumas linhas de código foram modificadas com caracteres de continuação de linha (_) para ajustar este documento.
  1. Crie uma nova pasta de trabalho no Microsoft Excel.
  2. No menu Ferramentas , aponte para macro e, em seguida, clique em Editor do Visual Basic .
  3. No Editor do Visual Basic, no menu Inserir , clique em módulo .
  4. Digite o código a seguir no módulo: 
    '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. No menu arquivo , clique em Fechar e voltar para Microsoft Excel .
Se você inserir alguns hiperlinks em sua planilha, você pode executar as macros diferentes apontando para macro no menu Ferramentas e, em seguida, clicando em macros . Selecione o nome da macro para executar e, em seguida, clique em Executar .

A macro DeleteAllHyperlinks() exclui a propriedade de hiperlink do intervalo, mas não o texto do hiperlink. Ele deixa para trás o texto do hiperlink.
Voltar para o início | Submeter comentários

Referências

Para obter mais informações sobre hiperlinks, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , digite o objeto de hiperlink no Assistente do Office ou no Assistente de resposta e, em seguida, clique em Pesquisar para exibir o tópico.
Voltar para o início | Submeter comentários

Propriedades

ID do artigo: 213790 - Última revisão: quinta-feira, 23 de novembro de 2006 - Revisão: 3.5
A informação contida neste artigo aplica-se a:
  • Microsoft Excel 2000 Standard Edition
Palavras-chave: 
kbmt kbdtacode kbprb KB213790 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 213790
(http://support.microsoft.com/kb/213790/en-us/ )
Voltar para o início | Submeter comentários

Submeter comentários

 
Voltar para o inícioVoltar para o início