KutoolsforOffice — Una solución, cinco potentes herramientas.Lograr más con menos esfuerzo.Venta de marzo: 20 % de descuento

¿Cómo insertar una lista desplegable con codificación por colores en una tabla de Word?

AutorXiaoyang Fecha de modificación

Supongamos que tiene una tabla en su documento de Word y desea insertar una lista desplegable con codificación por colores en una de sus columnas. Esto significa que, al seleccionar una opción del menú desplegable, el color de la celda cambiará a rojo; al elegir otra, se volverá verde, tal como se muestra en la siguiente captura de pantalla:

Demostración que muestra cómo cambia el color de una celda al seleccionar un elemento de la lista desplegable

Inserte un Lista desplegable con codificación por colores en un documento de Word mediante código VBA

Los siguientes pasos le guiarán para insertar un Lista desplegable en una celda de tabla y aplicar Color de fondo a la celda en función del elemento seleccionado:

  1. Seleccione una celda de la tabla donde quiera insertar el menú desplegable y, a continuación, haga clic en «Programador» > «Control de contenido: Lista desplegable».

    Nota: Si no ve la pestaña Programador en la Cinta de opciones, visite: Cómo mostrar la pestaña Programador en la Cinta de opciones de Word.

    Botón Control de contenido de lista desplegable en la cinta de opciones
  2. El menú desplegable se inserta en la celda específica. A continuación, haga clic en «Programador» > «Propiedades».
    3. Lista desplegable insertada en una celda específica con la opción Propiedades resaltada
  3. En el cuadro de diálogo «Propiedades del control de contenido», realice lo siguiente:
    1. Introduzca el nombre del título en el cuadro de texto «Título».
    2. Haga clic en el botón «Agregar» para abrir el cuadro de diálogo «Agregar opción».
    3. Escriba «Lista desplegable» en el cuadro de texto «Nombre para mostrar».
      Cuadro de diálogo Propiedades del control de contenido y cuadro de diálogo Agregar opción
  4. Repita el paso 3 para insertar más elementos de lista desplegable según lo necesite.
  5. Después de crear la primera lista desplegable, puede copiarla y pegarla en otras celdas.
    Lista desplegable copiada en otras celdas
  6. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana «Microsoft Visual Basic para Aplicaciones».
  7. En la ventana de Microsoft Visual Basic para Aplicaciones, haga doble clic en «EsteDocumento» del panel «Proyecto» para abrir el módulo. A continuación, copie y pegue el siguiente código en el módulo en blanco:
    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

    Nota: En el código anterior, «Status» es el nombre del título utilizado al crear la lista desplegable, y «Complete», «In Progress» y «Not Start» son los elementos. Puede ajustar estos valores y sus colores correspondientes según sus necesidades.

    Ventana de VBA con EsteDocumento seleccionado, mostrando el código pegado en el módulo en blanco
  8. Cierre la ventana de código. Ahora, al seleccionar un elemento del menú desplegable, el color correspondiente rellenará automáticamente la celda.
    Demostración que muestra cómo cambia el color de una celda al seleccionar un elemento de la lista desplegable

Las mejores herramientas de productividad para Office

Kutools para Word- Potencie su experiencia en Word con más de 100funciones extraordinarias

🤖Funcionalidades de KUTOOLS AI: Asistente de IA / Asistente en Tiempo Real / Super Pulir (conservar formato) / Super Traducir (conservar formato) / Redacción con IA / Revisión con IA…

📘Dominio del documento: Dividir páginas, combinar documentos, exportar selecciones en varios formatos (PDF, TXT, DOC, HTML…) y convertir varios documentos a PDF…

✏Edición de contenidos: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de la tabla / Convertir tabla a texto...

🧹Limpieza sin esfuerzo: Elimine rápidamente espacios adicionales, saltos de sección, cuadros de texto e hipervínculos. Para más herramientas de eliminación, vaya al grupo Eliminar…

➕Inserciones creativas: Inserte separadores de miles, casillas de verificación, botones de opción, códigos QR, códigos de barras o varias imágenes. ¡Descubra más en el grupo Insertar…

🔍Selecciones precisas: Localice exactamente páginas específicas, tablas, formas o párrafos de encabezado. Mejore la navegación con más funciones de selecciónfeatures ......

⭐Mejoras destacadas: Navega a cualquier ubicación / Inserta automáticamente texto repetitivo / Alterna entre documentos de Windows / 11 …herramientas de conversión…

🌍Compatible con 40+ idiomas: Use Kutools en su idioma preferido – compatible con inglés, español, alemán, francés, chino y 40+ más idiomas

Pestañas Kutools for Word en la cinta de opciones
 
 

Office Tab- Aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en ventanas nuevas.
  • ¡Aumente su productividad en un 50 % y ahorre cientos de clics de ratón cada día!

✨ Kutools for Office – ¡Una instalación, cinco herramientas potentes!

Incluye Office Tab Pro·Kutools para Excel·Kutools para Outlook·Kutools para Word·Kutools for PowerPoint

📦 Obtenga las 5 herramientas en un único conjunto | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorrar tiempo y aumente su productividad al instante

Las mejores herramientas de productividad para Office

Kutools para Word- Herramientas 100+ para Word

Descarga gratuitaComprar ahoraMás información sobre Kutools