Inserta un Botón ON-OFF Dinámico (MACRO)

0

Código:


Sub Boton_On_Off()
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet
With ws
    If .Range("Vinculo").Value = True Then
        'Condiciones para boton falso
        .Range("Vinculo").Value = False
        .Shapes("Leyenda").TextFrame.Characters.Text = "OFF"
        .Shapes("Leyenda").TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignRight
        .Shapes("Fondo").Fill.ForeColor.RGB = RGB(192, 0, 0)
        .Shapes("Boton").Left = .Shapes("Fondo").Left + .Shapes("Fondo").Width - .Shapes("Boton").Width - 2
    Else
        'Condiciones para boton verdadero
        .Range("Vinculo").Value = True
        .Shapes("Leyenda").TextFrame.Characters.Text = "ON"
        .Shapes("Leyenda").TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignLeft
        .Shapes("Fondo").Fill.ForeColor.RGB = RGB(0, 176, 80)
        .Shapes("Boton").Left = .Shapes("Fondo").Left + 2
    End If
End With
End Sub
Crea el Botón insertando formas
Crea el Botón insertando formas

Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel