Botón alternante en tres líneas
Tengo este macro
------------------------------------------------------------------------------------------------------
Private Sub CommandButton7_Click()
If CommandButton7.Caption = "Renta x Cobrar del Mes" Then
CommandButton7.Caption = "Renta x Cobrar Mes proximo"
RentaColoreaySumaMesActual
Else
CommandButton7.Caption = "Renta x Cobrar del Mes"
RentaColoreaySumaMesSiguiente
End If
End Sub
-----------------------------------------------------------------------------------------------------
Y necesito que el caption del botón me aparezca en tres líneas y en negrita o sea así
Renta x renta x
cobrar cobrar
del mes mes proximo
1 Respuesta
Olvidé que se en negrita, aquí va.
Private Sub UserForm_Activate() CommandButton1.Caption = "Texto1" & vbNewLine & "Texto2" & vbNewLine & "Texto3" CommandButton1.Font.Bold = True End Sub
No no es un formulario es un botón en la hoja
Es lo mismo
Private Sub CommandButton7_Click() CommandButton7.Caption = "Renta x" & vbNewLine & "cobrar" & vbNewLine & "del mes" CommandButton7.Font.Bold = True End Sub
