Como inserir uma lista suspensa codificada por cores na tabela do Word?
Suponha que eu tenha uma tabela em meu documento do Word e, agora, desejo inserir uma lista suspensa codificada por cores em uma coluna da tabela. Isso significa que quando eu seleciono uma opção no menu suspenso, a cor da célula se torna vermelha, e quando eu seleciono outra opção no menu suspenso, a cor da célula se torna verde como mostrado na imagem a seguir. Como você resolveria esse trabalho em um documento do Word?
Insira a lista suspensa codificada por cores no documento do Word com código VBA
Insira a lista suspensa codificada por cores no documento do Word com código VBA
As etapas a seguir podem ajudá-lo a concluir esta tarefa conforme necessário, primeiro, insira a lista suspensa e, em seguida, aplique a cor para a lista suspensa. Faça o seguinte:
1. Selecione uma célula na tabela onde deseja inserir o menu suspenso e clique em Developer > Controle de conteúdo da lista suspensa ícone, veja a captura de tela:
2. O menu suspenso é inserido na célula específica e clique em Developer > Propriedades, veja a captura de tela:
3. No Propriedades de controle de conteúdo caixa de diálogo, execute as seguintes operações:
(1.) Digite o nome do título no Título caixa de texto;
(2.) Clique Adicionar botão vá para o Adicionar Escolha diálogo;
(3.) No Adicionar Escolha caixa de diálogo, digite o item da lista suspensa no Nome visível caixa de texto.
4. Repita a Etapa 3 para inserir outros itens da lista suspensa conforme necessário.
5. Depois de criar a primeira lista suspensa, você pode copiá-la e colá-la em outras células conforme necessário. Veja a imagem:
6. Então você deve aplicar um código VBA, por favor, mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
7. No Microsoft Visual Basic para Aplicações janela, clique duplo Esse documento do Projeto-Projeto painel para abrir o modo e, em seguida, copie e cole o código a seguir no módulo em branco.
Código VBA: insira a lista suspensa codificada por cores na tabela de um documento do Word:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
If ContentControl.Title = "Status" Then
Select Case .Text
Case "Complete"
.Cells(1).Shading.BackgroundPatternColor = wdColorRed
Case "In Progress"
.Cells(1).Shading.BackgroundPatternColor = wdColorGreen
Case "Not Start"
.Cells(1).Shading.BackgroundPatternColor = wdColorBlue
Case Else
.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
End Select
End If
End With
End Sub
Note: No código acima, Status é o nome do título ao criar a lista suspensa, e Preencha, Em Andamento, Não começar são os itens da lista suspensa, você pode alterá-los para o seu próprio. E você também pode alterar a cor de acordo com sua necessidade.
8. Em seguida, salve e feche a janela de código, agora, ao selecionar um item da lista suspensa, sua cor relativa será preenchida com a célula, veja a imagem:
Melhores ferramentas de produtividade de escritório
Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!
🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo / Reescrever texto / Resumir documentos / Pergunte para obter informações com base no documento, tudo dentro do Word
📘 Domínio de documentos: Páginas divididas / Mesclar Documentos / Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...) / Conversão em lote para PDF / Exportar páginas como imagens / Imprima vários arquivos de uma vez...
✏ Edição de conteúdo: Localização e substituição em lote em vários arquivos / Redimensionar todas as imagens / Transpor linhas e colunas da tabela / Converter tabela em texto...
🧹 Limpeza sem esforço: Varrer Espaços extras / Quebras de seção / Todos os cabeçalhos / Caixas de Texto / hiperlinks / Para mais ferramentas de remoção, acesse nosso Remover Grupo...
➕ Inserções criativas: Inserir Mil Separadores / Caixas de seleção / botões de rádio / QR Code / Código de barras / Tabela de linhas diagonais / Legenda da equação / Legenda da Imagem / Legenda da Tabela / Várias fotos / Descubra mais no Inserir Grupo...
🔍 Seleções de precisão: Identificar páginas específicas / tabelas / formas / parágrafos de título / Melhore a navegação com mais Selecione recursos...
⭐ Aprimoramentos de estrelas: Navegue rapidamente para qualquer local / inserir automaticamente texto repetitivo / alternar perfeitamente entre janelas de documentos / 11 ferramentas de conversão...