tengo actualmente:Cómo utilizar VBA para hacer que una celda en Excel 2007 transparente
Range("Z1").Interior.Color = RGB(255, 255, 255)
Pero esto borra los bordes de las celdas. En cambio, me gustaría establecer la transparencia de las celdas en el rango de 1,0. The docs parecen sugerir que no existe (?).
Gracias!
Range("Z1").Interior.ColorIndex = xlNone
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
With Target
' Highlight the entire row and column that contain the active cell
.EntireRow.Interior.ColorIndex = 8
.EntireColumn.Interior.ColorIndex = 8
End With
Application.ScreenUpdating = True
End Sub
Alguna explicación sería agradable. – rayryeng
Tal vez un enfoque simple sería (Symbol).(line or background)Color = -1 'Transparent.
Perfecto. Muchas gracias. ¿Podría indicarme la referencia de este conocimiento, por favor? Parece que MSDN no tiene acceso inmediato: [ColorIndex] (http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.interior.colorindex%28v=office.11%29 .aspx) no dice nada acerca de la transparencia. [Esta página enumera x1None] (http://msdn.microsoft.com/en-us/library/microsoft.office.core.xlconstants.aspx) pero sin descripción (?! Grr) Curiosamente, también incluye xlTransparent que tiene una diferente valor que (como era de esperar) no funciona. ¡Muchas gracias por tu ayuda de todos modos! – AJP
Usar 'xlNone' es lo mismo que seleccionar" Sin relleno "en el menú en Excel: no es realmente" transparente ". Técnicamente debería ser 'xlColorIndexNone', pero tienen el mismo valor ... La propiedad ColorIndex se aplica a otros objetos como Fuente y Borde, por eso es posible que esté viendo valores que no tienen efecto cuando se aplica a Interior.ColorIndex como referencia a veces lo mejor es registrar una macro y ver qué se genera. El buscador de objetos (presione F2 en el Editor de VB) también es útil. –
Nuevamente, perfecto, gracias Tim, ojalá pudiera darle más puntos. Grabación de una macro funcionó de maravilla: 'Sub Macro1() rango. ("T1: W4") Seleccionar Con Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub ' – AJP