Você está offline; aguardando reconexão

XL2000: No comando de menu para seleccionar todas as hiperligações dentro de uma folha de cálculo

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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática… erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 213790
Este artigo foi arquivado. Este artigo é oferecido "tal como está" e deixará de ser actualizado.
Sintomas
O Microsoft Excel 2000 não tem nenhum comando de menu que lhe permite seleccionar todas as hiperligações numa folha de cálculo.
Como contornar
Microsoft fornece exemplos de programação ilustração só, sem garantia expressa ou implícita, incluindo, sem limitação, garantias implícitas de comercialização e/ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas utilizadas para criar e depurar procedimentos. Profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas.
Se dispõe de limitada experiência de programação, poderá contactar um Microsoft Certified Partner ou a serviços de aviso. Para obter mais informações, visite estes Web sites da Microsoft:

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

Serviços Microsoft aviso - http://support.microsoft.com/gp/advisoryservice

Para obter mais informações sobre as opções de suporte estão disponíveis e sobre como contactar a Microsoft, visite o seguinte Web site da Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSPara contornar este comportamento, utilize uma macro para seleccionar todas as células que contêm hiperligações.
  1. Crie um novo livro 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. Escreva o seguinte código 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.SelectEnd Sub					
Mais Informação

Outras macros para trabalhar com hiperligações

Pode utilizar um Microsoft Visual Basic for Applications subrotina para percorrer todas as hiperligações numa folha de cálculo e executar uma operação específica em cada hiperligação. Por exemplo, pode eliminar todas as hiperligações, ou pode reportar apenas a localização de cada hiperligação.

Nota : algumas linhas de código foram modificadas com caracteres de continuação de linha (_) para fazer caber neste documento.
  1. Crie um novo livro 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. Escreva o seguinte código no módulo:
    'This Sub procedure deletes all hyperlinks in the active worksheet.Sub DeleteAllHyperlinks()    For Each xLink In ActiveSheet.Hyperlinks        xLink.Delete    Next xLinkEnd 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 xLinkEnd 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 xLinkEnd Sub					
  5. No menu ficheiro , clique em Close and Return to Microsoft Excel .
Se inserir algumas hiperligações na folha de cálculo, pode executar as macros diferentes, apontando para macro no menu Ferramentas e, em seguida, clicando em macros . Seleccione o nome da macro para executar e, em seguida, clique em Executar .

A macro DeleteAllHyperlinks() elimina a propriedade hiperligação de intervalo, mas não o texto da hiperligação. Deixa atrás do texto de hiperligação.
Referências
Para obter mais informações sobre hiperligações, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , escreva o objecto de hiperligação na Assistente do Office ou no Assistente de respostas e, em seguida, clique em Procurar para visualizar o tópico.
ligar o URL "select.special" specialcells rotina subrotina XL2000

Aviso: Este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 213790 - Última Revisão: 02/11/2014 13:52:46 - Revisão: 3.5

Microsoft Excel 2000 Standard Edition

  • kbnosurvey kbarchive kbmt kbdtacode kbprb KB213790 KbMtpt
Comentários