dubbelklikken op command button

[bjornesto]

Ik vroeg mij af of het mogelijk is om te dubbelklikken op command button zodat hij dit reset (enkel maar van die command button 6 geen andere)
Via een userform heb ik soort van menu gemaakt dat als je op die knop klikt (zie private sub commandbutton6_click () ), hij die in het geel gaat aangeven.
Momenteel heb ik al een reset knop (zie code onderaan) maar die doet het voor het volledige blad (alle textboxen).

Nu is mijn vraag is het mogelijk om die code te integreren dat als je 1x klikt op die knop in dat menu hij dit geel kleurt. --> dit werkt al
doe je dubbelklik, dat hij die terug normaal zet (zie code reset onderaan)

(excel 2010 en excel 365 werken deze codes)
Hieronder de codes om een textbox in een gele achtergrond te zetten

Private Sub CommandButton6_Click()
CommandButton6.Caption = [A7]
  On Error Resume Next
  Workbooks("2) GF Kitchen & 1st floor").Activate
  If Err.Number > 0 Then Workbooks.Open "c:\downloads\2) GF Kitchen & 1st floor.xlsm"
    With Sheets("HO 1st floor").Activate
         Call Sheets("HO 1st floor").CommandButton2_Click
         ActiveSheet.Shapes.Range(Array("Rectangle 102")).Select
            Macro7
            zoom
  End With
End Sub

code voor macro7

' zet automatisch de gezochte item in gele achtergrond
Sub Macro7()
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 244, 0)
        .Transparency = 0
        .Solid
    End With
    Selection.ShapeRange.TextFrame2.TextRange.Font.Bold = msoTrue
    Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 10
End Sub

code voor zoom (die kan eventueel incode 7)

    ActiveWindow.zoom = 75
    Range("a6").Activate

Deze code zorgt dat bij alle opgezochte tekstboxen dit terug gereset worden (voor heel dat plan)

Private Sub CommandButton2_Click()
Dim Findwhat As String
On Error Resume Next
  For Each tb In ActiveSheet.Shapes
   If tb.AutoShapeType = msoShapeRectangle Then
         With tb.TextFrame.Characters.Font
           .Name = "Arial"
           .Size = 6
           .Underline = xlUnderlineStyleNone
           .Bold = False
         End With
            tb.Fill.ForeColor.RGB = RGB(255, 255, 255)
      End If
    Next
End Sub

 

[HSV]

In de declaratielijst is er ook een DblClick_event voor je.
Maar misschien is het handig om de code aan een ToggleButton te hangen (hoef je niet te dubbelklikken).

 

[bjornesto]

Ja maar gaat die toggle button dan geen problemen opleveren aangezien ik deze in andrere bestanden ook die menu gebruik. Daarom dat dubbelklikken eenvoudiger is

 

[HSV]

Misschien wel, ik heb niet gekeken wat de codes doen., vandaar dat ik schreef........Maar misschien......